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

[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:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('######',Mails);
Rez:=1; //Гуд
except
if Pos('######',Link)<>0 then else
Rez:=1; //Бэд
end;
во-вторых после then ниче не пропустил?
и в - третьих как то ты через ж используешь try...except...end;

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

{Ищем Пост и выводим Гуд и Бэд}
try
Link:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',data);
Rez:=-1;
except
if Pos('have been sent to your email address',Link)<>0 then
Rez:=1 //Гуд
else
Rez:=0; //Бэд
end;

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

begin
Link:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',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:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',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]

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

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

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

во-вторых после 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:=[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]',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]

Ап

[Realizt]

АП