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

Question

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

vb95 · Answer

bonjour
Comment as-tu déclaré l'API URLDownloadToFile ?

Elkh · Answer

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é

cs_Le Pivert · Answer

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à

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

3 réponses

Votre réponse

Discussions similaires