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

[SLAUR]

Поставь begin и end

[mitiay]

var
i:integer;
begin
 try
   begin
 for i:= 0 to Memo3.Lines.Count-1 do
 IdHTTP1.Get(memo3.Lines[i]);
 memo1.Lines.Add(edit1.Text+'найдено');
   end;
 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;

все равно только одну строчку

[Пепел Феникса]

повторите для себя как циклы пишутся.

[mitiay]

var
i:integer;
begin
 try
 for i:= 0 to Memo3.Lines.Count-1 do begin
 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;

Вспомнил)Вот только на except ругается(.Помогите плз

[Serge_Bliznykov]

try
except
end

должно быть ВНУТРИ цикла

for i:= 0 to Memo3.Lines.Count-1 do begin
   try
      ....
   except
   end
end;

но то, что Вы в цикле творите - всё равно мне не понятно.

например,
IdHTTP1.Get(memo3.Lines[i]); - получить страницу по адресу из memo3.Lines[i]
понятно.

но тут же Вы в мемо выводите
memo1.Lines.Add(edit1.Text+'найдено ');
какое отношение edit1.Text имеет к строке запроса, которая берётся из memo3.Lines[i]?!

ну и зачем там вложенный try except тоже за границами моего понимания!

[mitiay]

Вроде работает но пишет что во всех найдено

var
i:integer;
begin
  for i:= 0 to Memo3.Lines.Count-1 do begin
 try
 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(memo3.Lines[i]+'не найдено')
   end;
 on e:Exception do
   ShowMessage('Ошибка: ' + e.Message);

  end;

[Serge_Bliznykov]

вы моё сообщение прочитали только до середины?
потом не стали читать?
или прочитали, но не поняли, о чём речь идёт?!

но тут же Вы в мемо выводите
memo1.Lines.Add(edit1.Text+'найдено ');
какое отношение edit1.Text имеет к строке запроса, которая берётся из memo3.Lines[i]?!

p.s. вот про вложенный запрос мой вопрос снимается, там же есть другой idhttp1.Get(), этот try для него.

[mitiay]

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  for i:= 0 to Memo3.Lines.Count-1 do begin
 try
 IdHTTP1.Get(memo3.Lines[i]);
 memo1.Lines.Add(memo3.Lines[i]+'найдено');
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(memo3.Lines[i]+'не найдено')
   end;
 on e:Exception do
   ShowMessage('Ошибка: ' + e.Message);

  end;
end;

Исправил,Но он не проверяет на ошибки то есть добавляет в все ссылки в "найденное"

[Serge_Bliznykov]

Но он не проверяет на ошибки то есть добавляет в все ссылки в "найденное"

так может быть IdHTTP1.Get для ваших ссылок и не возвращает ошибок?

[mitiay]

как сделать чтоб возвращал?