delphi中如何用image控件显示网络图片

最新推荐文章于 2023-11-04 11:45:51 发布

原创最新推荐文章于 2023-11-04 11:45:51 发布 · 2.4k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#image #delphi #网络

本文介绍了一种使用Delphi从URL加载图片的方法。通过创建TMemoryStream和TJpegImage实例，利用IdHttp组件发起HTTP请求获取图片数据，并将其加载到TForm上的Image控件中进行显示。

在窗体添加一个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://img466.ph.126.net/Ec1UwEf2zmavmPCIjXb7tA==/180988410025918883.jpg',imagestream);
    imagestream.Position:=0;
    jpg.LoadFromStream(imagestream);
    image1.Picture.Assign(jpg);
end;