Как проверить есть ли на сайте тот или иной файл ? (по HTTP)

[IgorT]

Нужно проверять есть ли например файл по адресу - http://www.example.com/1.rar . Подскажите плз как ето сделать

[Rouse_]

как-то так...
но только это проверка на не то: существует файл или нет, а доступен файл или нет с внешки...

program IsFileExists;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  WinInet;
 
var
  FSession, FConnect: HINTERNET;
  StatusCode, Len, Res: Cardinal;
begin
  try
    FSession := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
    if not Assigned(FSession) then Exit;
    try
      FConnect := InternetOpenUrl(FSession,
        'http://rouse.drkb.ru/other/vista.jpg', nil, 0, 0, 0);
      if not Assigned(FConnect) then Exit;
      try
        Len := 4;
        StatusCode := 0;
        Res := 0;
        HttpQueryInfo(FConnect, HTTP_QUERY_STATUS_CODE or
          HTTP_QUERY_FLAG_NUMBER, @StatusCode, Len, Res);
        // если сервер на запрос вернул 200 - файл сущетвует
        writeln(StatusCode = 200);
        readln;
      finally
        InternetCloseHandle(FConnect);
      end;
    finally
      InternetCloseHandle(FSession);
    end;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

[IgorT]

Спасибо, работает !