В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Delphi & Lazarus

452 membersпожаловаться на группу
2020 June 02

SB

Sergey Bodrov in Delphi & Lazarus
Алиби Алшынбай
Делаю компонент  класс B это поток  который опрашивает сокет типо пришло ли мне что нибудь если пришло делать что то) так вот в процедуре execute он  должен обратиться к таймеру который находится в классе A
Из потока вредно куда-либо наружу обращаться. Лучше снаружи к потоку обратиться. Например, по таймеру проверять состояние потока.
источник
11:27пожаловаться#1

SB

Sergey Bodrov in Delphi & Lazarus
Или использовать потокобезопасные штуки, например TEvent или PostMessage.
источник
11:28пожаловаться#2

АА

Алиби Алшынбай... in Delphi & Lazarus
Sergey Bodrov
Из потока вредно куда-либо наружу обращаться. Лучше снаружи к потоку обратиться. Например, по таймеру проверять состояние потока.
Да  знаю но мне просто  в потоке узнать true или false таймер  и активен ли другой tcp сокет
источник
11:29пожаловаться#3

SB

Sergey Bodrov in Delphi & Lazarus
Алиби Алшынбай
Да  знаю но мне просто  в потоке узнать true или false таймер  и активен ли другой tcp сокет
Тогда внутри процедуры, запускаемой в TThread.Synchronize().
источник
11:30пожаловаться#4

АА

Алиби Алшынбай... in Delphi & Lazarus
Как можно обратиться к переменой  другого класса с класса потока
источник
11:30пожаловаться#5

АА

Алиби Алшынбай... in Delphi & Lazarus
Sergey Bodrov
Тогда внутри процедуры, запускаемой в TThread.Synchronize().
Получается создать процедуру которая просто проверяет две переменные на тру и фолсе?
источник
11:31пожаловаться#6

АА

Алиби Алшынбай... in Delphi & Lazarus
Алиби Алшынбай
Как можно обратиться к переменой  другого класса с класса потока
Только это по идее нужно
источник
11:33пожаловаться#7

SB

Sergey Bodrov in Delphi & Lazarus
Алиби Алшынбай
Как можно обратиться к переменой  другого класса с класса потока
Как обычно. По имени, если это глобальная переменная (Form1.Timer1, например). Или через назначаемое свойство 
type TMyThread = class(TThread)
public
  Form: TForm;
end;

MyThread := TMyThread.Create(True); // создаем, но не стартуем
MyThread.Form := Form1;
myThread.Suspended := False; // стартуем
источник
11:34пожаловаться#8

VA

Viktor Akselrod in Delphi & Lazarus
Sergey Bodrov
Как обычно. По имени, если это глобальная переменная (Form1.Timer1, например). Или через назначаемое свойство 
type TMyThread = class(TThread)
public
  Form: TForm;
end;

MyThread := TMyThread.Create(True); // создаем, но не стартуем
MyThread.Form := Form1;
myThread.Suspended := False; // стартуем
Suspended много лет уже deprecated
источник
11:37пожаловаться#9

AS

Alexey Shumkin in Delphi & Lazarus
Алиби Алшынбай
Да  знаю но мне просто  в потоке узнать true или false таймер  и активен ли другой tcp сокет
зачем?
источник
11:39пожаловаться#10

SB

Sergey Bodrov in Delphi & Lazarus
Viktor Akselrod
Suspended много лет уже deprecated
Покажи пруф =)
источник
11:41пожаловаться#11

VA

Viktor Akselrod in Delphi & Lazarus
Sergey Bodrov
Покажи пруф =)
Ctrl + Click на Suspended
источник
11:41пожаловаться#12

SB

Sergey Bodrov in Delphi & Lazarus
image.png
(2.53 Кб)
источник
11:42пожаловаться#13

АА

Алиби Алшынбай... in Delphi & Lazarus
TMyThread  = class(Thread)
Protected
Procedure execute;override;
End

Второй класс
MyClass =class(TComponent)
Private
Mytimer :TTimer;
Fclientsocket : TTcpBlocksocket;
Public
Property clientSocket : TTcpBlocksocket read fclientsocket;
источник
11:43пожаловаться#14

АА

Алиби Алшынбай... in Delphi & Lazarus
Так вот в первом классе в процедуре execute
источник
11:43пожаловаться#15

AD

Aleksandr Duduk in Delphi & Lazarus
В Delphi deprecated
источник
11:43пожаловаться#16

SB

Sergey Bodrov in Delphi & Lazarus
Aleksandr Duduk
В Delphi deprecated
В каком дельфи? http://docwiki.embarcadero.com/Libraries/Rio/en/System.Classes.TThread.Suspended
источник
11:43пожаловаться#17

AI

Alexander Ivanov in Delphi & Lazarus
procedure Suspend; deprecated;
источник
11:43пожаловаться#18

AI

Alexander Ivanov in Delphi & Lazarus
procedure Resume; deprecated;
источник
11:44пожаловаться#19

VA

Viktor Akselrod in Delphi & Lazarus
Sergey Bodrov
image.png
(2.53 Кб)
а дальше смотришь что внутри SetSuspended
там Suspend и Resume, которые deprecated

сам прекрасно знаешь. зачем этот цирк?
источник
11:44пожаловаться#20