Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
Delphi 12 Athens
|
AW: TZipFile und TMemoryStream
8. Feb 2021, 18:23
Ca 100 dieser Dateien sind in dem Zip-Archiv gespeichert und ich will sie öffnen, ohne sie auf der Platte (zwischen)speichern zu müssen.
Eventuell so:
Delphi-Quellcode:
var
header: TZipHeader;
matrix: TFussballMatrix;
MyZip: TZipFile;
stream: TStream;
begin
...
MyZip.Read(0, stream, header);
try
stream.Read(matrix, Sizeof(matrix));
finally
stream.Free;
end;
...
|