Prüfen ob Datei auf Server vorhanden

[DieHardMan]

Hi,
ich möchte prüfen ob eine bestimmte Datei auf dem Server liegt. Ich habs bisher versucht innen Ftp einzuloggen und alle Files zu listen, dauert aber zu lange, und die webbrowser kompo is zu ressourcenfressend, hat jemand ne einfache Lösung parat?

Kurz ich bräuchte sowas wie:

Code:

  if FileExists('http://www.server.de/file.xyz') then
    ShowMessage('vorhanden');

[sakura]

Ü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;

...:cat:...

[DieHardMan]

Thx hat geklappt :)