Hallo ...
Mit dem Beispiel unten kann ich eine Datei aus dem Internet laden.
Wie kann ich damit 4 oder 5 Dateien laden, liegen auf dem gleichen Server?
Wer mag mir helfen?
Delphi-Quellcode:
function DownloadFile(SourceFile, DestFile:
string): Boolean;
begin
try
Result := UrlDownloadToFile(
nil, PChar(SourceFile), PChar(DestFile), 0,
nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.DateienausdemInternetdownloaden1Click(Sender: TObject);
var
SourceFile, DestFile:
String;
begin
// URL Location
SourceFile = '
http://www.url.de/start.htm';
// Where to save the file
destfile:=(extractfilepath(application.exename) + ('
\html\start.htm'));
if DownloadFile(SourceFile, DestFile)
then
begin
ShowMessage('
Download succesful!');
end
else
ShowMessage('
Mit dem Internet verbunden? Kann die Datei ' + '
' + SourceFile +'
nicht downloaden')
end;