[VB6] Telecharger fichier simplement

Aller en bas

[VB6] Telecharger fichier simplement

Message  Diablaman le Sam 24 Nov - 14:55

Bonjour,
certe grace a bruce je posterais plus de source pour vous, logique vu le deficite qui en a suivi -_-

mais sa m'empeche pas de deposer quelques snippet ^^

Voici donc un code qui permet de telecharger facilement un fichier (+- 16 lignes) je l'utilisais d'ailleurs dans le cht pour ne pas avoir de composant externe supplementaire ^^

le seul hic que j'ai trouver c'est que ce bout de code ne marche qu'une fois, je m'explique, un fichier telecharger comme sa le nom du fichier se met en memoire, donc par exemple si vous telecharger deux fois le fichier mais modifier bah le resultat sera toujours le premier, oh merde alors me direz vous ou es l'utilitee ... hey hey moi et mes methode dite de tordu (bah ouais vous le verrez par la suite si je reposte des vrai projet ...) donc je disais avec ma methode tordue je combine l'urldownloadotfile que je vous presente ici a un source de deletecacheentry qui permet de deleter justement l'url du fichier de la memoire pour pouvoir le retelecharger moulte fois ^^

Donc le code :
Code:

'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
Private Declare Function DeleteUrlCachEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" _
                        (ByVal lpszUrlName As String) 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://forum.hackous.fr/img/avatars/39.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 & "\Logo-Diablaman.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

Call DeleteUrlCacheEntry(url)

Ici j'ai mis l'exemple avec une image pour que vous puissiez tester en vitesse suffit d'une picturebox appelee picture1 et du code pour tester ^^

et vous verrez apparaitre mon magnifique logo ^^ vous remarquerezz que le nom de l'image contenue dans l'url et le nom d'enregsitrement est pas pareil, normale vais pas laisser 39 ses comme enregistrer sous, vous pouvez choisir le nom du fichier telecharger meme s'il es different du nom source ^^

Sur ce bon coding ;-)
avatar
Diablaman

Messages : 47
Date d'inscription : 13/10/2007

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum