Delphi使用URLDownloadToFile从互联网下载视频

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 van Wyk

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;

- G-Man

---

谢谢！在发布问题之前，我应该更加努力地查看Delphi单元。 - Pieter van Wyk

Answer 2

没有头文件，我们就不知道LPBINDSTATUSCALLBACK是什么。最好的方法是在谷歌上搜索是否已经有人转换了整个头文件。如果没有，那么尝试一些C到Delphi的转换器（http://www.drbob42.com/delphi/headconv.htm，http://cc.embarcadero.com/item/26951）。请注意，它们只能转换60-80％的代码，但希望您感兴趣的部分将被转换。如果您在所有这些操作之后仍然卡住了，那么请搜索头文件的VB转换。这比从C进行转换要容易得多。

- avra