J'ai besoin d'aide !!! Problème d'image erronée !

Résolu
thomvaill Messages postés 366 Date d'inscription mercredi 7 avril 2004 Statut Membre Dernière intervention 20 février 2007 - 29 janv. 2005 à 11:59
thomvaill Messages postés 366 Date d'inscription mercredi 7 avril 2004 Statut Membre Dernière intervention 20 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 !

2 réponses

valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 4
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

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
3
thomvaill Messages postés 366 Date d'inscription mercredi 7 avril 2004 Statut Membre Dernière intervention 20 février 2007 2
29 janv. 2005 à 17:59
Merci vraiment ! Ca marche !!!!
0
Rejoignez-nous