Здравствуйте, есть программка которая проверяет сайты на наличие на них строки:
| Код |
begin
progressbar1.Max:=memo1.Lines.Count-1;
find:=edit1.Text;
for i := 0 to memo1.Lines.Count-1 do
begin
progressbar1.Position:=i;
except end;
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 и дальше уже не берёт следующий для проверки, подскажите как исправить пожалуйста. |