Народ, сорри, но уже мозг кипит. есть кнопка на форме для запуска потоков.
Код:
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;
есть поток
Код:
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;
;
и найденый мною код который я уже поберебрасывал по несколько раз по форме и потоку
Код:
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
Что мне нада сделать для того что бы для каждой записи создавался поток и работал только с нею