如何从Delphi中的URL获取图像

发布时间：2020-12-15 10:05:45 所属栏目：大数据来源：网络整理

导读：我正在寻找任何代码示例,显示如何将图像从URL拉到Delphi TImage组件. 谢谢, 解决方法在TMemoryStream和Indy组件的帮助下. uses GIFImg;procedure TForm1.btn1Click(Sender: TObject);var MS : TMemoryStream; GIf: TGIFImage;begin MS := TMemoryStream.Cre

我正在寻找任何代码示例,显示如何将图像从URL拉到Delphi TImage组件.

谢谢,

解决方法

在TMemoryStream和Indy组件的帮助下.

uses
  GIFImg;

procedure TForm1.btn1Click(Sender: TObject);
var
  MS : TMemoryStream;
  GIf: TGIFImage;
begin
  MS := TMemoryStream.Create;
  GIf := TGIFImage.Create;
  try
    IdHTTP1.get('http://www.google.com/intl/en_ALL/images/logo.gif',MS);
    Ms.Seek(0,soFromBeginning);       
    Gif.LoadFromStream(MS);
    img1.Picture.Assign(GIF);

  finally
    FreeAndNil(GIF);
    FreeAndNil(MS);
  end;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!