Hallo,
man muss nicht unbedingt die
Indy Komponenten installieren, es funktioniert natürlich auch mit UrlDownloadToFile(). Die Funktion arbeitet synchron, wie Tom bereits geschrieben hat. Es ist halt eine Funktion und man muss schon einen guten Grund haben, wenn man den Rückgabewert einfach ignoriert. In der Regel liegt der Fehler bei
URL oder FILENAME.
Delphi-Quellcode:
procedure TDemoForm.DownloadButtonClick(Sender: TObject);
var
fn,
url:
string;
begin
// ...
url := Richedit1.lines[nr];
fn := Edit1.Text + '
\' + Richedit1.lines[nr+1];
ShowMessage(Format('
url = %s'#13#10'
fn = %s', [
url, fn]));
if Succeeded(UrlDownloadToFile(
nil, PChar(
url), PChar(fn), 0,
nil))
then ShowMessage('
swell')
else ShowMessage('
rats');
end;
Grüße vom marabu