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

这里提出了提示我的问题。

Downloading flv from youtube using curlpp on top of curl - video not playing

问候，彼得。

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。如果某人已经对整个头文件进行了转换，那么最好的方法是google。如果没有，那么尝试一些C到Delphi转换器（http://www.drbob42.com/delphi/headconv.htm，http://cc.embarcadero.com/item/26951）。请注意，他们只能转换60-80％的代码，但希望您感兴趣的部分将被转换。如果你仍然坚持这一切，那么搜索标题的VB转换。从C转换起来会容易得多。

Delphi使用URLDownloadToFile从Internet下载视频

2 个答案: