Also, da ich bis jetzt anders nicht weiter gekommen bin versuche ich es noch mal so:
Delphi-Quellcode:
for i:=0 to cache.Count-1 do
begin
GzHelp := TAbZLStreamHelper.Create(Streams[i]);
GzHelp.ReadHeader;
if GzHelp.FindFirstItem then
repeat
StreamOut := TFileStream.Create(GzHelp.Item.FileName, fmCreate); //Hier ist der Fehler!
GzHelp.ExtractItemData(StreamOut);
StreamOut.Free;
until GzHelp.FindNextItem=false;
GzHelp.ReadTail;
GzHelp.Free;
Streams[i].Free;
...
end;
"Streams" ist ein Array of TMemoryStream. Die Position jedes Streams ist "0". In "Streams[i]" befindet sich nichts anderes als ein Zip-Packet (unbeschädigt!).
Folgende Fehlermeldung: 'Datei "" kann nicht erstellt werden' Warum?
Er findet ein Item, wäre das nicht der Fall würde er ja garnicht in die Schleife gehen. Wenn er ein Item gefunden hat, hat er doch eine Datei innerhalb des Zip-Packets (Streams[i]) gefunden, oder verstehe ich das falsch?