Delphi URLDownloadToFile

Question

kullanarak Internet'ten Video İndirme

Aşağıdaki Windows işlevini Delphi'de nasıl uygularım?

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

URLDownloadToFile Fonksiyonu: Beni burada istendi istendiğinde http://msdn.microsoft.com/en-us/library/ms775123(VS.85).aspx

soru.

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

Selamlar 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

Başlık dosyası olmadan, LPBINDSTATUSCALLBACK örneğinin ne olduğunu bilmiyoruz. En iyi yaklaşım, birisi zaten tüm başlık dosyasının bir dönüşümünü yapmışsa, google'a gitmek. Eğer bir değilse, o zaman Delphi çeviriciden C'yi deneyin (http://www.drbob42.com/delphi/headconv.htm, http://cc.embarcadero.com/item/26951). Sadece kodun% 60-80'ini dönüştürebileceğine dikkat edin, ancak umarız ilginizi çekecek kısmı dönüştürülecektir. Tüm bunlardan sonra hala takılırsanız, üstbilginin VB dönüşümü için arama yapın. Daha sonra dönüşüm çok daha kolay olacaktır.