Друзья, помогите. Нужно, чтобы можно было загрузить картинку из интернета в TImage форматов jpg, png, gif и пр.
Я так понимаю, что делается это через MemoryStream, но как - не знаю.
Нашел следующий код:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | procedure TForm1 . DownloadJPG(url: string ;im:TImage);
var
strStream: String ;
memStream: TMemoryStream;
jpegimg: TJPEGImage;
begin
try
strStream := Form1 . idhttp1 . Get (url);
except
Exit;
end ;
memStream := TMemoryStream . Create;
jpegimg := TJPEGImage . Create;
try
memStream . Write (strStream[ 1 ], Length(strStream));
memStream . Position := 0 ;
jpegimg . LoadFromStream(memStream);
im . Picture . Assign(jpegimg);
finally
memStream . Free;
jpegimg . Free;
end ;
end ;
|
Пытаюсь загрузить png. Не хочет. Может есть какой-нибудь код для загрузки любых форматов?