Aber ich kann dir sagen, warum die
Exception nicht ausgelöst wird
Windows
API-Funktionen werfen bei Fehlern keine
Exception! Daher haben die meisten Funktionen einen Return-Wert. Die Funktion URLDownloadToFile() kann laut
MSDN folgende Werte zurückgeben
Code:
S_OK The download started successfully.
E_OUTOFMEMORY The buffer length is invalid, or there is insufficient memory to complete the operation.
INET_E_DOWNLOAD_FAILURE The specified resource or callback interface was invalid.
Du könntest die Zeile so umschreiben:
Delphi-Quellcode:
if UrlDownloadToFile(
nil, Datei, Ziel, 0,
nil) <> S_OK
then
raise Exception.Create('
UrlDownloadToFile failed!');