Télécharger un fichier à partir d'une url http

Soyez le premier à donner votre avis sur cette source.

Snippet vu 43 128 fois - Téléchargée 31 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.

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

Ajouter un commentaire

Commentaires

ghuysmans99
Messages postés
2520
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1 -
Bravo
econs
Messages postés
4066
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
18 -
Il faut rappeler que la présence de la DLL urlmon.dll sur le disque est nécessaire. Mais apparemment, elle est fournie avec Windows, donc çà va.
zeboss31
Messages postés
14
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
1 février 2010
-
J'arrive pas à le faire marcher ce code!! On peut m'expliquer comment faire??
Renfield
Messages postés
17308
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
22 août 2018
54 -
http://msdn.microsoft.com/workshop/networking/moniker/reference/functions/urldownloadtofile.asp

Minimum availability Internet Explorer 3.0
Minimum operating systems Windows NT 4.0, Windows 95
thieryandco
Messages postés
13
Date d'inscription
jeudi 29 décembre 2005
Statut
Membre
Dernière intervention
6 janvier 2006
-
Super, franchement bravo !
Avant, j'était obligé de rediriger les visiteurs sur mon site mais maintenant, direct téléchargement ses passer par la casse Internet Explorer ! lol
Sinon, ya un bug si on programme le code sous Linux. Il doit manquer un certain fichier j'crois.

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.