LIRE UN FICHIER SUR INTERNET - 69VOBD3
cs_processus
Messages postés
360
Date d'inscription
vendredi 24 août 2001
Statut
Membre
Dernière intervention
9 juillet 2008
-
24 juil. 2002 à 16:01
cs_leparrain3 Messages postés 4 Date d'inscription mercredi 25 décembre 2002 Statut Membre Dernière intervention 10 octobre 2010 - 21 oct. 2012 à 02:48
cs_leparrain3 Messages postés 4 Date d'inscription mercredi 25 décembre 2002 Statut Membre Dernière intervention 10 octobre 2010 - 21 oct. 2012 à 02:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/4132-lire-un-fichier-sur-internet-69vobd3
https://codes-sources.commentcamarche.net/source/4132-lire-un-fichier-sur-internet-69vobd3
21 oct. 2012 à 02:48
28 août 2005 à 11:58
23 sept. 2003 à 00:09
Mais, de plus en plus sur le web les url ne pointe pas sur un fichier mais un vers un script qui retourne un fichier, je vous rassure je resoit bien le fichier avec la routine, mais je connait pas forcément le type de fichier que je vais recevoir, il y a un moyen de le connaitre (ainsi que le nom).
Merci
Olivier
12 déc. 2002 à 19:17
Open "c:est.jpg" For Binary As #1
Put #1, , OuvrirURL("http://abcwallpaper.free.fr/car002.jpg",FichierBinaire)
Close #1
12 déc. 2002 à 15:40
Il faut tous mettre dans le module, et juste çà dans le form-load :
Open "c: est.jpg" For Binary As #1
Put #1, , OuvrirURL("http://abcwallpaper.free.fr/car002.jpg")
Close #1
j'ai "compile error" "argument not optional" et OuvrirURL qui est surligné.
Comprends pas...
25 juil. 2002 à 18:48
c'est modifié !
25 juil. 2002 à 11:15
Pour y remédier, j'ai qq peu modifié ta fonction :
1- Mettre le InternetReadFile dans un "do loop" comme ceci :
Do
ValRet = InternetReadFile(hUrlFile, _
Buffer, _
Len(Buffer), _
NombreOctets)
If NombreOctets > 0 Then Info = Info & Buffer
DoEvents
Loop Until NombreOctets = 0
'La variable Info contient maintenant tout le contenu du fichier
2- Virer le test sur NombreOctets et p-ê remplacer celui-ci par un
If Len(Info) = 0 Then ... '(facultatif)
3- Virer la ligne :
Info = Left$(Buffer, NombreOctets)
Voilà apparemment comme cela ça tourne.
J'ai testé en mettant ceci dans un Form_Load
Open "c: est.jpg" For Binary As #1
Put #1, , OuvrirURL("http://abcwallpaper.free.fr/car002.jpg")
Close #1
et ça m'a bien retourné une image de 119ko.
24 juil. 2002 à 16:01