[Darlok]

Здравствуйте. Прошу помочь в решении следующего вопроса:
Есть процесс который при старте создает копии формы (количество зависит от кол-ва записей в блокноте (номеров)). Вместе с созданием ыормы происходит и создание отдельного потока. В потоке выполняется отправка данных на компонент VaComm и чтение с Vabuffer. Они в единичном экземпляре и находятся в Data Module. Суть проблемы:
1) Как передать специальный номер (номер записан в лейбл)если для каждой созданой формы он уникален (Каждая форма создает свой поток)?
2) Как прочитать данные из переменных потока, если они не глобальны.

[cotseec]

1) Как передать специальный номер (номер записан в лейбл)если для каждой созданой формы он уникален (Каждая форма создает свой поток)?

в конструкторе потока (Create), если TThread или как пользовательские данные (если WinAPI)

2) Как прочитать данные из переменных потока, если они не глобальны.

как пример: по необходимости отправлять в форму сообщение (PostMessage) и в LParam или WParam данные (или указатель на данные)

[angvelem]

PostMessage не гарантирует доставку данных, взамен можно использовать SendMessage.

[Darlok]

Сообщение от cotseec

как пользовательские данные (если WinAPI)
как пример: по необходимости отправлять в форму сообщение (PostMessage) и в LParam или WParam данные (или указатель на данные)

По-поводу пользовательских данных, можно подробнее пожалуйста?
А теперь глупый вопрос... Как в SendMessage передать обращение к процедуре Thread.Execute ?

[angvelem]

Обращение вряд ли передашь, это сообщение для другого предназначено. Использовать CallBack?

[cotseec]

пользовательские данные ( __in_opt LPVOID lpParameter) или в потомке от TThread переопределить конструктор и добавить необходимы данные

Как в SendMessage передать обращение к процедуре Thread.Execute ?

просто ради интереса Зачем?
речь шла о том, как из потока передать данные...вот их и передавать в форму с помощью SendMessage из метода Thread.Execute или как сказано выше - CallBack

[Darlok]

Суть моей проблемы состоит в том что при создании формы ей в лейбл передается уникальный номер. Этот номер используется для обращения к блоку управления (с таким же номером) каждые три секунды через ком порт. Прямые обращения к форме по имени я не могу делать поскольку её имя мне неизвестно при создании (да и гемороя больше). При создании формы создается и поток который вызывается таймером каждые 3 секунды. В execute потока находится код который выполняет обмен. Т.е. мне в execute надо передавать номер блока, выполнить чтение с блока, перевести данные в читабельный вид (всё происходит в процедурах потока) и вывести на форму. Если использовать глобальные переменные то все формы показывают данные одного блока, а мне нужны разные

[cotseec]

попробуйте, во вложении костяк

[Darlok]

Сообщение от cotseec

попробуйте, во вложении костяк

Попробовал. Даже не знаю, как Вам выразить мою огромную благодарность за помощь! Спасибо, человеческое спасибо Пример был интерпретирован под мои нужды и почти доделан. Единственная проблема так это ошибка при обращении к:
ShowMessage(Format('From Thread %n',[Mess.WParam]));
(я переменную i заменил на n. Нужно было так)
Ошибка следующая:
format %n invalid or incompatible with argument и ругается на строку выше.

[angvelem]

Код:

  Caption:=(Format('From Thread %i',[Mess.WParam]));

i - означает вывести в формате целого числа.
n - в формате числа с плавающей запятой.
Уверены, что это нужно?

[Darlok]

Сообщение от angvelem

Код:

  Caption:=(Format('From Thread %i',[Mess.WParam]));

i - означает вывести в формате целого числа.
n - в формате числа с плавающей запятой.
Уверены, что это нужно?

Я не знал что это константовые символы.. Кстати эту процедуру я решил отложить и сделал другой обход. В общем всё заработало! Завтра уже доделаю вывод данных с блока и окончательно скажу как и что

[Darlok]

Возникла проблема... М.б. что-то не правильно делаю но...:

Код:

FThread:=TWorkThread.Create(true,$FF,Handle);
FThread.Priority:=tpLower;

При создании потока мы в Thread_Data передаем число 255 в hex ($FF). А мне надо передавать число которое находится в лейбле(само число туда вписывается при создании формы). Просто передать цифры не работает. В Thread_Data передается 0. В чём может быть проблема?

[cotseec]

передавайте это число, которое вписано в лейбле (как-то же туда его вы вписываете), поток создавайте после того, как вписали в лейбл необходимое значение
посмотрите на передаваемые типы, я для примера указал, что в поток передается тип byte, вы поставьте свой тип
и что подразумевается под этим?

Просто передать цифры не работает. В Thread_Data передается 0.

может как раз вы передаете integer, который обрезается до byte, хотя с другой стороны компилятор варнинг вставил бы на несоответствие типов

[Darlok]

Сообщение от cotseec

передавайте это число, которое вписано в лейбле (как-то же туда его вы вписываете), поток создавайте после того, как вписали в лейбл необходимое значение

После присвоения номера в лейбл, передается этот же номер в переменную и только после всех этих действий происходит создание потока.

Сообщение от cotseec

посмотрите на передаваемые типы, я для примера указал, что в поток передается тип byte, вы поставьте свой тип

Я это сразу же исправил, на integer.

На несоответствие типов никаких намёков небыло

[Darlok]

Ошибку выловил... Оказалось что SendMesage передавая параметры типа integer не воспринимает 0 впереди всего набора символов. (Прикол с передачей номера уже решил). Теперь возник новый вопрос, как передать 0 в начале? Дело в том что от блока данные приходят в таком типе: 0xxxxxxxxxxxxxxxx
где 0 - указатель того что блок отправил на компьютер, а ххх - байты которые нужно обработать