Question

Delphi中如何用Image控件显示网络图片

Delphi中如何用Image控件显示网络图片

Answer 1

在窗体添加一个Image,一个IdHttp,一个Button

uses Jpeg
procedure TForm1.Button1Click(Sender: TObject);
var
imagestream:TMemoryStream;
jpg:TJpegImage;
begin
imagestream := TMemoryStream.Create();
jpg:=TJpegImage.Create;
idhttp1.Get('http://www.ggyy8.com/Files/comic/500x300/H/Naruto.jpg',imagestream);
imagestream.Position:=0;
jpg.LoadFromStream(imagestream);
image1.Picture.Assign(jpg);
end;