[Snake22]

Сообщение от angvelem

Ну так выложи пример, как делал.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var      ImgBuf:TStream;
begin
ImgBuf:=TStream.Create;
   with Archiver do
    begin
        FileName := 'arc.zip';
        OpenArchive(fmOpenRead);
        Archiver.ExtractToStream('1.jpg',ImgBuf);
        CloseArchive;
    end;
end;