当前位置:主页>Delphi教程>文章内容
使用TImage浏览与保存网络图像
来源: 作者: 发布时间:2007-04-29  

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

/upimg/20070429/11MN292PF32G5.jpg直接显示在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('
/upimg/20070429/11MN292PF32G5.jpg', tm);
        ShowMessage('OK');
    finally
tm.Free;
    end;
end;


 
上一篇:关于流的使用资料及相关实例   下一篇:Delphi控制Excel的重要属性和方法
 
  相关文章
·关于流的使用资料及相关实例
·Delphi控制Excel的重要属性和方法
·数字随机排序
·Delphi的接口陷阱
·Format的用法
·用DELPHI实现文件加密压缩
·將字串传入到Windows目前窗口Cursor所
·VCL中网格控件原理分析
·用Delphi对SQL-DMO进行封装的一种实现
·利用Indy的TIdFtp控件实现FTP协议
·防止程序多次运行
·Delphi部分函数、命令、属性中文说明
 
【关闭窗口】
推荐本站资源
最新文章