Prüfen ob Datei auf Server 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;

......