Tipp 0538 Datei-Download mit Dialog und ProgressBar
Autor/Einsender:
Datum:
  Lothar Kriegerow
22.10.2007
Entwicklungsumgebung:   VB 6
Der Download einer Datei aus dem Internet kann auf unterschiedliche Arten realisiert werden. Die einfachste und sogleich komfortabelste Möglichkeit bietet die Verwendung der API-Funktion DoFileDownload des Internet-Explorers.
Diese Funktion stellt nicht nur den Speichern-Dialog zur Verfügung, sondern zeigt auch noch die bekannte Fortschrittsleiste, und das mit nur knapp 5 Zeilen Programm-Code. Damit die Datei auch erfolgreich downgeloadet werden kann, muss der übergebene String nicht nur den kompletten Http-Pfad enthalten, sondern er muss mittels StrConv zusätzlich noch in einen Unicode-String konvertiert werden.
 
Option Explicit

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal _
    lpszFile As String) As Long

Private Sub cmdDownload_Click()
  Dim strURL As String
  Dim strDatei As String

  strDatei = txtURL.Text
  strURL = StrConv(strDatei, vbUnicode)

  DoFileDownload strURL

End Sub

Private Sub Form_Load()
  txtURL.Text = _
    "http://home.arcor.de/lotharkriegerow/download/MSSQL_Hilfe.chm"
End Sub
 
Weitere Links zum Thema
Datei aus dem Internet downloaden
Webseite laden und speichern
Hinweis
Um diesen Tipp ausführen zu können, muss der Microsoft Internet Explorer 4.0 oder höher auf dem System installiert sein.

Windows-Version
95
98
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (32,8 kB) Downloads bisher: [ 513 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 26. November 2011