BZip2, nur wie?

tommie-lie · Beiträge: 4373 Ubuntu 7.10 "Gutsy Gibbon"

Hi Leute,

Ich hab im Inet eine Unit gesucht, um mit BZip2 zu packen. Die hab ich auch gefunden. Nur bin ich absolut bluttiger Anfänger und hab keinen Plan, was ich damit mache.

Die Source war zu lang zum posten, deswegen gibt es sie unter
www.nelie.org/tommielie/BZIP2.PAS (auf GROß und klein-Schreibung achten)

Alle obj-Dateien hab ich, aber nur die Source hab ich hochgeladen.

Wie kann ich das Ding jetzt kompilieren/einbinden/wegwerfen/aufessen oder was man damit macht?
Ich bräuchte das Ding im Programm, nicht als DLL oder extra-Datei.

THX
tommie-lie

_________________
Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Wenn Du diese Unit einbindest erhälst Du unter anderem zwei neue Stream-Klassen: TBZDecompressionStream und TBZCompressionStream. Wenn Du z. B. die Daten bislang so speicherst:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

Var
  FS: tFileStream;
Begin
  FS := tFileStream.Create ('c:\test.dat', fmCreate);
  FS.Write (........}
  FS.Free;
End;

dann musst Du nun die o. g. Klasse mit benutzen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Var
  FS: tFileStream;
  CS: TBZCompressionStream;
Begin
  FS := tFileStream.Create ('c:\test.dat', fmCreate);
  CS := TBZCompressionStream (bs1, FS);
  CS.Write (........}
  CS.Free;
  FS.Free;
End;

Ich hab das jetzt nicht getestet. Einfach mal ausprobieren!

Gruß
Tino

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme