Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei-Download via API-Funktion funzt nicht ganz
Autor: dextermclex
Datum: 24.04.03 16:45
Hallo, ich benötige mal dringend eure Hilfe Ich habe diese Funktion schonmal problemlos vor ca fast einem Jahr benutzt ohne Probleme konnte ich damit 800kb runterladen Jetzt wollte ich mal wieder etwas machen in einem neuen Projekt, nun habe ich aber das Problem das immer nur 15KB runtergeladen werden egal welche datei....könnt ihr mir bitte helfen und sagen woran das liegen könnte Der code der Form sieht aus: ' Benötigt wird nur folgende API-Funktion 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 Sub Command1_Click() Dim lResult As Long Dim sURL As String Dim sLocalFile As String ' URL-Link der Datei, die heruntergeladen werden soll sURL = "http://www.orbimage.com/images/high-mozambique.jpg" ' Dateiname auf dem lokalen System sLocalFile = "C:\high-mozambique.jpg" ' Download ausführen Screen.MousePointer = vbHourglass lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0) Screen.MousePointer = vbNormal If lResult = 0 Then MsgBox "Download erfolgreich ausgeführt!" Else MsgBox "Fehler beim Download: " & _ "Entweder existiert die URL nicht, oder Sie haben " & _ "einen ungültigen Dateinamen angegeben!", vbCritical End If End Sub Währe euch echt dankbar wenn ihr mir da weiterhelfen könnt, bin schon am vezweifeln

Datei-Download via API-Funktion funzt nicht ganz	443	dextermclex	24.04.03 16:45
Re: Datei-Download via API-Funktion funzt nicht ganz	204	Brian	24.04.03 16:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen