Delphi加载网络图片

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

love3s

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

阅读量5.5k

点赞数

分类专栏： Delphi 文章标签： delphi 网络 image

Delphi 专栏收录该内容

41 篇文章

订阅专栏

Delphi加载网络图片
uses Jpeg
procedure TForm1.Button1Click(Sender: TObject);
var
    imagestream:TMemoryStream;
    jpg:TJpegImage;
begin
    imagestream := TMemoryStream.Create();
    jpg:=TJpegImage.Create;
    idhttp1.Get('http://www.ggyy8.com/Files/comic/500x300/H/Naruto.jpg',imagestream);
    imagestream.Position:=0;
    jpg.LoadFromStream(imagestream);
    image1.Picture.Assign(jpg);
end;