Existiert eine Datei auf dem Server?

[fkerber]

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;