下載進度表 |
答題得分者是:frankiech
|
cyl
中階會員 發表:163 回覆:171 積分:66 註冊:2002-07-11 發送簡訊給我 |
|
frankiech
中階會員 發表:7 回覆:78 積分:52 註冊:2002-08-29 發送簡訊給我 |
引言: 請問我使用此方法URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) 下載http上的某一個檔案,但是我想顯示下載的進度表,不知該如何做???HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, DWORD dwReserved, LPBINDSTATUSCALLBACK lpfnCB ); 可在 LPBINDSTATUSCALLBACK lpfnCB的CallBack Interface : IBindStatusCallback::OnProgress 去處理. |
cyl
中階會員 發表:163 回覆:171 積分:66 註冊:2002-07-11 發送簡訊給我 |
引言:可不可以寫一段範例給我看看,因為我不是很了解,謝謝引言: 請問我使用此方法URLDownloadToFile(nil,PChar(Source),PChar(Dest),0,nil) 下載http上的某一個檔案,但是我想顯示下載的進度表,不知該如何做???HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, DWORD dwReserved, LPBINDSTATUSCALLBACK lpfnCB ); 可在 LPBINDSTATUSCALLBACK lpfnCB的CallBack Interface : IBindStatusCallback::OnProgress 去處理. |
frankiech
中階會員 發表:7 回覆:78 積分:52 註冊:2002-08-29 發送簡訊給我 |
你可參考這個元件(IEDownload)的Source : 它有使用IBindStatusCallback
,看一下它是如何Implement IBindStatusCallback. http://www.euromind.com/iedelphi/iedownload.htm ex:
TBSCB = class(TInterfacedObject, IBindStatusCallback)
public
function OnLowResource(reserved: DWORD): HResult; stdcall;
function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG;
szStatusText: LPCWSTR): HResult; stdcall;
function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall;
function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall;
function OnDataAvailable(grfBSCF: DWORD; dwSize: DWORD; formatetc: PFormatEtc;
stgmed: PStgMedium): HResult; stdcall;
function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;
function GetPriority(out nPriority): HResult; stdcall;
function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall; end;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |