Hi Leute,
ich möchte gerne eine GZIP gepackte Datei (von einem Java-Programm (minecraft) erzeugt) entpacken. Die kleine Bastelarbeit sieht derzeit so aus:
(Eigentlicher Dienstleister
function TForm1.entGZip(const gzin: TStream): string;
var
dcStr: TZDecompressionStream;
buf: array[0..1000] of char;
cntr: integer;
begin
dcStr:= TZDecompressionStream.Create(gzin);
repeat
cntr:= dcStr.read(buf, 1000);
result:= result + buf;
until cntr < 1000;
dcStr.free
end;
(Aufruf in einer procedure
fils:=TFileStream.create(src, fmOpenRead);
mem.text:=entGZip(fils);
fils.free
Die ZLibEx wir dafür benutzt. Die wirft dann die
Exception:
raise EZDecompressionError.Create(code);
mit der Nachricht "data error" (toller Informationsgehalt). Scheint eine größere Angelegenheit zu sein, denn das Fehlerfenster von Delphi ist zickig (wird beim Verschieben nicht korrekt neu gezeichnet resp. der alte Inhalt bleibt bestehen). Hat einer eine Idee, warum?
Danke, LG Uli