Das Problem ist dass überhaupt keine Exceptions geworfen werden.
Ich wollte mir erstmal ansehen was so für Exceptions auftreten können:
Delphi-Quellcode:
var
RemotePath:
String;
Download:TDownloadURL;
begin
downloadfilename:=fileName;
RemotePath:='
http://localhost/download/';
Download:=TDownloadURL.Create(self);
Download.URL:=RemotePath+filename;
Download.Filename:=ExtractFilePath(Application.ExeName)+fileName;
Download.OnDownloadProgress:=URL_OnDownloadProgress;
try
Download.ExecuteTarget(
nil);
except
on E:
Exception do
ShowMessage(E.
Message);
end;
Leider kommt es nie zu einer
Exception.