Code-Beispiel

[Windows] Datei herunterladen

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Mao	11.10.2008

Mit dieser Funktion kann eine Datei unter Windows heruntergeladen werden.

Dim URLDownloadToFile as function ( _

  ByVal pCaller As Long, _

  ByVal szURL As zString ptr, _

  ByVal szFileName As zString ptr, _

  ByVal dwReserved As Long, _

  ByVal lpfnCB As Long) As Long



Dim lR As Long

Dim sURL As String

Dim sFile As String

Dim library As Any Ptr



library=dylibload( "urlmon.dll" )

URLDownloadToFile=dylibsymbol(library, "URLDownloadToFileA" )



sURL = "http://www.freebasic-portal.de/index.php"

sFile = "C:\test.htm"

lR = URLDownloadToFile(0, sURL, sFile, 0, 0)

DylibFree library



If lR = 0 Then

  Print "Download erfolgreich!"

Else

  Print "Fehler beim Download!"

End If

Sleep

Autor: Michael Frey
Überarbeitung: Mao
Quelle: fb@rchiv

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 13.06.2007 von Mao angelegt.
Die aktuellste Version wurde am 11.10.2008 von Mao gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.