Delphi Descargar Video de Internet usando URLDownloadToFile

Question

¿Cómo puedo implementar la siguiente función de Windows en Delphi?

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

URLDownloadToFile Función: http://msdn.microsoft.com/en-us/library/ms775123(VS.85).aspx

La pregunta que me impulsó pidieron aquí.

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

Saludos, 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

Sin archivo de cabecera no podemos saber qué es LPBINDSTATUSCALLBACK por ejemplo. El mejor enfoque es buscar en Google si alguien ya ha realizado una conversión de todo el archivo de encabezado. Si no hay uno, pruebe con un convertidor de C a Delphi (http://www.drbob42.com/delphi/headconv.htm, http://cc.embarcadero.com/item/26951). Tenga en cuenta que solo pueden convertir el 60-80% del código, pero con suerte la parte que le interese se convertirá. Si aún estás atorado después de todo esto, busca la conversión de VB del encabezado. Será mucho más fácil que la conversión de C.