Accueil > > > TÉLÉCHARGER UN FICHIER À PARTIR D'UNE URL HTTP
 TÉLÉCHARGER UN FICHIER À PARTIR D'UNE URL HTTP
 Information sur la source
 Description
Ce code est une api trouvée sur le Net (donc je n'en sui pas l'auteur, j'ai juste fait l'exemple). Trouvant cette fonction simple et utile et ne l'ayant pas vu sur Vbfrance, je me permet de l'ajouter ici. Fonction qui permet de télécharger un fichier hébergé sur un site, afin de pouvoir l'exploiter dans son application vb. Dans cet exemple illustrant la syntaxe de cette api, j'utilise la fonction pour récupérer une image d'un site internet afin de l'afficher dans un picturebox de mon projet vb.
 Source
- 'API de telechargement - A mettre dans les déclarations de var
- Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
- "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
- ByVal szFileName As String, ByVal dwReserved As Long, _
- ByVal lpfnCB As Long) As Long
-
-
- 'A mettre dans votre Form:
-
- Dim errcode As Long
- Dim url As String
- Dim localFileName As String
-
- 'On spécifie le chemin de l'image web
- url = "http://www.siteweb.com/image.jpg"
- 'On spécifie le chemin ou l'on veut enregistrer ce fichier
- '(vb.app.path donne le chemin du dossier de l'appli vb)
- localFileName = VB.App.Path & "\image.jpg"
-
- 'On appelle la fonction api de téléchargement
- errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
-
- If errcode = 0 Then
-
- 'Message de confirmation que l'image a bien été téléchargée
- 'MsgBox "Fichier bien reçu"
- 'Comme on a bien reçu l'image on peut la charger
- picture1 = VB.LoadPicture(localFileName)
-
- Else
-
- 'Sinon on affiche le message d'erreur
- 'MsgBox "Erreur durant le téléchargement"
-
- End If
'API de telechargement - A mettre dans les déclarations de var
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
'A mettre dans votre Form:
Dim errcode As Long
Dim url As String
Dim localFileName As String
'On spécifie le chemin de l'image web
url = "http://www.siteweb.com/image.jpg"
'On spécifie le chemin ou l'on veut enregistrer ce fichier
'(vb.app.path donne le chemin du dossier de l'appli vb)
localFileName = VB.App.Path & "\image.jpg"
'On appelle la fonction api de téléchargement
errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
'Message de confirmation que l'image a bien été téléchargée
'MsgBox "Fichier bien reçu"
'Comme on a bien reçu l'image on peut la charger
picture1 = VB.LoadPicture(localFileName)
Else
'Sinon on affiche le message d'erreur
'MsgBox "Erreur durant le téléchargement"
End If
 Historique
- 04 janvier 2006 17:08:39 :
- Petite erreur de frappe rectifiée
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Telecharger une image d'un site ??? [ par yreveill ]
Salut,avec Inet, je reussi a recuperer ce ke m'envoi un serveur lorsque je demande une page....MAis quand je demande une image gif, comment la recuper
telecharger fichier internet [ par rip69du78 ]
bonjour,je cherche une commande pour visual basic pour telecharger une image avec un url précis.j'aurai besoin de cela pour faire un petit programme q
Comment telecharger un image d'un site simplement?? [ par Heriver ]
J'aimerais savoir comment on peut telecharger une image sur n'importe quel site de la maniere la plus simple.... Merci d'avance!!! Heriver
Comment telecharger une image de n'import quel site? (en visual basic) [ par Heriver ]
Comment telecharger une image de n'import quel site? (en visual basic) Repondez moi s'il vous plai Meric Heriver
Inserer image site internet [ par radione ]
Bonjour, Je cherche à inserer automatiquement et quotidiennement (clique sur un bouton) l'image actualisée de Vigilance météo (http://www.meteo.fr/met
récuperer des valeurs sur un site internet [ par malo777 ]
Bonsoir, j'aimerais récupérer une info sur cette page internet [url=http://www.boursereflex.com/bourse/Pieces-Or_20-francs-Napoleon/cotation/]LIEN[/u
image a partir url [ par soulofvampire ]
inserer une image dans picturebox a partir d'un url vb2008 merci a ts
Afficher une image située sur un site Web | VB6 | [ par jminter ]
Bonjour a tous ! Voila comme le titre l'explique je voudrais savoir si avec un Picturebox/Image ou un autre contrôle il est possible d'afficher une im
Listview + site internet [ par atrocity ]
Bonjour à vous, Je voudrais savoir comment récupérer des informations sur un site internet sachant que je n'ai pas accès à la base de données et les i
[BAR]Internet Explorer ?! [ par Mayzz ]
Salut à tous, Voila il est 1h du mat et je suis toujours sur un de mes sites web que je tente d'améliorer. De ce coté la pas de soucis ^^ Je dével
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|