Oppure

Loading
22/02/08 11:24
albertking82
Ciao a tutti .
Vorrei creare un'applicazione che permette di scaricare i video su youtube o siti simili.I video sono di estensione .FLV.
Ho utilizzato l'API URLDOWNLOADTOFILE.
Il file si scarica ma quando lo apro con flvplayer non lo vede.I file scaricati sono sempre 114 kb.Conoscete qualche libreria o API specifica per sviluppare tale applicazione?

Ilcodice che ho usato è questo :

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long

private sub cmddownload_click()
Dim errcode As Long
Dim url As String
Dim localFileName As String

url = text1.text
localFileName = "c:\file.zip"

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
    MsgBox "Download ok"
Else
    MsgBox "Errore"
End If
end sub


[edit] Usa il tag CODE! [/edit]
Ultima modifica effettuata da Shutdown 22/02/08 15:23
aaa
22/02/08 14:42
GrG
bè cmq questo codice nn me lo fa scaricare il video da youtube....

Ti dico un trucco, quando il video ha finito di caricare (la barra rossa x intenderci) se vai nella cartella C:\documents and Settings\tuoUser\impostazioni locali\Temporary Internet Files\get_video(blabla).flv

trovi il video praticamente già scaricato XD e funzionante
aaa
22/02/08 16:27
P4p3r0g4
incrociando il tuo consiglio con un webbrowser (il componente webbrowser) si puo far caricare il video e poi spostarlo nella cartella prescelta, no?
aaa
22/02/08 17:06
GrG
questo è un modo, ke è anke quello ke avevo pensato io...
aaa