наличие файлы на сайте

[mitiay]

подскажите как проверить наличие файла на сайте, то есть
site/catalog/index3.php
Если есть index3 пишем что есть файл

[Alex11223]

Причем тут файл?
Совсем не обязательно, что каждому адресу соответствует файл на сервере если это не статический сайт.

Видимо вы хотели просто выполнить HTTP GET запрос любым HTTP клиентом (Indy, Synapse, ...) и посмотреть его успешность.

[mitiay]

ну скорей всего да,можно пример?

[mitiay]

Memo1.Lines.Clear;
 try
   Memo1.Lines.Add(IdHTTP1.Get(Edit1.Text));
 except on e : EIDHttpProtocolException do
   Begin
     if e.ErrorCode = 302 then
       begin
         try
           // получаем новый адрес - адрес перенаправления
           Memo1.lines.add(idhttp1.Get(IdHTTP1.Response.Location));
         except on e:Exception do
    // предусматриваем, что исключение может возникнуть и тут
           ShowMessage('Ошибка при получении нового адреса.'+e.Message);
         end;
       end
     else
       //http 404, 501 и так далее
       memo2.lines.Add(edit1.Text+'не найдено')
   end;
 on e:Exception do
   ShowMessage('Ошибка: ' + e.Message);
 end;

Вот как ненайдено я понял как сделать,а вот как найдено подскажите)

[NetSpace]

надо чтоб код ошибки не равнялся 302?
типа

 if e.ErrorCode <> 302 then

[Alex11223]

Нет, 302 это редирект.

[mitiay]

begin
 try           
 IdHTTP1.Get(Edit1.Text);
 memo1.Lines.Add(edit1.Text+'найдено')
 except on e : EIDHttpProtocolException do
   Begin
     if e.ErrorCode = 302 then
       begin
         try
           // получаем новый адрес - адрес перенаправления
           Memo1.lines.add(idhttp1.Get(IdHTTP1.Response.Location));
         except on e:Exception do
    // предусматриваем, что исключение может возникнуть и тут
           ShowMessage('Ошибка при получении нового адреса.'+e.Message);
         end;
       end
     else
       //http 404, 501 и так далее
       memo2.lines.Add(edit1.Text+'не найдено')
   end;
 on e:Exception do
   ShowMessage('Ошибка: ' + e.Message);
 end;

Так и с этим разобрался,подскажите теперь как по url брать из списка и проверять по порядку?допустим список будет в memo

[FaTaL]

Циклом for i:=0 to Memo1.Lines.Count - 1 do Ваши действия

[mitiay]

var
i:integer;
begin
 try
 for i:= 0 to Memo3.Lines.Count-1 do
 IdHTTP1.Get(memo3.Lines[i]);
 memo1.Lines.Add(edit1.Text+'найдено');
 except on e : EIDHttpProtocolException do
   Begin
     if e.ErrorCode = 302 then
       begin
         try
           // получаем новый адрес - адрес перенаправления
           Memo1.lines.add(idhttp1.Get(IdHTTP1.Response.Location));
         except on e:Exception do
    // предусматриваем, что исключение может возникнуть и тут
           ShowMessage('Ошибка при получении нового адреса.'+e.Message);
         end;
       end
     else
       //http 404, 501 и так далее
       memo2.lines.Add(edit1.Text+'не найдено')
   end;
 on e:Exception do
   ShowMessage('Ошибка: ' + e.Message);
 end;

Но проверяет только первый сайт остальные молчит(

[Alex11223]

Что написано, то и делает.