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.