frmUpdate = class(TForm,IBindStatusCallback)
ImgTop: TImage;
LblTop: TLabel;
SpdBtnClose: TSpeedButton;
Bevel1: TBevel;
plStatus: TPanel;
plInfo: TPanel;
btnCancel: TFlatSpeedButton;
tmrUdapte: TTimer;
plProgress: TPanel;
procedure tmrUdapteTimer(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure ImgTopMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
procedure SpdBtnCloseClick(Sender: TObject);
private
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;
function GetHTMLFile(URL, FileName: string): HRESULT;
public
{ Public declarations }
end;
//------------------------------------------------------------------------------
function TfrmUpdate.GetHTMLFile( URL , FileName : string) : HRESULT;
var
status : IBindStatusCallback ;
begin
status := IBindStatusCallback(self);
result := UrlDownLoadToFile(nil, pChar( URL ) ,pChar( FileName ),0 ,Status );
end;
//------------------------------------------------------------------------------
function TfrmUpdate.GetBindInfo(out grfBINDF: DWORD;
var bindinfo: TBindInfo): HResult;
begin
result := E_NOTIMPL;
end;
//------------------------------------------------------------------------------
function TfrmUpdate.GetPriority(out nPriority): HResult;
begin
result := E_NOTIMPL;
end;
//------------------------------------------------------------------------------
function TfrmUpdate.OnDataAvailable(grfBSCF, dwSize: DWORD;
formatetc: PFormatEtc; stgmed: PStgMedium): HResult;
begin
result := E_NOTIMPL;
end;
//------------------------------------------------------------------------------
function TfrmUpdate.OnLowResource(reserved: DWORD): HResult;
begin
result := E_NOTIMPL;
end;
//------------------------------------------------------------------------------
function TfrmUpdate.OnObjectAvailable(const iid: TGUID;
punk: IInterface): HResult;
begin
result := E_NOTIMPL;
end;
//------------------------------------------------------------------------------
function TfrmUpdate.OnStartBinding(dwReserved: DWORD;
pib: IBinding): HResult;
begin
result := E_NOTIMPL;
end;
//------------------------------------------------------------------------------
function TfrmUpdate.OnStopBinding(hresult: HResult;
szError: LPCWSTR): HResult;
begin
result := E_NOTIMPL;
end;
http://www.applevb.com
分享到:
相关推荐
利用URLdownloadtofile 下载文件并显示进度条,下载百分比的例程,没有使用任何第三方控件,在delphi xe7下测试通过。
使用线程调用URLDownloadToFile下载URL文件,同时显示进度,可暂停下载,VS2010编译通过
这是一个用VB写的带回调函数的URLDownloadToFile下载源代码。
能看到下载进度的URLDownloadToFile实例
vs2015MFC项目只要改成自己的下载地址,就可以实现文件下载。
visual 2008下编译通过。简单的实现了URLDownloadToFile下载文件,同时包含了进度条的显示。利用线程来进行相关操作避免了主线程的阻塞
VB开发的下载类实例,输入下载地址、目标路径,即开始下载,下载进度事件中可得到下载速度、进度等详细信息,含有Demo演示代码,模块使用URLDownloadToFile函数,继承了IBindStatusCallback接口来取得下载信息,这个...
VC++经典例子,使URLDownloadToFile实现下载文件
Qt 案例 使用QNetworkReply或URLDownloadToFile两种方式下载http资源到本地电脑,同时实现显示资源的下载速度,剩余时间,下载进度,以及暂停下载,停止后重新继续下载等相关功能。用于对比 使用QNetworkReply(Qt)与...
使用UrlDownloadToFile下载文件,可显示进度。
vb调用URLDownloadToFile Api下载文件实例
内容索引:VC/C++源码,网络相关,URLDownloadToFile VC++使用URLDownloadToFile下载文件程序实例,URLDownloadToFile的使用是相当广泛的,不过还是有不少的VC新手朋友对其用法不太了解,通过这个实例 ,希望能帮助你...
URLDownloadToFile被误杀解决办法 URLDownloadToFile总是被杀毒软件误报病毒,本人采用的解决办法是:将api声明中的“urlmon”改为“myurlmon”,源码见附件
URLDownloadToFile函数下载远程文件,可以实现断点续传,通过progressbar也可以实现进度条显示,下载百分比,下载速度的显示,另外也包含读取,写入ini文件的源码..通过setup factory7的文件打包,实现了通过网络更新本地...
http下载,实现 目标另存为 的效果。可以自行编辑下载路径,可显示下载文件的大小,当前已下载大小,下载时间,以及下载进度条。该工程在vs2003中编译、运行成功。该资源来自网络,就不要分了。
朋友们对Internet文件下载一定不陌生,如果不讲究下载细节,一个API函数URLDownloadToFile就能搞定。但如果你要下载的数据量较大,或你的软件需要在线升级,那么,还是给个进度条让用户看看,免得让人以为你的软件...
易语言进度下载源码,进度下载,QueryInterface,AddRef,Release,OnStartBinding,GetPriority,OnLowResource,OnProgress,OnStopBinding,GetBindInfo,OnDataAvailable,OnObjectAvailable,URLDownloadToFile
内容索引:VB源码,网络相关,下载 今天发一个VB下载模块,输入下载地址、目标路径,即开始下载,下载进度事件中可得到下载速度、进度等详细信息,含有Demo演示代码,模块使用URLDownloadToFile函数,继承了...
用URLDownloadToFile这个API函数写的简易下载程序,有进度条。
前几天美国数学建模成绩出了,我们按照网址下载了自己的证书,另外想看看学校今年的获奖情况,由于学校的参赛队伍数众多,一个一个下载证书再统计显得麻烦,于是想自己用matlab开发一个小程序以实现同类型文件的批量...