Télécharger un fichier à partir d'une url http
Soyez le premier à donner votre avis sur cette source.
Snippet vu 47 562 fois - Téléchargée 33 fois
Contenu du snippet
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.
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 / Exemple :
'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
A voir également
- Vba télécharger fichier internet
- Vba download image from url - Meilleures réponses
- 0& net - Meilleures réponses
- Vba ecrire fichier texte - Conseils pratiques - Visual Basic / VB.NET
- Télécharger fichier url ✓ - Forum - PHP
- Vba ouvrir fichier pdf ✓ - Forum - VBA Office (Excel, Word ...)
- Programme pour supprimer les fichiers internet temporaires - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Télécharger fichier ov2 pour tomtom - Guide
20 févr. 2009 à 14:11
Le problème est peut être que le téléchargement d'un fichier par URLDownLoadToFile est "filtré" par Vista Pro et interdit ce chargement.
Je n'ai pas la possibilité de tester dans l'immédiat, ne possédant pas vista.
- Messages postés
-
17287
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 27 septembre 2021
7220 févr. 2009 à 13:56
20 févr. 2009 à 12:58
20 févr. 2009 à 12:38
J'utilise cette fonction dans un programme Vb6.
Aucun problème avec Windows 2000 pro, Xp familiale, Xp Pro, Vista familiale.
Un cas de non fonctionnement avec Vista version Pro.
Quelqu'un connaîtrait-il la raison ou aurait-il rencontré ce problème?
Merci d'avance.
poullin
- Messages postés
-
17287
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 27 septembre 2021
7230 mars 2008 à 17:38
http://msdn2.microsoft.com/en-us/library/ms775123(VS.85).aspx
on voit:
Minimum availability Internet Explorer 3.0
Minimum operating systems Windows NT 4.0, Windows 95
donc a priori, ok pour vista
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.