thomvaill
Messages postés366Date d'inscriptionmercredi 7 avril 2004StatutMembreDernière intervention20 février 2007
-
29 janv. 2005 à 11:59
thomvaill
Messages postés366Date d'inscriptionmercredi 7 avril 2004StatutMembreDernière intervention20 février 2007
-
29 janv. 2005 à 17:59
Bonjour, j'ai archi besoin d'aide là !!
Je vous explique, je télécharge une image sur un site internet avec Inet, je l'enregistre avec Open() , ensuite, je la charge avec LoadPicture(), je la met dans Picture d'un composant Image.
Mais lorsque que je fais mon loadimage, ca me met Image Incorrecte.
Voici mon code :
Function Telechargement()
Dim iFichierNb As Integer
With Inet1
.Protocol = icHTTP
b_Bytes = .OpenURL("http://www.europe2.fr/webcam/studio2.jpg", icByteArray)
Do Until .StillExecuting = False
DoEvents
Loop
End With
Open "C:\WINDOWS\Temp\MAURADoPHONE_studio1_maurad.jpg" For Binary Access Write As #1
Put #1, , b_Bytes
Close #1
End Function
Private Sub Form_Load()
Telechargement
webcam.Picture = LoadPicture("C:\WINDOWS\Temp\MAURADoPHONE_studio1_maurad.jpg")
End Sub
Quelcun pourait me dire comment y remédier ?!
SVP C URGENT !
valtrase
Messages postés937Date d'inscriptionlundi 19 janvier 2004StatutMembreDernière intervention 9 mai 20223 29 janv. 2005 à 13:05
Salut,
J'ai remarqué qqs erreur sur ton code en voici la modification
Voilà j'ai testé ça tourne chez moi !!!!
Bonne prog
Function Telechargement()
Dim iFichierNb As Integer '~~ ça ne te sert à rien ici
Dim b_bytes() As Byte '~~ Dimensionnes en tableau
Erase b_bytes '~~ On efface
With Inet1
.Protocol = icHTTP
b_bytes = .OpenURL("http://www.europe2.fr/webcam/studio2.jpg", icByteArray)
Do Until .StillExecuting = False
DoEvents
Loop
End With
Open "C:\MAURADoPHONE_studio1_maurad.jpg" For Binary Access Write As #1
Put #1, , b_bytes()
Close #1
End Function
Private Sub Form_Load()
Telechargement
'~~ Ca tourne sans le Set mais bon .......
Set WebCam.Picture = LoadPicture("C:\MAURADoPHONE_studio1_maurad.jpg")
End Sub