Neue Zip-Archiv Komponente

[bernau]

Zitat von Willie1:

Hallo Himitsu, wie meinst du das mit TMemoryStream?

Du musst nicht den Umweg über eine Datei auf der Festplatte gehen. Du kannst die Bilder direkt aus dem ZipFile in ein Bitmap o.ä. laden.

Verwende System.Zip.TZipFile.Read

procedure Read(const FileName: string; out Stream: TStream; out LocalHeader: TZipHeader); overload;

Also ungefähr so (Nicht getestet, sondern nur hingetippt. Habe diese ZIP-Komponente noch nicht verwendet). Den Rest macht Google delphi tzipfile read TMemoryStream example

Delphi-Quellcode:

var
  myMemoryStream:TMemoryStream;
  hdr:TZipHeader;
begin
  myMemoryStream:=TMemoryStream.Create;
    try
      zipfile.Read('myPicutre.bmp',myMemoryStream,hdr);
      myBitmap.LoadFromStream(myMemoryStream);
    finally
      myMemoryStream.Free;
    end;
end;