Sakura stellt
hier eine kurze Funktion vor, mit der man überprüfen kann, ob eine Datei auf einem Server existiert. Genutzt werden dabei die
Indy-Komponenten.
Delphi-Quellcode:
uses
...., IdHTTP;
....
function HTTPFileExists(aURL: String): Boolean;
begin
with TIdHTTP.Create(nil) do
try
try
Head(aURL);
Result := ResponseCode = 200;
except
Result := False;
end;
finally
Free;
end;
end;