Thema: Delphi gzip und zip entpacken

Einzelnen Beitrag anzeigen

gammatester

Registriert seit: 6. Dez 2005
999 Beiträge
 
#8

Re: gzip und zip entpacken

  Alt 25. Aug 2008, 11:52
Zitat von itashadow:
komm irgendwie nicht weiter:(
Zwei kurze Hinweise:

1) .gz-Datei solltest Du einfach lesen können.
2) .zip-Dateien nicht ohne einigen Aufwand.

Zu 1: Bei zlib gibt es die Datei gzio.c, die direktes arbeiten mit .gz-Dateien implementiert. Kann zZ nicht sagen, ob bei den Delphi-Distributionen sowas dabei ist (glaube eher nicht). Eine gzio.pas findest Du in meiner zlib 1.14-Implementation (basiert auf der nicht mehr gepflegten paszlib). Benutzbar wie folgt:

Delphi-Quellcode:
uses
  zlibh,gzio;
var
  f: gzfile;
  c: int;
begin
  f := gzopen(filename, 'r');
  while not gzeof(f) do begin
    c := gzgetc(f);
    if c>0 then write(char(c));
  end;
end.
Zu 2: Da gibts eigentlich viel Quellcode und Komponenten, im original C-Archive und meinem Port geht das mit dem Mini-Unzip-Programm MiniUnz.

Gruß Gammatester
  Mit Zitat antworten Zitat