RLE (32-Bit)

Implementierung

Beispiele

Seiteninfo

Kompression und Dekompression: 32-Bit-RLE

Text-Beispiel

Klartext (Text)

Komprimat (Text)

Bitmap-Beispiel

Klartext (Bitmap)

Komprimat (Bitmap)

Unrealistisches Beispiel

Klartext (unrealistisch)

Komprimat (unrealistisch)


	RLE RLE (8-Bit) RLE (16-Bit) RLE (24-Bit) RLE (32-Bit) RLE (alternierend)

Folgende Implementierung unter Delphi 5 ist weitgehend analog zur RLE-8Bit-Implementierung (siehe RLE (8-Bit) ), deshalb habe ich auch weitgehend die Kommentare weggelassen.

Wenn von Analogie die Rede ist, muss man auch hervorheben, wo genau der Unterschied vorhanden ist. Der wesentliche Unterschied liegt darin, dass gleiche Vorkommen von 32Bit-Zeichen komprimiert werden, gleiche Vorkommen von 8Bit-Zeichen werden dagegen nicht komprimiert. Statt den Methoden Try8BitCompress und Decode8 werden hier die Methoden Try32BitCompress und Decode32 verwendet, sonst bleibt alles beim Alten.

Es ist mir durchaus bewusst, dass die folgende Implementierung nicht sehr effizient ist. Mir kommt es hier mehr auf die Semantik bzw. Lesbarkeit an, auch wenn die Effizienz darunter leiden sollte.


	unit URle32Bit; interface uses Classes; procedure RLE32Compress(Source, Destination: TMemoryStream); procedure RLE32Decompress(Source, Destination: TMemoryStream); implementation type T8Bit = Byte; T32Bit = Longint; const CodeFlag: T8Bit = $FF; // binär: 1111 1111 NoCode: T8Bit = $00; // binär: 0000 0000 aus T8Bit\[1..MaxCount] MaxCount: T8Bit = $FE; // binär: 1111 1110 procedure RLE32Compress(Source, Destination: TMemoryStream); function Try32BitCompress: Boolean; var Counting: Boolean; Count: T8Bit; Try32Bit: packed array[0..1] of T32Bit; // zwei 32Bit-Zeichen Next32Bit: T32Bit; begin Result := FALSE; // Existenz von zwei 32Bit-Zeichen if (Source.Size - Source.Position < SizeOf(Try32Bit)) then Exit; // Vergleich der zwei 32Bit-Zeichen Source.ReadBuffer(Try32Bit, SizeOf(Try32Bit)); Source.Position := Source.Position - SizeOf(Try32Bit); if (Try32Bit[0] <> Try32Bit[1]) then Exit; // Neuer Rückgabewert: Komprimierversuch gelingt! Result := TRUE; Source.Position := Source.Position + SizeOf(Try32Bit); Count := High(Try32Bit) - Low(Try32Bit) + 1; // Länge der Prüfsequenz if (Source.Size - Source.Position >= SizeOf(Next32Bit)) then repeat Source.ReadBuffer(Next32Bit, SizeOf(Next32Bit)); Counting := (Try32Bit[0] = Next32Bit); if Counting then Inc(Count, 1) else Source.Position := Source.Position - SizeOf(T32Bit); until (not Counting) or (Count >= MaxCount) or (Source.Size - Source.Position < SizeOf(T32Bit)); Destination.WriteBuffer(CodeFlag, SizeOf(CodeFlag)); Destination.WriteBuffer(Count, SizeOf(Count)); Destination.WriteBuffer(Try32Bit[0], SizeOf(Try32Bit[0])); end; procedure NoCompress; var Next: T8Bit; begin if (Source.Size - Source.Position < SizeOf(T8Bit)) then Exit; Source.ReadBuffer(Next, SizeOf(Next)); Destination.WriteBuffer(Next, SizeOf(Next)); if (Next = CodeFlag) then Destination.WriteBuffer(NoCode, SizeOf(NoCode)); end; begin Source.Position := 0; Destination.Clear; while (Source.Size - Source.Position >= SizeOf(T8Bit)) do if not Try32BitCompress then NoCompress; Source.Position := 0; Destination.Position := 0; end; procedure RLE32Decompress(Source, Destination: TMemoryStream); var CodeCount: T8Bit; Next: T8Bit; procedure Decode32(Count: T8Bit); var i: T8Bit; MultiNext: T32Bit; begin Source.ReadBuffer(MultiNext, SizeOf(MultiNext)); for i := Count downto 1 do Destination.WriteBuffer(MultiNext, SizeOf(MultiNext)); end; begin Source.Position := 0; Destination.Clear; while (Source.Size - Source.Position >= SizeOf(T8Bit)) do begin Source.ReadBuffer(Next, SizeOf(Next)); if (Next = CodeFlag) then begin Source.ReadBuffer(CodeCount, SizeOf(CodeCount)); if (CodeCount = NoCode) then Destination.WriteBuffer(Next, SizeOf(Next)) else Decode32(CodeCount); end else Destination.WriteBuffer(Next, SizeOf(Next)); end; Source.Position := 0; Destination.Position := 0; end; end.

Das folgende Beispiel ist eine Text-Datei.

Die Zeichenfolge '0D 0A' ist ein Zeilenumbruch.

Das folgende Beispiel ist eine 16-Farben-Bitmap-Datei, die ein graues X auf schwarzem Hintergrund repräsentiert.

Das folgende Beispiel ist eine Text-Datei mit 220 a's gefolgt von 2 Blanks gefolgt von 300 b's gefolgt von 2 Blanks gefolgt von 220 c's

Dieses Beispiel ist recht unrealistisch; derartige Dateien sind selten!

00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15

00 16 32 48 64

48 61 61 61 61 61 61 61 61 61 61 61 61 6C 6C 6F 21 21 21 0D 0A 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 63 68 20 62 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 6E 73 21 21 21 21

Haaaaaaaaaaaallo !!!··iiiiiiiiiii iiiiiiiiiiiiiiii ch biiiiiiiiiiii iiiiiiiiins!!!!

Letzte Änderung:	Sonntag, den 15. März 2009
Generierungszeitpunkt:	Mittwoch, den 8. September 2010 um 3:24 Uhr
Domain:	www.stefan-baur.de
Pfad:	Startseite Informatik Algorithmen Komprimieren RLE RLE (32-Bit)


RLE RLE (8-Bit) RLE (16-Bit) RLE (24-Bit) RLE (32-Bit) RLE (alternierend)	Symbole Startseite Sitemap Downloads Hilfe Impressum Pflichtenheft	Designs Design 2010 Design 2009 Design 2007 Design 2006 Design 2005 Design 2004 Printversion