[Vb] Download file binari via http

[Massi91]

buongiorno a tutti

volevo chiedervi come si può fare a trasferire file, per esempio, immagini, da internet a locale tipo da "www.sito.it/immagine1.jpg" a "C:/", se avete qualche straccio di codice concreto che funzioni realmente tanto meglio perchè con internet e vb combinati sono proprio negato

grazie in anticipo

[okay]

Originariamente inviato da Massi91

buongiorno a tutti

volevo chiedervi come si può fare a trasferire file, per esempio, immagini, da internet a locale tipo da "www.sito.it/immagine1.jpg" a "C:/", se avete qualche straccio di codice concreto che funzioni realmente tanto meglio perchè con internet e vb combinati sono proprio negato

grazie in anticipo

metti un controllo Inet sul form (aggiungilo da componenti)

-------------code-------------------
'global in generali
Dim strURL As String
Dim bit() As Byte
Dim nominativo As String

'Command1
strURL = "http://tuosito/" & "tuofile.jpg": nominativo = "tuofile.jpg"
bit() = Inet1.OpenURL(strURL, icByteArray)
' il file lo crea nella dir del progetto
Open nominativo For Binary Access Write As #1
' il file lo crea nel percorso specificato
'Open "c:\" & nominativo For Binary Access Write As #1
Put #1, , bit()
Close #1
--------end code--------------------



ciao

[Massi91]

Originariamente inviato da okay

metti un controllo Inet sul form (aggiungilo da componenti)

'global in generali
Dim strURL As String
Dim bit() As Byte
Dim nominativo As String

'Command1
strURL = "http://tuosito/" & "tuofile.jpg": nominativo = "tuofile.jpg"
bit() = Inet1.OpenURL(strURL, icByteArray)
' il file lo crea nella dir del progetto
Open nominativo For Binary Access Write As #1
' il file lo crea nel percorso specificato
'Open "c:\" & nominativo For Binary Access Write As #1
Put #1, , bit()
Close #1

ciao

grazie tante! Ciao

[MM]

Massi91

Dal regolamento
1.5 - Avatar, signature e sito personale
.........
b) Signature: 3 righe a 1024 solo testo con un massimo di 3 smiles dell'Hardware Upgrade Forum oppure un'immagine 100 X 50 X 5KB e una riga di testo (non deve andare a capo).

Direi che la tua signature è fuori regola
Ti pregherei di modificarla
Grazie

[leadergl]

perchè a me non scarica nulla?

ho provato sia col mio sito che con l'immagine "im_msn.gif" di questo forum...ma nulla

[okay]

Originariamente inviato da leadergl

perchè a me non scarica nulla?

ho provato sia col mio sito che con l'immagine "im_msn.gif" di questo forum...ma nulla

In generali aggiungi:
dim path as string
e in form load metti:
path=App.path & "\"

quindi modifica questa riga
Open path & nominativo For Binary Access Write As #1
........... avrai il file nella dir di progetto

