Список событий в StringList

[MixanMM]

Добрый день, подскажите пожалуйста как реализовать добавление событий в String list или быть может, просто в таймер и вызывать их поочередно? Проблема такая - есть два датчика которые подключены к одному ком порту, если обращаться с опросом статуса к одному из них- проблем нет, а если одновременно к двум, соотвествено будет ошибка-есть идея опрашивать их текущий статус по событиям из string lista

[evg_m]

- а какое отношение к com-порту имеет StringList ???
- ну как же там (в StringList) накапливаются результаты опроса.
- а кто (какой код, объект) передает туда данные ?
- ...
- вот там (в том коде, объекте) и надо делать разграничение доступа к com-порту.

- но это разные объекты для каждого из портов.
- в таком случае к вашим услугам семафоры, критические секции и прочие объекты синхронизации.

[Pavia]

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

- а какое отношение к com-порту имеет StringList ???
- ну как же там (в StringList) накапливаются результаты опроса.
- а кто (какой код, объект) передает туда данные ?
- ...
- вот там (в том коде, объекте) и надо делать разграничение доступа к com-порту.

- но это разные объекты для каждого из портов.
- в таком случае к вашим услугам семафоры, критические секции и прочие объекты синхронизации.

Это излишне. В таймера вызывается функция чтения с первого датчика потом со второго. Данные заносятся в глобальный объект типо массива или записи или синглтона.
Шина общая так что опрос датчиков будет по любому последовательный. А глобальный массив будет выступать в качестве буфера или кэша. А остальные части программы уже читают из него. Это ускорит работу кода. Блокировки не нужны Интел гарантирует активность на запись DWord выполненных на границе 4. Собственно компилятор и так выравнивает данные. Единственно если датчик умный и там не просто число а некоторая структура с хронением состояние от которого зависит валидность данных то тут лучше подстраховаться и зделать мьютекс на общий глобальный объект. Или за доккументировать грязное чтение.

[MixanMM]

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

Это излишне. В таймера вызывается функция чтения с первого датчика потом со второго. Данные заносятся в глобальный объект типо массива или записи или синглтона.
Шина общая так что опрос датчиков будет по любому последовательный. А глобальный массив будет выступать в качестве буфера или кэша. А остальные части программы уже читают из него. Это ускорит работу кода. Блокировки не нужны Интел гарантирует активность на запись DWord выполненных на границе 4. Собственно компилятор и так выравнивает данные. Единственно если датчик умный и там не просто число а некоторая структура с хронением состояние от которого зависит валидность данных то тут лучше подстраховаться и зделать мьютекс на общий глобальный объект. Или за доккументировать грязное чтение.

Весь сыр-бор из-за того что - например нажал на кнопку запуска датчика-запускается таймер с него считываются данные- отображаю показание на панели -все ок, но тут надо запустить второй датчик - и все, труба, ком порт занят первым таймером-пока он не отработает - запуск второго датчика не произойдет, поэтому и думал через некий список организовать , надеюсь понятно объяснил

[Pavia]

Используйте функциональный тип
http://pascalabc.net/downloads/pabcn.../proctype.html
Для методов класса в конце типа добвляее of object;
Складываете свои события в массив и из него вызываете.

[northener]

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

подскажите пожалуйста как реализовать добавление событий в String list

А какие проблемы?
В моих программах работы с железяками любое действие пользователя требующее обращение к железу оформляется как некая структура/класс и заносится в список. Ранее это был TList, затем это стал TObjecList. Далее как только обработано предыдущее обращение к железякам, берется первый элемент из списка и выполняется.

[MixanMM]

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

А какие проблемы?
В моих программах работы с железяками любое действие пользователя требующее обращение к железу оформляется как некая структура/класс и заносится в список. Ранее это был TList, затем это стал TObjecList. Далее как только обработано предыдущее обращение к железякам, берется первый элемент из списка и выполняется.

Можете подсказать, может у вас уже так реализовано:
1)Нажали кнопку пуск №1
2)Идет опрос датчика №1
Приехал второй клиент
3) Нажимаем кнопку пуск №2
4) Идет опрос датчика №3
Получается что Пуск №2 произойдет только после того как окончится опрос датчика №1 и скинет статус "СТОП", но мне нужно что бы Пуск№2 сработал в не зависимотси от того идет опрос датчика №1 или нет, например если это АЗС - То в момент налива идет опрос колнки№1, и приехал второй клиент, нужно запустить вторую колонку№2 вне зависимости от того заправился на колонке №1 или не заправлился еще

[northener]

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

2)Идет опрос датчика №1

Объясните подробнее что вы под этим подразумеваете?

[MixanMM]

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

Объясните подробнее что вы под этим подразумеваете?

Запускается таймер 1000 :

function GetStatus(N:integer; var Status:char):boolean;
var
 Err:boolean;
begin
Buf:=#1+GetTRK_No(N)+'4'+#2+'0000000000000000'+#3; // Формирование пакета данных
CRC;                                               // Расчёт CRC
Err:=Transfer;                                     // Обмен данными с колонкой
Status:=Buf[21];                                   // Выделение статуса из пакета
Result:=Err and ((ord(Buf[20]) and $3f)=$30);      // Проверка ошибок
end;

[northener]

Ну так вот. Заведите для каждой колонки флаг (переменную типа Boolean) и взводите его после запуска соответствующей колонки. А в процедуре таймера проверяйте эти флаги и посылайте по очереди команды для тех колонок, у которых этот флаг установлен. Сбрасывайте флаги по окончании залива соответствующей колонки.
Как вариант.