|
Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
Delphi 11 Alexandria
|
31. Mai 2003, 14:00
Über die Indy-HTTP Komponente würde ich das wie folgt lösen.
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;
...  ...
Daniel W.
Ich bin nicht zurück, ich tue nur so
|