Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Come posso integrare una funzione di download diretto?
Tipo clicco sul bottone e aprte un download diretto da windows explorer.....tipo come craagle....grazie e scusatemi del disturbo
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
per scaricare file da internet devi usare inet, se googli trovarei esempi utili...
|
|
Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Postato originariamente da GrG:
per scaricare file da internet devi usare inet, se googli trovarei esempi utili... |
Ho trovato questo codice:
Codice sorgente - presumibilmente VB.NET |
Dim bytes() As Byte Dim fnum As Integer cmdGo.Enabled = False txtFile.Enabled = False txtURL.Enabled = False Screen.MousePointer = vbHourglass DoEvents ' Get the file. bytes() = inetDownload.OpenURL( _ txtURL.Text, icByteArray) ' Save the file. fnum = FreeFile Open txtFile.Text For Binary Access Write As #fnum Put #fnum, , bytes() Close #fnum cmdGo.Enabled = True txtFile.Enabled = True txtURL.Enabled = True Screen.MousePointer = vbDefault Beep
|
Ho provato a sostituire texturl cont text1,ma mi chiedo a cosa serve il file textfile.text
Ma poi comunque inet serve per scaricare in ftp...a me servirebbe in http grazie... Ultima modifica effettuata da Mikiwi93 il 09/11/2009 alle 22:23 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
sbagliato inet scarica sia ftp che http, perchè dici che non funziona che errori ti da? ricordati di rinominare il componente inet1 in inetDownload... oppure il contrario cioè modifichi il codice mettendoci inet1...
|
|
Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Postato originariamente da GrG:
sbagliato inet scarica sia ftp che http, perchè dici che non funziona che errori ti da? ricordati di rinominare il componente inet1 in inetDownload... oppure il contrario cioè modifichi il codice mettendoci inet1... |
Quindi verrebbe:
Codice sorgente - presumibilmente VB.NET |
txtURL = Text1 inetDownload = Inet1 cmdGo.Enabled = False txtFile.Enabled = False txtURL.Enabled = False Screen.MousePointer = vbHourglass DoEvents ' Get the file. bytes() = inetDownload.OpenURL( _ txtURL.Text, icByteArray) ' Save the file. fnum = FreeFile Open txtFile.Text For Binary Access Write As #fnum Put #fnum, , bytes() Close #fnum cmdGo.Enabled = True txtFile.Enabled = True txtURL.Enabled = True Screen.MousePointer = vbDefault Beep
|
ma mi chiedo a cosa serve txtFile.txt..e questo programma mi serve per scaricare vari file,non testi..ed anche un'altra cosa, nelle propietes di inet va bene come protocol icCHTTP?? |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da Mikiwi93:
ma mi chiedo a cosa serve txtFile.txt..
|
E' una textbox di nome txtFile che indica il percorso e il nome del file da salvare esempio: "C:\imgEsempio.jpg"
Postato originariamente da Mikiwi93:
e questo programma mi serve per scaricare vari file,non testi..
|
Si, tranquillo ti scarica tutti i file in binario, in poche parole puoi scaricare di tutto (anche se non so in quanto a grandezza se ci siano dei limiti, forse per file troppo grossi vb non li riesce a gestire)
Postato originariamente da Mikiwi93:
ed anche un'altra cosa, nelle propietes di inet va bene come protocol icCHTTP?? |
mi pare di si, visto che usi il protocollo http... |
|
Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Codice sorgente - presumibilmente VB.NET |
cmdGo.Enabled = False Text2.Enabled = False Text1.Enabled = False Screen.MousePointer = vbHourglass DoEvents ' Get the file. bytes() = Inet1.OpenURL( _ Text1.Text, icByteArray) ' Save the file. fnum = FreeFile Open Text2.Text For Binary Access Write As #fnum Put #fnum, , bytes() Close #fnum cmdGo.Enabled = True Text2.Enabled = True Text1.Enabled = True Screen.MousePointer = vbDefault Beep
|
mi dà sub or function not definied,per scegliere la directory dove si vuole scaricare il file cosa posso fare,intendo che dopo selezionato la cartella di destinazione con dirlistbox,come possoò far venire in automatico il nome con cui salvare??
Ultima modifica effettuata da Mikiwi93 il 10/11/2009 alle 20:16 |
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
allora prima di tutto vb6 quale riga ti evidenzia? quindi qual'è la riga incriminata?
per selezionare il percorso in cui salvare il file basta che metti nell'evento change del dirbox:
text1.text = dir1.path
per ricavare il nome del file che stai scaricando devi crearti una tua funzione, in linea teorica:
tu scarichi ad esempio http://www.sito.it.com/file.exe
devi ricavarti file.exe per farlo con instr() trovi l'ultimo "/" poi selezioni tutto quello che c'è dopo ossia file.exe...
|
|
Mikiwi93 (Normal User)
Rookie
Messaggi: 41
Iscritto: 03/11/2009
|
Postato originariamente da GrG:
allora prima di tutto vb6 quale riga ti evidenzia? quindi qual'è la riga incriminata?
per selezionare il percorso in cui salvare il file basta che metti nell'evento change del dirbox:
text1.text = dir1.path
per ricavare il nome del file che stai scaricando devi crearti una tua funzione, in linea teorica:
tu scarichi ad esempio http://www.sito.it.com/file.exe
devi ricavarti file.exe per farlo con instr() trovi l'ultimo "/" poi selezioni tutto quello che c'è dopo ossia file.exe... |
Riga incriminata
Codice sorgente - presumibilmente Plain Text |
Ps craagle apriva il file da scaricare tramite il download di windows explorer... Ultima modifica effettuata da Mikiwi93 il 10/11/2009 alle 21:15 |
|