优快云问答：用UrlDownloadToFile下载时得到下载的进度（转载）

最新推荐文章于 2021-03-10 10:19:52 发布

TechnoFantasy

最新推荐文章于 2021-03-10 10:19:52 发布

阅读量4.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 优快云问答文章标签： function integer string url class

本文链接：https://blog.youkuaiyun.com/TechnoFantasy/article/details/415631

Delphi 同时被 2 个专栏收录

18 篇文章

订阅专栏

优快云问答

14 篇文章

订阅专栏

博客展示了TfrmUpdate类的定义，包含多个组件和事件处理过程。同时定义了多个函数，如GetHTMLFile用于从URL下载文件，还有多个与绑定状态回调相关的函数，部分函数返回E_NOTIMPL。还给出了一个URL。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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