Nell'altro modo pure ti ha creato il file non nella dir di progetto ma probabilmente hai fatto doppio click per aprire il progetto direttamente dalla dir e quindi la dir principale non è la dir di progetto ma quella locale di dove risiede l'IDE.
Per tua curiosità fai una ricerca sul pc per tuofile.jpg, ovvero il nome che hai dato a nominativo e guarda in che dir ti ha salvato il file (perchè sicuramente te l'ha salvato).

ciao

[leadergl]

no, non è questo il problema...il file glielo facevo creare in c:\ ma mi creava un file vuoto...senza niente dentro e questo perchè non leggeva niente da internet ma creava lo stesso il file:

Open "c:\msn.gif" For Binary Access Write As #1
      ' il file lo crea nel percorso specificato
      Put #1, , bit()
Close #1

il problema è che proprio non mi legge niente da internet...come mai?

(P.S. io ho fastweb)

[okay]

posta il codice che usi così che posso aiutarti

se usi solo questo:
Open "c:\msn.gif" For Binary Access Write As #1
' il file lo crea nel percorso specificato
Put #1, , bit()
Close #1

.....èchiaro che ti crea un file vuoto devi scrivere anche questo codice e cioè l'indirizzo di dove si trova il file:
'questo è l'indirizzo di dove prelevare il file
'tuosito deve essere un link esistente del web
strURL = "http://tuosito/" & "tuofile.jpg": nominativo = "tuofile.jpg"
'questo è il controllo inet che prende il link che gli passi
bit() = Inet1.OpenURL(strURL, icByteArray)

questo per esempio è il mio dominio webe puoi scaricare questo:
strURL = "http://www.twork.it/work/" & "": nominativo = "oki_tut.zip"

metti questo e vedrai lo zip nella dir

spero che era questo il problema

ciao

[leadergl]

Ma noo...ovvio che non uso solo quello...avevo indicato solo la parte modificata...cmq questo è il codice:

Dim strURL As String
Dim bit() As Byte
Dim nominativo As String


Private Sub Command1_Click()

    strURL = "http://www.leadergl.net/upgrade/italiano.lng": nominativo = "italiano.lng"
    bit() = Inet1.OpenURL(strURL, icByteArray)
    ' il file lo crea nella dir del progetto
    Open "c:\italiano.lng" For Binary Access Write As #1
        Put #1, , bit()
    Close #1

End Sub

ed anche se provo in "icString" non funziona

[okay]

Originariamente inviato da leadergl

Ma noo...ovvio che non uso solo quello...avevo indicato solo la parte modificata...cmq questo è il codice:

Dim strURL As String
Dim bit() As Byte
Dim nominativo As String


Private Sub Command1_Click()

    strURL = "http://www.leadergl.net/upgrade/italiano.lng": nominativo = "italiano.lng"
    bit() = Inet1.OpenURL(strURL, icByteArray)
    ' il file lo crea nella dir del progetto
    Open "c:\italiano.lng" For Binary Access Write As #1
        Put #1, , bit()
    Close #1

End Sub

ed anche se provo in "icString" non funziona

okay, infatti questo è errato:
strURL = "http://www.leadergl.net/upgrade/italiano.lng"
modifica così:
strURL = "http://www.leadergl.net/upgrade/"
.... ecco devi passare la dir dell'ubicazione del file e la stringa nominativo deve essere il file che scarichi nel tuo caso:
nominativo = "italiano.lng"

quì, per eleganza puoi fare:
Open "c:\" & nominativo For Binary Access Write As #1

sono sicuro che adesso funziona

ciao

[leadergl]

non sono troppo convinto...scusa se metto

strURL = "http://www.leadergl.net/upgrade/"

poi la funzione

bit() = Inet1.OpenURL(strURL, icByteArray)

come fa a capire il file che deve prelevare?

cmq ho provato ma non è cambiato nulla...

[leadergl]

trovato il problema...era il bastardo del mio FireWall che impediva a VisualBasic di accedere a Internet....c'ho perso una giornata...ma porca....

[leadergl]

ok, una sola domanda....come faccio a farmi dare la grandezza del file che sto per scaricare?

[okay]

Originariamente inviato da leadergl

trovato il problema...era il bastardo del mio FireWall che impediva a VisualBasic di accedere a Internet....c'ho perso una giornata...ma porca....

dim stfilelen as string
stfilelen="c:\tuofile.exe"
TotBytes = Str(FileLen(stfilelen))

ciao

[leadergl]

...intendo del file che sto per scaricare da internet...

in pratica mi serve per calcolare la progressione del download...

[okay]

Originariamente inviato da leadergl

...intendo del file che sto per scaricare da internet...

in pratica mi serve per calcolare la progressione del download...

E' appunto quello che ti ho scritto prima

dim stfilelen as string
stfilelen="c:\tuofile.exe"
TotBytes = Str(FileLen(stfilelen))

TotBytes corrisponde alla grandezza in bytes del file

[okay]

non ci vuole tanto gli dai il percorso di strURL
con il valore di bytes del file puoi calcolare ha quanti byte x secondo lo stai scaricando quanto manca alla fine del download il tempo stimato ecc,ecc
naturalmente con una routine del tempo trascorso meno il tempo effettivo


ciao

[leadergl]

Dici che basta fare:

Dim TotBytes as long
Dim Url as string

      Url="http://www.leadergl.net/upgrade/italiano.lng"
      TotBytes=Filelen(Url)
      MsgBox TotBytes

e funziona?

dubito..anke xkè ho provato :P
sicuro che non esiste una funzione fatta apposta?

[leadergl]

Raga nessuno sa come farmi restituire la grandezza in byte di un file che sta in internet?...

[okay]

allora ho visto che:

con il controllo inet non conosco il modo per farlo.
Conosco il modo per farlo con il controllo winsok

se ho un pò di tempo ti taglio qualcosa e posto