Содержание:


GetChannelInfo

Функция позволяет получить параметры канала.

Синтаксис

GetChannelInfo
(ChannelName: String; ID: Integer;
HighScale: Extended; LowScale: Extended;
HighAlarm: Extended; LowAlarm: Extended;
MeasureUnit: String; ValueType: Integer): Boolean

Входные параметры
Имя параметра
Тип параметра
Описание
ChannelName
String
 Имя канала
ID
Integer
 Идентификатор канала
HighScale Extended  Верх шкалы
LowScale Extended  Низ шкалы
HighAlarm Extended  Верх уставки
LowAlarm Extended  Низ уставки
MeasureUnit String  Единица измерения
ValueType Integer  Возвращаемое значение
Выходные параметры
Тип параметра  
Описание 
Boolean  True - параметры канала
            считаны успешно
 False - произошла ошибка


Возвращаемые значения ValueType

Код
  состояния 
Описание
2   (SmallInt) Двухбайтное целое со знаком
3   (Integer) Четырёхбайтное целое со знаком
4
  (Single) Четырёхбайтное вещественное
5   (Double)Восьмибайтное вещественное
7   (TDataTime) Дата-время 
8   (String) Строка типа BSTR
11   (Boolean) Логический тип
16   (ShortInt) Однобайтное целое со знаком
17   (Byte) Однобайтное беззнаковое целое
18   (Word) Двухбайтное беззнаковое целое
19   (LongWord) Четырёхбайтное беззнаковое целое 
20   (Int64) Восьмибайтное целое со знаком
999   (TTime)время


Пример вызова:

Var
  ID, hScale: Integer;
  lScale, hAlarm, lAlarm: Double;
  measureUnit, s: String;
  valueType: Word;                                                       
  res: Boolean;
                                             
  Begin                        
    res := GetChannelInfo('Сигнал 1', ID, hScale,  lScale, hAlarm, lAlarm, measureUnit, valueType);  
    if res then
    begin
      s := 'ID = '           + IntToStr(ID)       + '  ' + 
           'highScale = '    + FloatToStr(hScale) + '  ' +     
           'lowScale = '     + FloatToStr(lScale) + '  ' +     
           'highAlarm = '    + FloatToStr(hAlarm) + '  ' +     
           'lowAlarm = '     + FloatToStr(lAlarm) + '  ' +     
           'measureUnit = "' + measureUnit        + '"  ' +     
           'valueType = '    + IntToStr(valueType);
      WriteValue('Virtual channel 99', s);
   end;
end.