Ich habe jetzt ganz dreißt einfach mal die
Unit "AbZLTyp.pas" in die UsesList geschrieben.
Mein Code sieht an der Stelle nun so aus:
Delphi-Quellcode:
var streams : array of TMemoryStream;
...
for i:=0 to cache.Count-1 do
begin
StreamOut := TFileStream.Create(Cache.Strings[i], fmCreate);
GzHelp := TAbZLStreamHelper.Create(Streams[i]);
try
GzHelp.ReadHeader; //Hier bleibt er stehen!
GzHelp.ExtractItemData(StreamOut);
GzHelp.ReadTail;
finally
GzHelp.Free;
Streams[i].Free;
StreamOut.Free;
end;
Jetzt kriege ich aber eine Hübsche "
Exception der Klasse EAbInternalInflateError mit der Meldung 'no more compressed data in Stream [TAbDfInBitStream.ReadBit]'"...!?