delphi下载网络图片

1、添加一个空间image ，一个哨级idhttp，一个button控件即可

2、双击Button

写上代总物暗码

const

  sURL='此处jpg地址';

var

  jpg:TJPEGImage;

  sm:TMemoryStream;

begin

  try

  sm:=TMemoryStream.Create;

  jpg:=TJPEGImage.Create;

  idhtp1.Get(sURL,sm);

  sm.Position:=0;

  jpg.LoadFromStream(sm);

  img1.Picture.Assign(jpg);

  except

 速迅   jpg.Free;

    sm.Free;

    Exit;

  end;

3、点击下载