Télécharger le fichier - VB6

Question

Est-ce que quelqu'un sait comment télécharger un fichier (sans ouvrir une page Web), et l'enregistrer dans un répertoire dans Visual Basic 6.0?

Answer 1

Si vous voulez le faire avec du code seulement (pas de contrôle de transfert Internet), VBNet.mvps.org a un très bon article de procédure qui utilise l'appel API URLDownloadToFile.

de l'article:

L'API est disponible URLDownloadToFile sur toutes les versions du système d'exploitation Windows (sauf Win3, WinNT3.x). En transmettant le fichier distant et le chemin d'accès et le nom du fichier local, , l'API télécharge les bits du fichier spécifié en les enregistrant sous le nom de cible . La fonction fonctionne avec tous les types de fichiers - texte brut, images, html, mpg, wav et les fichiers zip, etc. sans modification à la préoccupation de routine ou pour le fichier en cours de téléchargement, ni aucune taille apparente restriction ou limitation.

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 Const ERROR_SUCCESS As Long = 0 
Private Const BINDF_GETNEWESTVERSION As Long = &H10 
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000 

Public Function DownloadFile(sSourceUrl As String, _ 
          sLocalFile As String) As Boolean 

    //'Download the file. BINDF_GETNEWESTVERSION forces 
    //'the API to download from the specified source. 
    //'Passing 0& as dwReserved causes the locally-cached 
    //'copy to be downloaded, if available. If the API 
    //'returns ERROR_SUCCESS (0), DownloadFile returns True. 
    DownloadFile = URLDownloadToFile(0&, _ 
            sSourceUrl, _ 
            sLocalFile, _ 
            BINDF_GETNEWESTVERSION, _ 
            0&) = ERROR_SUCCESS 

End Function 

Pour votre information - dans les tests sous Windows 7, il ne reviendrait la version en cache, donc je devais utiliser la fonction supplémentaire mentionné dans l'article pour l'effacer d'abord (et qui a travaillé). Ensuite, appelez simplement la fonction ci-dessus avec l'URL de destination en premier pour effacer le cache.

Answer 2

Je suggère d'utiliser la Internet Transfer Control

Answer 3

Vous devez utiliser le contrôle de transfert Internet, voir http://www.vb-helper.com/howto_get_file_from_web.html pour un échantillon. Si vous devez spécifier des informations d'identification, consultez aussi http://support.microsoft.com/kb/173264.

Answer 4

Je n'aime pas le contrôle de transfert Internet car il est synchrone. Une fois que vous démarrez un téléchargement, votre application ne répond plus jusqu'à ce que le fichier soit téléchargé ou qu'une erreur soit générée. Il existe de nombreux exemples d'utilisation de la DLL WININET pour écrire des méthodes asynchrones. Ce n'est pas trivial, mais c'est aussi très faisable. Here est un exemple de stackoverflow.

Answer 5

Vous n'avez pas besoin d'appels API, vous n'avez pas besoin du contrôle Internet Transfer. Faites-le simplement, en utilisant le code VB6 natif. Voici un excellent article by Karl Peterson avec un exemple de code.

Answer 6

Essayez ceci:

My.Computer.Network.DownloadFile (*File to download*, *What to save it as*) 

Vous devez lui donner un nom de fichier dans le quoi enregistrer comme:

Exemple:

My.Computer.Network.DownloadFile _ 
("http://www.cohowinery.com/downloads/WineList.txt", _ 
"C:\Documents and Settings\All Users\Documents\WineList.txt") 

Answer 7

Essayez cette

Sub DownloadFile(url, path) 

    Dim objReq 
    Dim objStream 

    Set objReq = CreateObject("MSXML2.XMLHTTP") 
    objReq.Open "GET", url, False 
    objReq.send 

    If objReq.Status = 200 Then 
     Set objStream = CreateObject("ADODB.Stream") 
     objStream.Open 
     objStream.Type = 1 

     objStream.Write objReq.ResponseBody 
     objStream.Position = 0 

     objStream.SaveToFile path, 2 
     objStream.Close 
     Set objStream = Nothing 
    End If 

    Set objReq = Nothing 

End Sub 

plus de détails se référer http://smartreferences.blogspot.in