使用TImage浏览与保存网络图像

网络ID:wnhoo or sos_admin
网名:e梦缘
Mail:wnhoo@163.com
风花雪月 e梦情缘

将http://delphi.ktop.com.tw/delphi.gif直接显示在timage中！

保存为文件，然后显示：

uses UrlMon ;
function DownLoadInternetFile(Source, Dest : String) : Boolean;
begin
try
Result := URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) = 0
except
Result := False;
end;
end;

保存为Tsream，然后显示:
procedure TForm1.Button1Click(Sender: TObject);
var
tm: TMemoryStream;
begin
try
tm := TMemoryStream.Create;
IdHTTP1.Get(''''http://delphi.ktop.com.tw/delphi.gif'''', tm);
ShowMessage(''''OK'''');
finally
tm.Free;
end;
end;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有