Folgender Code läd eine Datei herunter:
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
http := Edit1.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Datei,Ziel:PChar;
begin
Label1.Caption := 'Download gestartet';
try
Datei := PChar(http);
Ziel := 'C:\DieDatei.dat';
UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
Label1.Caption := 'Download beendet';
except
showmessage('Download abgebrochen');
end;
end;
(Achte dabei auf die Edit-Geschichte)
Ist es auch möglich eine PHP-Datei herunterzuladen?
Bisher erreiche ich nur den
HTML-Text zu laden.