KRVariables.pas

Типы данных

• TVarUpdateType – метод обновления значения переменной
  • vutBefore – перед отправкой значения
  • vutAfter – после отправки значения
  • vutAftUpdate – после обновления. То есть после отправки запроса чтения и получения результата с текущим значением
• TVarType – тип значения переменной
  • VT_BYTE – беззнаковый целочисленный байт
  • VT_WORD – беззнаковое 16-битное целочисленное значение
  • VT_DWORD – беззнаковое 32-битное целочисленное значение
  • VT_SMALLINT – 16-битное целочисленное значение
  • VT_INT – 32-битное целочисленное значение
  • VT_SINGLE – 32-битное значение с плавающей точкой
  • VT_STRING – строка
  • VT_INT64 – 64-битное целочисленное значение
  • VT_DOUBLE – 64-битное значение с плавающей точкой
  • VT_UINT64 – беззнаковое 64-битное целочисленное значение

TValUpdate = procedure (Sender: TObject; Variable: TKRVariable) of object;

• TValUpdate – событие обновления значения
  • Sender – указатель на TKRVariable
  • Variable – обновленная переменная

Интерфейсы

Интерфейс IKRVarUp

IKRVarUp – интерфейс мониторинга за результатами запросов переменной

Методы интерфейса IKRVarUp

procedure VarUp(AVar: TKRVariable); stdcall;

• VarUp – вызывается при положительном ответе от удаленного устройства на запрос получения текущего значения переменной
  • AVar – переменная, значение которой обновилось

procedure VarErr(AVar: TKRVariable); stdcall;

• VarErr – вызывается при ошибке выполнения запроса
  • AVar – переменная, в которой возникла ошибка

Классы

Класс TKRVariable

Родительский класс TKRComponentCollectionItem

Интерфейсы: IKRCfgParam

TKRVariable – переменная удаленного устройства. Виртуальный класс

Свойства класса TKRVariable

property ErrorMsg: String;

• ErrorMsg – последнее сообщение об ошибке

property Error: integer;

• Error – код последней ошибки

property Value: Variant;

• Value – значение переменной

property VarType: TVarType;

• VarType – тип переменный TVarType

property Interval: Integer;

• Interval – интервал обновления значения в миллисекундах. Если установлено значение больше нуля, то будут отправляться запросы обновления с заданной периодичностью

property CfgInterval: TKRIniCfgParam;

• CfgInterval – конфигурационный параметр типа TKRIniCfgParam, для хранения значения свойства Interval

property CfgValue: TKRIniCfgParam;

• CfgValue – конфигурационный параметр для сохранения значения переменной

property UpdateType: TVarUpdateType;

• UpdateType – метод обновления значения переменной TVarUpdateType

property UpAftWrite: boolean;

• UpAftWrite – если опция включена, то после положительного ответа устройства на запрос записи, посылается запрос чтения

property UserError: boolean;

• UserError – включение пользовательской ошибки(симуляция ошибки)

property UserErrorMsg: String;

• UserErrorMsg – сообщение об ошибке при включенной пользовательской ошибке

property ValUpdated: boolean;

• ValUpdated – индикатор обновления значения. Только чтения. Значение актуально только когда свойство Interval равно нулю. При отправке запроса чтения с помощью метода UpdateValue сбрасывается в False, а после получения положительного ответа переходит в True

property WaitForUpdates: boolean;

• WaitForUpdates – ожидание обновления значения. Актуально только когда Interval равен нулю. Если свойство включено, то после первого вызова метода UpdateValue, он будет повторно вызываться пока не будет получено значение переменной. То есть если по запросу чтения получена ошибка или не получено ни чего(таймаут), то запрос чтения будет отправляться повторно пока не придёт положительный ответ.

property ErrorCount: integer;

• ErrorCount – количество подряд пришедших ошибок для установки состояния переменной в ошибку. Например, если установить значение этому свойству 3, то одна или две подряд пришедшие ошибки не будут влиять на визуальные компоненты (например KRField цвет фона менять не будет) и событие OnError вызываться не будет

События класса TKRVariable

property OnValUpdated: TValUpdate;

• OnValUpdated – событие вызывается после положительного ответа на запрос чтения значения с удаленного устройства

property OnError: TValUpdate;

• OnError – вызывается если не удалось получить ответ от устройства или ответ содержит ошибку

property OnRuntimeError: TKRRuntimeErrorEv;

• OnRuntimeError – вызывается при возникновении исключения в компоненте

Методы класса TKRVariable

procedure UpdateValue;

• UpdateValue – посылает запрос чтения значения в удаленное устройство. Если свойство Interval больше нуля, то данный метод не работает

procedure AddMon(AMon: IKRVarUp);

• AddMon – добавляет объект соответствующий интерфейсу IKRVarUp в список мониторинга для фиксирования результатов обработки запросов
  • AMon – объект в котором будет вызываться метод VarUp при положительном ответе на запрос обновления и метод VarErr при ошибке

procedure DelMon(AMon: IKRVarUp);

• DelMon – удаляет объект из мониторинга
  • AMon – объект, который будет удален

Класс TKRVariabels

Родительский класс TKRComponentCollection

TKRVariabels – коллекция переменных TKRVariable. Виртуальный класс

Свойства класса TKRVariabels

property ReactionTime: word;

• ReactionTime – время реакции в миллисекундах. Минимальное значение 1. После получения результата запроса для синхронизации используется таймер. Время реакции – это время работы этого таймера.

Методы класса TKRVariabels

procedure updateAllVariabels;

• updateAllVariabels – вызывает метод UpdateValue у всех переменных, которых интервал равен нулю

procedure updateAllWaitingVariabels;

• updateAllWaitingVariabels – вызывает метод UpdateValue у всех переменных, которых включено свойство WaitForUpdates

Поделиться: