[bulldog]

Народ, сорри, но уже мозг кипит. есть кнопка на форме для запуска потоков.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var   Form1: TForm1;   Pay: array [1..2000] of BUX;   http_1: array [1..2000] of TIdHTTP;   IdCookieManager1_Pay:  array [1..2000] of TIdCookieManager;   procedure TForm2.Bux_Button2Click(Sender: TObject); var w:integer; s:integer; cw : integer; // счетчик цикло   begin   for w:=1 to Form2.Listview1.Items.count do   begin   Pay[w]:=1.Create(True);   Pay[w].FreeOnTerminate := True;   Pay[w].Priority:=tpnormal;   Pay[w].Resume;   end;   end;

есть поток

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79

unit T1;   interface   uses   Windows, SysUtils,  Dialogs, Classes, IdBaseComponent, IdComponent,   IdTCPConnection, IdTCPClient, IdHTTP, RpDefine, RpRender, RpRenderHTML,   IdCookieManager, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,   IdSSLOpenSSL, StrUtils, pngimage;   type   1 = class(TThread)     http_1:TIdHTTP; IdCookieManager1_Pay: TIdCookieManager; RvRenderHTML2: TRvRenderHTML; IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;   private     { Private declarations }   protected     procedure Execute; override;   public end;   implementation   uses Unit1 procedure 1.Execute; var cw : integer; // счетчик цикло i : integer; // счетчик цикло a : integer; // счетчик цикло BPos : integer; // счетчик цикло EPos : integer; // счетчик цикло st:TStringStream; str:AnsiString; s:TStringStream; URL_Pay:String; Login:String; Pass:String; inf:TStringList; img: TMemoryStream; png: TPNGObject;   begin   for i:=0 to Form2.Listview1.Items.count-1 do   begin   URL_Pay :=Form2.Listview1.Items[i].SubItems[0];//сайты   Login := Form2.Listview1.Items[i].SubItems[1];//логины   Pass := Form2.Listview1.Items[i].SubItems[2];//пароли   begin IdCookieManager1_Pay:= TIdCookieManager.Create(nil); http_1 := TidHTTP.Create(nil); http_1.AllowCookies:=true; http_1.HandleRedirects:= true; cw:=getnumber; s:=TStringStream.Create; st:=TStringStream.Create;  inf:=tstringlist.create; begin http_1.get('http://' + URL_Pay + 'login.php?r=',s); end; If pos('image.php?', s.datastring)>0 then begin /// end else ///              end; try       except   end; end; finally http_1.free; end;   end;   end; ;

и найденый мною код который я уже поберебрасывал по несколько раз по форме и потоку

Код:

1 2 3 4 5 6 7 8 9 10 11

cw : integer; ind:integer=-1; function getnumber:integer; begin   if ind<>form1.Listview1.items.Count then   inc(ind);   result:=ind; end;   begin   while cw<form2.Listview1.items.Count do   begin

Что мне нада сделать для того что бы для каждой записи создавался поток и работал только с нею