从网络上下载文件的两种方法
2010-04-10 16:54
375 查看
两种方法使用的Com函数都来源于UrlMon,记得先引用。
function URLDownloadToFile(
Caller: IUnknown;
URL: PWideChar; { 下载的路径 }
FileName: PWideChar; { 保存到的路径 }
Reserved: DWORD;
StatusCB: IBindStatusCallback
): HResult; stdcall;
调用示例:
if UrlDownloadToFile(nil, 'http://www.xxxx.com/xxx.xx', 'c:/1.xx', 0, nil) = 0 then
MessageBox(handle, '下载成功', '', 0)
else
MessageBox(handle, '下载失败', '', 0);
URLDownloadToFile下载文件前先在本地的缓存中查找文件,如果缓存有则不会再去网上抓最新的文件,希望总是获取新文件时可在URL后加一个随机数,或用DeleteUrlCacheEntry(URL)清理缓存后再下载
function URLOpenStream(
p1: IUnknown;
p2: PWideChar; { 下载的路径 }
p3: DWORD;
p4: IBindStatusCallback { 接口, 下载后的通过它取得数据 }
): HResult; stdcall;
function URLOpenStreamA(p1: IUnknown; p2: PAnsiChar; p3: DWORD; p4: IBindStatusCallback): HResult; stdcall;
function URLOpenStreamW(p1: IUnknown; p2: PWideChar; p3: DWORD; p4: IBindStatusCallback): HResult; stdcall;
IBindStatusCallback 接口的实现
end;
一、URLDownloadToFile
直接下载文件到磁盘,URLDownloadToFile声明如下:function URLDownloadToFile(
Caller: IUnknown;
URL: PWideChar; { 下载的路径 }
FileName: PWideChar; { 保存到的路径 }
Reserved: DWORD;
StatusCB: IBindStatusCallback
): HResult; stdcall;
function URLDownloadToFileA(Caller: IUnknown; URL: PAnsiChar; FileName: PAnsiChar; Reserved: DWORD; StatusCB: IBindStatusCallback): HResult; stdcall; function URLDownloadToFileW(Caller: IUnknown; URL: PWideChar; FileName: PWideChar; Reserved: DWORD; StatusCB: IBindStatusCallback): HResult; stdcall;
调用示例:
if UrlDownloadToFile(nil, 'http://www.xxxx.com/xxx.xx', 'c:/1.xx', 0, nil) = 0 then
MessageBox(handle, '下载成功', '', 0)
else
MessageBox(handle, '下载失败', '', 0);
URLDownloadToFile下载文件前先在本地的缓存中查找文件,如果缓存有则不会再去网上抓最新的文件,希望总是获取新文件时可在URL后加一个随机数,或用DeleteUrlCacheEntry(URL)清理缓存后再下载
二、URLOpenStream
下载到 IStream 流,声明为:function URLOpenStream(
p1: IUnknown;
p2: PWideChar; { 下载的路径 }
p3: DWORD;
p4: IBindStatusCallback { 接口, 下载后的通过它取得数据 }
): HResult; stdcall;
function URLOpenStreamA(p1: IUnknown; p2: PAnsiChar; p3: DWORD; p4: IBindStatusCallback): HResult; stdcall;
function URLOpenStreamW(p1: IUnknown; p2: PWideChar; p3: DWORD; p4: IBindStatusCallback): HResult; stdcall;
IBindStatusCallback 接口的实现
TBindStatusCallback = class(TInterfaceList, IBindStatusCallback) public function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall; function GetPriority(out nPriority): HResult; stdcall; function OnLowResource(reserved: DWORD): HResult; stdcall; function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall; function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall; function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall; function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc; stgmed: PStgMedium): HResult; stdcall; function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;
end;
{ TBindStatusCallback } function TBindStatusCallback.GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; begin Result := S_OK; end; function TBindStatusCallback.GetPriority(out nPriority): HResult; begin Result := S_OK; end; function TBindStatusCallback.OnDataAvailable(grfBSCF, dwSize: DWORD; formatetc: PFormatEtc; stgmed: PStgMedium): HResult; var Stream: IStream; MS: TMemoryStream; begin if dwSize > 0then begin Stream := IStream(stgmed.stm); MS := TMemoryStream.Create; MS.SetSize(dwSize); Stream.Read(MS.Memory, dwSize, nil); //从MS取数据... MS.Free; Result := S_OK; end else Result := E_ABORT; end; function TBindStatusCallback.OnLowResource(reserved: DWORD): HResult; begin Result := S_OK; end; function TBindStatusCallback.OnObjectAvailable(const iid: TGUID; punk: IInterface): HResult; begin Result := S_OK; end; function TBindStatusCallback.OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; begin //可实现侦测进度,实现代码在此写 Result := S_OK; end; function TBindStatusCallback.OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; begin Result := S_OK; end; function TBindStatusCallback.OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; begin Result := S_OK; end;
调用代码: var url: [b]string; MyBindStatusCallback: IBindStatusCallback;[/b]
begin MyBindStatusCallback := TBindStatusCallback.Create; if Succeeded(URLOpenStream(nil, 'http://www.xxxx.com/xxx.xx', 0, MyBindStatusCallback)) then //下载成功! else //下载失败!; end;
相关文章推荐
- 从网络上下载文件的两种方法
- Android编程使用WebView实现文件下载功能的两种方法
- php实现远程网络文件下载到服务器指定目录(方法一)
- iOS网络编程---根据URL下载网络文件的方法
- linux远程下载文件 的两种方法之 ftp命令和scp命令
- VB.NET中使用FTP下载文件的两种方法
- iOS UI 15 网络编程下载 图片 音乐 大文件 视频 get/ post方法
- C#限速下载网络文件的方法实例
- PHP下载文件的两种方法
- Linux远程下载文件的两种方法之 ftp命令和scp命令
- 解析PHP实现下载文件的两种方法
- 两种 js下载文件的方法(转)
- php 下载保存文件保存到本地的两种实现方法
- SpringMVC实现文件下载的两种方法
- 【转】php 下载保存文件保存到本地的两种实现方法
- C#读写txt文件的两种方法介绍【申明:来源于网络】
- php实现远程网络文件下载到服务器指定目录(方法二)
- php 下载保存文件保存到本地的两种方法
- php实现远程网络文件下载到服务器指定目录(方法一)
- Linux远程下载文件的两种方法之 ftp命令和scp命令