[Snake22]

Здраствуйте. Если кто работал с компонентом ZipForge может знаете как мне из архива извлеч картинку сразу в программу,а то сейчас пирходиться извлекать на жесткий диск,считывать с диска в программу и файл удалять,
там вроде через поток данных както надо делать? я с ними не работал еще может кто научит? гуглиньё чтото не помогло.
только не пишите плиз юзать другой архиватор,у меня уже пол программы с этим написано

[angvelem]

Я не пользуюсь этим компонентом, но я не поленился зайти на официальный сайт производителя и посмотреть примеры на Дельфи, которые там выложены. Может и Вам стоит это сделать, а уж потом, если не получится, задать вопрос?

[Snake22]

я справку читал.я написал что с потоками данных не работал,пробовал как в примере ExtractTo Stream делать но у меня всячески на эти стреамы ругается.

[angvelem]

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

[Snake22]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

[Snake22]

Такс кое что получилось.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); var         ImgBuf:TMemoryStream;       Bm:TBitmap; begin ImgBuf:=TMemoryStream.Create; bm:=TBitmap.Create;    with Archiver do     begin         FileName := 'arc.zip';         OpenArchive(fmOpenRead);         Archiver.ExtractToStream('1.bmp',ImgBuf);         CloseArchive;     end; ImgBuf.Position:=0; Bm.LoadFromStream(ImgBuf); Bm.SaveToFile('2.bmp'); end;

но это так,для пробы загрузки из потока.
а теперь надо чтоб из архива загружался JPEG файл и появлялся в TImag'e

[Snake22]

кажется так надо?

Код:

1 2 3 4 5 6 7 8 9

var ... JPG:TJPEGImage; .... begin JPG:=TJPEGImage.Create; ... ImgBuf.Position:=0; JPG.LoadFromStream(ImgBuf);

как теперь TImag'у присвоить картинку из TJPEG ?

[Snake22]

ура получилось
Image1.Picture.Assign(JPG);
=)
спасибо за пинок так сказать)

[angvelem]

Вот архив:
Но ты уже и сам справился.