Récupérer les images!!

GhnombX Messages postés 43 Date d'inscription lundi 22 avril 2002 Statut Membre Dernière intervention 8 février 2004 - 26 oct. 2002 à 13:45
Int19h Messages postés 58 Date d'inscription jeudi 25 avril 2002 Statut Membre Dernière intervention 19 juillet 2003 - 5 nov. 2002 à 21:20
salut

comment on fait pour récupérer des images sur le net
connaissant l'adresse genre
http://www.machin.fr/photo/photo1.jpg
et copier le fichier sur le disque dur!!
en vb bien sur lol sagit pas de faire "enregistrer sous" avec internet explorer etc...

merci

GhnombX
%-6

3 réponses

Int19h Messages postés 58 Date d'inscription jeudi 25 avril 2002 Statut Membre Dernière intervention 19 juillet 2003
26 oct. 2002 à 22:34
Salut

Teste avec : Microsoft Internet Transfaire Control 6.0 (SP4) chez moi

Code :
' Bien mettre le http://
Nom$ = "http://www.machin.fr/photo/photo1.jpg"

' Ici on charge l'image
b() = Inet1.OpenURL(Nom$, icByteArray)

' Si la taille de la variable est -1, rien n'a ete charger.
' Image introuvable ou autre probleme
If UBound(b) = -1 Then
Msgbox "L'image n'a pas ete charger"
Exit Sub
End If

' Nom de sauvegarde
a$ = "c:\Photo1.jpg"

' On sauve l'image
Open a$ For Binary As #1
Put #1, , b()
Close

Voila, je m'en ete servie pour faire une petite appli qui 'aspire' des listes d'url...

Question : Int19h@hotmail.com

++

Int19h
0
GhnombX Messages postés 43 Date d'inscription lundi 22 avril 2002 Statut Membre Dernière intervention 8 février 2004
5 nov. 2002 à 21:00
ça marche pas!!
jarive a récupérer qq chose mai je sai pa koi c pa une image lool

nan mais c koi le type de b?
pour le déclarer comme dim b as bytearray
c pas un type de vb ça...
enfin je sui perdu la
0
Int19h Messages postés 58 Date d'inscription jeudi 25 avril 2002 Statut Membre Dernière intervention 19 juillet 2003
5 nov. 2002 à 21:20
Salut

La declaration est : Public b() As Byte

++

int19h
0
Rejoignez-nous