Многопоточность

[Realizt]

del

[~Керя~]

Я в этом не силен, но так и должно быть?

 Thread:=strtoint(sSpinEdit1.Text);
    Form3.sBitBtn1.Enabled := false;
    Form3.sBitBtn2.Enabled := true;
    Form3.sBitBtn4.Enabled := false;
    Form3.sBitBtn3.Enabled := false;

[Realizt]

Цитата: Сообщение от ~Керя~ Я в этом не силен, но так и должно быть? Thread:=strtoint(sSpinEdit1.Text); Form3.sBitBtn1.Enabled := false; Form3.sBitBtn2.Enabled := true; Form3.sBitBtn4.Enabled := false; Form3.sBitBtn3.Enabled := false;

Это при нажатие 1 кнопки , остальные делаются не активные

[~Керя~]

Мб где-то отсутствует begin?

[Relli]

Ты хоть опиши,как определяешь гуд и бед.
Судя по тому,что у тебя есть,то при гуде у тебя редерикт?

[Realizt]

del/

[Relli]

Я спрашиваю,как ты определяешь,что гуд или бед?
Через редерикт,через слово или как?

[mad_cat]

ну во первых
у тя что гуд что бед - результат один О_О

Цитата: try Link:=HTTP.Post('######',Mails); Rez:=1; //Гуд except if Pos('######',Link)<>0 then else Rez:=1; //Бэд end;

во-вторых после then ниче не пропустил?
и в - третьих как то ты через ж используешь try...except...end;

[Роспотребнадзор]

Цитата: Сообщение от Realizt {Ищем Пост и выводим Гуд и Бэд} try Link:=HTTP.Post('https://www.ea.com/profile/forgot',data); Rez:=-1; except if Pos('have been sent to your email address',Link)<>0 then Rez:=1 //Гуд else Rez:=0; //Бэд end;

Не нравится мне что то твой код )
Может быть что то типа такого:

Цитата: begin Link:=HTTP.Post('https://www.ea.com/profile/forgot',data); if Pos('have been sent to your email address',Link)<>0 then begin Rez:=Rez+1; end else begin bad:=bad+1; end;

Таким образом ты подсчитаешь количество гудов и бэдов, если конечно они тебе нужны.

[Realizt]

del/

[mad_cat]

Цитата: try Link:=HTTP.Post('https://www.ea.com/profile/forgot',data); Rez:=-1; if Pos('have been sent to your email address',Link)<>0 then Rez:=1 //Гуд else Rez:=0; //Бэд except rez:=-1; end;

вот так должно быть по идее

[Realizt]

Цитата: Сообщение от mad_cat вот так должно быть по идее

При таком раскладе всё в гуд идёт

Добавлено через 2 минуты

Цитата: Сообщение от mad_cat ну во первых у тя что гуд что бед - результат один О_О во-вторых после then ниче не пропустил? и в - третьих как то ты через ж используешь try...except...end;

Смотри второй пример что выложил и покажи не нём если не сложно

[mad_cat]

а теперь смотри

Цитата: case Rez of .... -1:begin Form3.sMemo2.Font.Color := clRed; Form3.sMemo2.Lines.Add(''+Mails[Acc]); //в Мемо1 пишется что акк не валид. Form3.sLabel6.Caption:=IntToStr(StrToInt(Form3.sLa bel6.Caption)+1); //к бедам добавляется значение +1 Form3.sGauge1.Progress:=Form3.sGauge1.Progress+1; end;

то есть bad у тя -1 так в процедуре Sync
а в Execute

Цитата: try Link:=HTTP.Post('https://www.ea.com/profile/forgot',data); Rez:=-1; except if Pos('have been sent to your email address',Link)<>0 then Rez:=1 //Гуд else Rez:=0; //Бэд end;

Бед=0
так и должно быть? o_O

[Realizt]

Такая проблема если ставишь больше 2 токов пропускает гуды почему помогите
Может что то с потоками не так ? Помогите)

[Realizt]

Ап