Как сохранить изображение по ссылке? Indy.

[TwiX]

Думал, сначала в stream, потом в имадже loadfromstream, но не нашёл)

[DomiNick]

Из старой подборки:

Uses jpeg;

...

Procedure TForm1.Button1Click(Sender: TObject);
Var ms: TMemoryStream; gif: TJPEGImage;
Begin
ms:=TMemoryStream.Create;
IdHTTP1.Get('http://dominickdark.narod.ru/DWar.jpg', ms);
ms.Position:=0;
gif:=TJPEGImage.Create;
gif.LoadFromStream(ms);
Image1.Picture.Assign(gif);
gif.Free;
ms.Free;
End;

[TwiX]

А если bmP?

[DomiNick]

А если bmP?

Procedure TForm1.Button2Click(Sender: TObject);
Var ms: TMemoryStream; bmp: TBitmap;
Begin
ms:=TMemoryStream.Create;
IdHTTP1.Get('http://dominickdark.narod.ru/TmP/wda.bmp', ms);
ms.Position:=0;
bmp:=TBitmap.Create;
bmp.LoadFromStream(ms);
Image1.Picture.Assign(bmp);
bmp.Free;
ms.Free;
End;

[TwiX]

Спасибо )