cs_leparrain3
Messages postés4Date d'inscriptionmercredi 25 décembre 2002StatutMembreDernière intervention10 octobre 2010 21 oct. 2012 à 02:48
Impeccable !!! rien à dire ...
AlexPoulard
Messages postés39Date d'inscriptionvendredi 2 avril 2004StatutMembreDernière intervention17 juillet 2006 28 août 2005 à 11:58
Absolument GENIAL ! Bravo ! 10/10
cs_Hobby
Messages postés116Date d'inscriptionmercredi 5 juin 2002StatutMembreDernière intervention17 septembre 2008 23 sept. 2003 à 00:09
Impecable fonction nickel.
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
DivXPVobD
Messages postés18Date d'inscriptionlundi 1 juillet 2002StatutMembreDernière intervention18 juin 2003 12 déc. 2002 à 19:17
cs_Jin
Messages postés30Date d'inscriptionmercredi 4 décembre 2002StatutMembreDernière intervention 1 février 2003 12 déc. 2002 à 15:40
J'arrive pas à le faire marcher car je débute sur VB.
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...
DivXPVobD
Messages postés18Date d'inscriptionlundi 1 juillet 2002StatutMembreDernière intervention18 juin 2003 25 juil. 2002 à 18:48
Voilà, le code est différent pour les fichier Ascii et Binaire
c'est modifié !
CyBeRoN
Messages postés4Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention10 février 2003 25 juil. 2002 à 11:15
Apparemment, cette fonction ne prendrait pas le contenu d'un fichier en entier.
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
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