gzip und zip entpacken

[gammatester]

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