procedure TForm1.Button1Click(Sender: TObject);
var
tms: tmemorystream;
jpg: tjpegimage;
begin
tms := tmemorystream.Create;
IdHTTP1.Get('http://218.204.253.41/ydPicFile/pic/20060526/A11235/A1123516.jpg', tms);
tms.Position := 0;
jpg:=tjpegimage.Create ;
jpg.LoadFromStream(tms);
Image1.Picture.Assign(jpg);
end;
var
tms: tmemorystream;
jpg: tjpegimage;
begin
tms := tmemorystream.Create;
IdHTTP1.Get('http://218.204.253.41/ydPicFile/pic/20060526/A11235/A1123516.jpg', tms);
tms.Position := 0;
jpg:=tjpegimage.Create ;
jpg.LoadFromStream(tms);
Image1.Picture.Assign(jpg);
end;
本文介绍了一个使用Delphi从网络加载图片到本地应用程序的方法。通过TMemoryStream和TJPEGImage组件,实现了从指定URL获取图片,并将其显示在Delphi应用的Image组件上。
1587

被折叠的 条评论
为什么被折叠?



