Hallo,
ich prüfe die Existenz von Files am Server über den Rückgabewert des Servers
um zu umgehen das ich beim Aufruf der Datei einen "404" Error-Coder erhalte für "Nicht gefunden".
Mein Code zum Prüfen:
Delphi-Quellcode:
function UrlCheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
with TidHTTP.Create(nil) do
try
try
HandleRedirects := bAllowRedirects;
Head(sUrl);
Result := Response.ResponseCode;
finally
Free;
end;
except
Result := GetLastError;
end;
end;
Aufruf :
if (UrlCheck(CLB_files.items[ix], true) = 200) then ...
Den Code hab ich auch hier aus dem Forum.
Die "CLB_files" ist eine CheckListBox in der meine URLs stehen.
Nun klappt alles wenn die Datei vorhanden ist.
Sofern sie nicht existiert bricht das "Head"-Kommando ab und bringt mir eine Exeption mit "404" Error.
Das ist genau das was ich eigentlich umgehen wollte.
Kann ich der TidHTTP-Komponente nicht irgendwie sagen das sie keine Exeptions rauslassen soll?
Damit ich halt nur als Rückgabe 404 erhalte aber keine Exeption.
Gruß Holger.