idHTTP.get

 
0
 
Delphi, Kylix & Pascal
ava
pomogite | 16.03.2013, 20:42
Здравствуйте, есть программка которая проверяет сайты на наличие на них строки:

begin
progressbar1.Max:=memo1.Lines.Count-1;
find:=edit1.Text;
  for i := 0 to memo1.Lines.Count-1 do
     begin
      progressbar1.Position:=i;
      try
      memo3.Text:=idHTTP1.Get(edit3.Text+memo1.Lines.Strings[i]+edit2.Text);
      finally
        begin
          If Pos(find, Memo3.Lines.Text)<>0 Then
             Begin
               Memo2.Lines.Add(memo1.Lines.Strings[i]);
             end;
        end; 
      end;
end;


Но если сайт не грузится, или не найден то программа просто выдаёт ошибку например HTTP/1.1 404 и дальше уже не берёт следующий для проверки, подскажите как исправить пожалуйста.
Comments (4)
ava
Akella | 16.03.2013, 20:06 #
вставь continue в except end
ava
pomogite | 16.03.2013, 20:16 #
Спасибо! Помогло, только теперь программа почему-то зависает на середине списка =( 
ava
Akella | 16.03.2013, 20:32 #
ну... медленно скачивает
добавь в проект антифриз
и/или вынеси код в отдельный поток
или намертво подвисает?
ava
pomogite | 16.03.2013, 20:45 #
Akella,
С антифризом норм, только почему-то когда первый попавшийся сайт по критерию находит дальше перестает работать просто зависает и всё, не доходит до включения кнопки.

begin
progressbar1.Max:=memo1.Lines.Count-1;
     button1.Enabled:=false;
find:=edit1.Text;
  for i := 0 to memo1.Lines.Count-1 do
     begin
      progressbar1.Position:=i;
      try
        memo3.Text:=idHTTP1.Get(edit3.Text+memo1.Lines.Strings[i]+edit2.Text);
      except
        continue
      end;
          If Pos(find, Memo3.Lines.Text)<>0 Then Memo2.Lines.Add(memo1.Lines.Strings[i]) else end;
 idHTTP1.Free;
     memo3.Clear;
     button1.Enabled:=true;

end;
Please register or login to write.
Firm of day
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Contributors
advanced
Submit