Помогите Пожалуйста С Кодом Потока

[Polya]

Вот класс потока

TFriendsAdd = class(TThread)
  private
  HTTP:thttpsend;
  response, s1, s2, token:string;
  protected
    procedure Execute; override;
  end;

Вот сам поток

procedure TFriendsAdd.Execute;
var
temp: string;
begin
  while Work do
  begin
  Cs.Enter;
  Inc(Acc);
  Cs.Leave;
  if Work then begin
  HTTP:=thttpsend.Create;
response := send('GET', 'https://api.vk.com/method/friends.getRequests?offset&count&out&extended&v=5.24&access_token=' + token);
  if Pos('count', response) <> 0 then
  begin
  s1 := copy(response, Pos('"items":', response));
  delete(s1, 1, 9);
  s2 := copy(s1, 1, pos(',',s1)-1);

response := send('GET', 'https://api.vk.com/method/friends.add?user_id='+s2+'&v=5.24&access_token=' + token);
if Pos('count', response) <> 0 then
end;
end;
  end;
end;

Вот активация потока

procedure TForm1.sRadioButton2Click(Sender: TObject);
var
i:integer;
begin
if sRadioButton2.Checked=true then begin
  StrTime:=TimetoStr(Time);
  for i := 1 to Length(STRTime) do
  Work:=true;
  for i := 1 to 1 do
  TFriendsAdd.Create(false);
end;
end;

 

[Sascha]

А в чём помощь, вчём ошибка или проблема

 

[Lomanu4]

Вот класс потока

TFriendsAdd = class(TThread)
  private
  HTTP:thttpsend;
  response, s1, s2, token:string;
  protected
    procedure Execute; override;
  end;

Вот сам поток

procedure TFriendsAdd.Execute;
var
temp: string;
begin
  while Work do
  begin
  Cs.Enter;
  Inc(Acc);
  Cs.Leave;
  if Work then begin
  HTTP:=thttpsend.Create;
response := send('GET', 'https://api.vk.com/method/friends.getRequests?offset&count&out&extended&v=5.24&access_token=' + token);
  if Pos('count', response) <> 0 then
  begin
  s1 := copy(response, Pos('"items":', response));
  delete(s1, 1, 9);
  s2 := copy(s1, 1, pos(',',s1)-1);

response := send('GET', 'https://api.vk.com/method/friends.add?user_id='+s2+'&v=5.24&access_token=' + token);
if Pos('count', response) <> 0 then
end;
end;
  end;
end;

Вот активация потока

procedure TForm1.sRadioButton2Click(Sender: TObject);
var
i:integer;
begin
if sRadioButton2.Checked=true then begin
  StrTime:=TimetoStr(Time);
  for i := 1 to Length(STRTime) do
  Work:=true;
  for i := 1 to 1 do
  TFriendsAdd.Create(false);
end;
end;

Как может работать поток если не создана переменная для потока. Что бы создать поток нужно задать ему переменную глобальную или же в нутри тела кнопки или процедуры которая создает поток.

 

[Polya]

Как может работать поток если не создана переменная для потока. Что бы создать поток нужно задать ему переменную глобальную или же в нутри тела кнопки или процедуры которая создает поток.

А куда нужно ее вставить, и где объявить ее нужно? Типа TPotok:TThreate; ???

 

[Sascha]

http://guardianelinks.de/index.php?threads/Особенности-Разработки-Потоков.526/

 

[Lomanu4]

А куда нужно ее вставить, и где объявить ее нужно? Типа TPotok:TThreate; ???

ну если вы будете обращаться к потоку с множества процедур то его можно объявить в глобальную переменную та которая создается после класса потока,а если несколько или один раз то вам нужно объявить в теле потока.

 

[Polya]

переменная Work

 

[Lomanu4]

Я думаю проблема решена ,можно закрывать тему.