Datei aus dem Internet herunterladen - geht nicht mehr!

[Rolf Frei]

Zitat von NicoleWagner:

ShowMessage(SysErrorMessage(GetLastError)) lautet: "Der Vorgang wurde erfolgreich beendet."
Den IE habe ich aktualisiert, von Version 9 auf 11.
Doch leider ist mein Problem unverändert.

GetLatestError funktioniert hier nicht. UrlDownloadToFile ist eine COM/OLE-Funktion und die liefert ein HResult zurück. Passe deine Downloadfunktion daher mal wie folgendes an:

Code:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  OleCheck(UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil));
  Result := True;
end;

Das liefert dir dann im Erfolgsfall True zurück. Im Fehlerfall wird eine Exeption ausgelöst in der du den Fehlercode siehst. Nach dem müsste man dann weiter schauen, was der bedeutet.