Comment faire pour enregistrer une image a partir de webbrowser?
Hoce
-
11 oct. 2001 à 00:19
jeremiesauve Messages postés 35 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 6 juillet 2009 - 23 déc. 2006 à 22:40
jeremiesauve Messages postés 35 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 6 juillet 2009 - 23 déc. 2006 à 22:40
A voir également:
- Enregistrer une image python
- Convolution image - Conseils pratiques -Java
- Parcourir une chaine de caractère en python ✓ - Forum Python
- Fpdf image ✓ - Forum PHP
- Extraction d'une partie d'une chaine dans une chaine - Forum Python
- Une image .tiff repose sur une palette de 256 000 couleurs. - Forum C / C++ / C++.NET
1 réponse
jeremiesauve
Messages postés
35
Date d'inscription
mercredi 24 novembre 2004
Statut
Membre
Dernière intervention
6 juillet 2009
23 déc. 2006 à 22:40
23 déc. 2006 à 22:40
C'est presque pareil a toi mon affaire .. moi je prend le composant Inet au lieux de Webbrowser ....
Moi je cherchais a enregistrer une image du web dans un dossier et j'ai trouvé. voila !
1.met toi un composants Inet (Microsoft Internet Transfer Controls 6.0) dans ta form...
2...CommandButton ou ce que tu veut(pour mettre le code qui enregister l'image)
3.Copier-Coller ca dans le CommandButton (command1) , c'est tout
Dim Tmp1() As Byte
Dim Adresse As String
Adresse = "http://www.new-dream.de/image/wallpaper/sport/snowboard/snowboard-08.jpg"
'C'est cette ligne qui met l'image dans Tmp1()...
Tmp1() = Inet1.OpenURL(Adresse, icByteArray)
'Ca attend que le load soit fini avans de continuer grace a ces 3 lignes
Do While Inet1.StillExecuting = True
DoEvents
Loop
'la ca enregistre l'image de Tmp1() vers "c:\tmp.jpg"
Open "c:\tmp.jpg" For Binary Access Write As #1
Put #1, , Tmp1()
Close #1
Command1.Caption = "Terminé"
Moi je cherchais a enregistrer une image du web dans un dossier et j'ai trouvé. voila !
1.met toi un composants Inet (Microsoft Internet Transfer Controls 6.0) dans ta form...
2...CommandButton ou ce que tu veut(pour mettre le code qui enregister l'image)
3.Copier-Coller ca dans le CommandButton (command1) , c'est tout
Dim Tmp1() As Byte
Dim Adresse As String
Adresse = "http://www.new-dream.de/image/wallpaper/sport/snowboard/snowboard-08.jpg"
'C'est cette ligne qui met l'image dans Tmp1()...
Tmp1() = Inet1.OpenURL(Adresse, icByteArray)
'Ca attend que le load soit fini avans de continuer grace a ces 3 lignes
Do While Inet1.StillExecuting = True
DoEvents
Loop
'la ca enregistre l'image de Tmp1() vers "c:\tmp.jpg"
Open "c:\tmp.jpg" For Binary Access Write As #1
Put #1, , Tmp1()
Close #1
Command1.Caption = "Terminé"
