Delphi Скачать видео из Интернета, используя URLDownloadToFile

Question

Как я могу реализовать следующую функцию Windows в Delphi?

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

Функция URLDownloadToFile: http://msdn.microsoft.com/en-us/library/ms775123(VS.85).aspx

Вопрос, который мне подсказал, был задан здесь.

Загрузка FLV с YouTube с помощью curlpp поверх curl - видео не воспроизводится

С уважением, Питер.

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.