delphi idhttp中get 图像链接通过memorystream加载 image控件显示

uses
  jpeg;function TForm1.GetImage(url: string): boolean;
var
  MemoryStream:TMemoryStream;
  Idhttp:TIdhttp;
  Img: TJPEGImage;
begin
  MemoryStream:=TMemoryStream.Create   ;
  Idhttp:=Tidhttp.Create(nil);
  Img := TJPEGImage.Create;
  try
    Idhttp.Get(url,MemoryStream);
    MemoryStream.Position := 0;
    Img.LoadFromStream(MemoryStream);
    Image1.Picture.Bitmap.Assign(Img);
  finally
    MemoryStream.Free   ;
    Idhttp.Free;
    Img.Free;
  end;
end;

推荐分享