开发学院软件开发Delphi 使用TImage浏览与保存网络图像 阅读

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

 2006-02-04 13:49:55 来源:WEB开发网   
核心提示:网络ID:wnhoo or sos_admin网名:e梦缘Mail:wnhoo@163.com风花雪月 e梦情缘将http://delphi.ktop.com.tw/delphi.gif直接显示在timage中! 保存为文件,然后显示:uses UrlMon ;function DownLoadInternetFile

网络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;

Tags:使用 TImage 浏览

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接