tommie-lie - So 21.07.02 11:21
Titel: BZip2, nur wie?
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
http://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
Tino - So 21.07.02 11:36
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:
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:
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