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

Résolu
Signaler
Messages postés
366
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
20 février 2007
-
Messages postés
366
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
20 février 2007
-
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

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
366
Date d'inscription
mercredi 7 avril 2004
Statut
Membre
Dernière intervention
20 février 2007
2
Merci vraiment ! Ca marche !!!!