Как Передать Токен В Процедуру Потока?

[Polya]

Как передать токен в процедуру потока, если в потоке нельзя обращаться к глобальным переменным?
work:boolean глобальная
response, token: string глобальные

  TOnline = class(TThread)
  private
  Interval:integer;
  HTTP:thttpsend;
  procedure Execute; override;
  end;

procedure TOnline.Execute;
var
th:TThread;
temp:string;
i:integer;
begin
inherited;

while Work do
begin
HTTP:=thttpsend.Create;
   sleep(interval);
   TThread.Synchronize(Self, procedure begin
   response:=send('GET', 'https://api.vk.com/method/account.setOnline?&access_token='+ token);
   end);
end;
end;

procedure TForm1.sSlider1Click(Sender: TObject);
var
th:TThread;
i:integer;
begin
for i := 0 to 4 do
if sSlider1.SliderOn=true then begin
Th := TOnline.Create;
(Th as TOnline).Interval := 1000;
end
else
th.Terminate;
sleep(500);
th.DisposeOf;
end;

 

[Lomanu4]

Советую почитать эту статьюhttps://forum.antichat.ru/threads/326306/
Мой тебе советую если хочешь обратиться к глобальному параметру из потока,лучше использавать адрес.
Для этого есть специальный аргумент в данной функции - lpParameter. То есть можно передать указатель на переменную или инициализированную структуру, а в потоке использовать эти значения для совершения необходимых действий.

Передавать его просто - сделать операцию получения адреса. Получить его - присвоить адрес своей переменной и сделать разыменование адреса.

var Nya:^Integer;
A: Integer;...
K := lpParam;// присваивание...
A =10+ K^;// использование
И вместо CreateThread лучше в Delphi BeginThread использовать.

Глобальные переменные, конечно, тоже можно, но там надо аккуратнее.

 

[Polya]

Советую почитать эту статьюhttps://forum.antichat.ru/threads/326306/
Мой тебе советую если хочешь обратиться к глобальному параметру из потока,лучше использавать адрес.
Для этого есть специальный аргумент в данной функции - lpParameter. То есть можно передать указатель на переменную или инициализированную структуру, а в потоке использовать эти значения для совершения необходимых действий.

Передавать его просто - сделать операцию получения адреса. Получить его - присвоить адрес своей переменной и сделать разыменование адреса.

var Nya:^Integer;
A: Integer;...
K := lpParam;// присваивание...
A =10+ K^;// использование
И вместо CreateThread лучше в Delphi BeginThread использовать.

Глобальные переменные, конечно, тоже можно, но там надо аккуратнее.

Спасибо) Это уже по интереснее будет.