Hallo, ich habe versucht, per folgenden Programmcode (aus dem "Easy Delphi Helper 2000")
eine Datei herunterzuladen. Leider bekomme ich weder eine Fehlermeldung noch die besagte
Datei (ich habe natürlich die Url und Dateiname angepaßt) auf die Festplatte.
Muß man irgend etwas zusätzlich beachten bzw. was mache ich falsch.
(Meine Firewall hatte ich schon ausgeschaltet.)
Benutzter Auszug aus dem "Easy Delphi Helper 2000"
:
Eine Datei per HTTP runterladen
Mit der Funktion URLDownloadToFile kann man einfach Dateien aus dem Web laden.
Man muss dazu die Unit URLMon einbinden.
Die Funktion wendet man so an:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.Button1Click(Sender: TObject);
var Datei,Ziel:PChar;
begin
try
Label1.Caption := 'Download gestartet';
Datei := 'http://www.DieSeite/DieDatei.zip';
Ziel := 'C:\Windows\Desktop\DieDatei.zip';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
Label1.Caption := 'Download beendet';
except
showmessage('Download abgebrochen');
end;
end; |
Schon befindet sich die angegebene Datei auf dem Desktop
Moderiert von 
matze: Delphi-Tags hinzugefügt
