Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bilder komprimieren
Autor: Martin01
Datum: 28.05.03 21:56
'Ausschnitt aus meiner Klasse: Public Sub PictureStringSave( _ ByVal Pic As PictureBox, _ ByVal FileName As String) Dim X As Long, Y As Long Dim psh As Long, psw As Long Dim XStart As Long, YStart As Long Dim ChrCheck As Long Dim ff As Integer XStart = 0& YStart = 0& With Pic psw = .ScaleWidth RaiseEvent Start(psw) psh = .ScaleHeight ff = FreeFile Open FileName For Binary As #ff 'Bildgröße speichern Put #ff, 1, Hex$(pcsFileHeader) & vbNullChar & _ Hex$(.Width) & vbNullChar & _ Hex$(.Height) & vbNullChar & _ Hex$(.ScaleWidth) & vbNullChar & _ Hex$(.ScaleHeight) & vbNullChar 'Bild Punkt für Punkt speichern For X = XStart To psw For Y = YStart To psh ChrCheck = .Point(X, Y) Mod 256& If ChrCheck = -1& Then Put #ff, , vbNullChar & Chr$((.Point(X, Y) \ 256&) Mod 256&) & Chr$((.Point(X, Y) \ 65536) Mod 256&) Else Put #ff, , Chr$(ChrCheck) & Chr$((.Point(X, Y) \ 256&) Mod 256&) & Chr$((.Point(X, Y) \ 65536) Mod 256&) End If Next Y RaiseEvent Status(X) Next X Close #ff End With RaiseEvent Finish End Sub 'Das Bild ist nun 1:1 in einer Datei. 'Das ganze geht als ''String'' raus: 'vbNullChar & Chr$((.Point(X, Y) \ 256&) Mod 256&) & Chr$((.Point(X, Y) \ 65536) Mod 256&) 'oder 'Chr$(ChrCheck) & Chr$((.Point(X, Y) \ 256&) Mod 256&) & Chr$((.Point(X, Y) \ 65536) Mod 256&) '>>> Graf Yoster ... spezifischen Code... Nein <<< 'Strings lassen sich sehr einfach und Verlust Frei PACKEN: LZW / Huffman / RLE / BINARY ...

Bilder komprimieren	797	Peacemaker	28.05.03 18:53
Re: Bilder komprimieren	459	Graf Yoster	28.05.03 20:56
Re: Bilder komprimieren	405	Peacemaker	28.05.03 21:03
Re: Bilder komprimieren	431	Graf Yoster	28.05.03 21:14
Re: Bilder komprimieren	414	Peacemaker	28.05.03 21:17
Re: Bilder komprimieren	102	Lars	28.05.03 22:57
Re: Bilder komprimieren	404	Peacemaker	28.05.03 23:16
Re: Bilder komprimieren	393	Graf Yoster	28.05.03 21:25
Re: Bilder komprimieren	382	Peacemaker	28.05.03 21:58
Re: Bilder komprimieren	126	Ellen	31.05.03 17:35
Re: Bilder komprimieren	120	Martin01	28.05.03 21:56
Re: Bilder komprimieren	446	Peacemaker	28.05.03 22:12
Re: Bilder komprimieren	386	Graf Yoster	29.05.03 11:50
Re: Bilder komprimieren	421	Peacemaker	29.05.03 12:09
Re: Bilder komprimieren	77	Lars	30.05.03 19:46
Re: Bilder komprimieren	395	Graf Yoster	31.05.03 09:54
Re: Bilder komprimieren	411	Graf Yoster	29.05.03 12:47
Re: Bilder komprimieren	371	Peacemaker	29.05.03 12:57
Re: Bilder komprimieren	379	Graf Yoster	29.05.03 13:05
Re: Bilder komprimieren	376	Peacemaker	29.05.03 13:07
Re: Bilder komprimieren	384	Graf Yoster	29.05.03 13:26
Re: Bilder komprimieren	439	stefan220273	31.05.03 12:44

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen