Delphi读取网络图片

上方 uses 后添加个 Jpeg

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

 

procedure TForm1.Button1Click(Sender: TObject); 
var 
imagestream:TMemoryStream; 
jpg:TJpegImage; 
begin 
imagestream := TMemoryStream.Create(); 
jpg:=TJpegImage.Create; 
idhttp1.Get('http://图片地址.jpg',imagestream); //修改此处网址就可以
imagestream.Position:=0; 
jpg.LoadFromStream(imagestream); 
image1.Picture.Assign(jpg); 
end;
只能读取开放图片。必须有外网。