Delphi 使用 URLDownloadToFile 从 Internet 下载视频

Question

如何在Delphi中实现以下Windows函数？

HRESULT URLDownloadToFile(      
  LPUNKNOWN pCaller,
  LPCTSTR szURL,
  LPCTSTR szFileName,
  DWORD dwReserved,
  LPBINDSTATUSCALLBACK lpfnCB
);  

URLDownloadToFile 函数： http://msdn.microsoft.com/ en-us/library/ms775123(VS.85).aspx

提示我的问题是在这里提出的。

使用curlpp从youtube下载flv在卷曲之上 - 视频未播放

问候，Pieter。

Answer 1

uses
  URLMon, ShellApi;

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

Answer 2

例如，如果没有头文件，我们就无法知道 LPBINDSTATUSCALLBACK 是什么。最好的方法是搜索是否有人已经对整个头文件进行了转换。如果没有，请尝试一些 C 到 Delphi 转换器 (http://www.drbob42.com/delphi/headconv.htm, http://cc.embarcadero.com/item/26951）。请注意，他们只能转换 60-80% 的代码，但希望您感兴趣的部分能够被转换。如果您仍然遇到困难，请搜索标头的 VB 转换。比从 C 转换要容易得多。