Problème de téléchargement d'image sur visual basic

Signaler
-
Messages postés
7378
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 mai 2021
-
Bonjour alors voila j'ai un gros problème ....
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim errcode As Long
Dim url As String = ListBox1.SelectedIndex
Dim localFileName As String


localFileName = "J:\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

Else

'Sinon on affiche le message d'erreur
MsgBox("Erreur durant le téléchargement")

End If
End Sub

En effet mon but ici c'est de prendre l'url (image) contenu dans l'item de la listbox selectionné pour la télécharger dans "J:\images.jpg" . Sauf que j'ai un problème qui est le suivant :
http://www.casimages.com/i/161024125946218648.png


Avez vous une solution ?

Merci

3 réponses

Messages postés
2427
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 mai 2021
137
bonjour
Comment as-tu déclaré l'API URLDownloadToFile ?
tu parle de sa ?
 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


Si c'est sa oui je l'ai déclaré
Messages postés
2427
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 mai 2021
137
Oui c'est ça
En VB 6 les paramètres sont des Long sur 32 bits
En VB Net il faut mettre des Integer car les Long sont sur 64 bits


Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Integer, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Integer, _
ByVal lpfnCB As Integer) As Integer
Messages postés
7378
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 mai 2021
122
Bonjour,

Comme ceci avec une PictureBox:

Option Strict On
Public Class Form1
  Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
 "URLDownloadToFileA" (ByVal pCaller As Integer, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Integer, _
ByVal lpfnCB As Integer) As Integer
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ' Download the file.
        URLDownloadToFile(0, _
            "http://www.planwallpaper.com/static/images/desktop-year-of-the-tiger-images-wallpaper.jpg", _
            "C:\Users\LePivert\Documents\monimage.jpg", 0, 0)'adapter chemin
        ' Display the image.
        PictureBox1.Image = Image.FromFile("C:\Users\LePivert\Documents\monimage.jpg")'adapter chemin
        PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
    End Sub
End Class


d'après cela:

http://www.vb-helper.com/howto_download_url_to_file.html

voilà