Ваши комментарии

День добрый.


В текущей версии редактирование учетки "admin" заблокировано. Внесли поправки. Сегодня будет рассылка на обновленную версию.

День добрый.


Компонент "выпадающий список" работает только со строковыми каналами. Вашу задачу можно решить с его применением, но придется использовать скрипт и виртуальный канал.

День добрый.


На данный момент возможности автовхода нет. Мы подумаем над этим вопросом.

День добрый.


Var
Value, CurrentValue: double;
Value1, CurrentValue1: double;
tims:TDateTime;
tim:string;

//Выполняется при первом старте скрипта
procedure OnStartScript;
begin
  value := ReadValue('УДО. Давление прямого трубопровода');
  value1 := ReadValue('УДО. Давление обратного трубопровода');
end;

//Выполняется при завершении работы скрипта
procedure OnStopScript;
begin 
  // Ваш код
  tims := GetTimeStamp('УДО. Давление прямого трубопровода');
  tim:=DateTimeToStr(tims);
  WriteValue('Время последнего опроса Узла учета УДО', tim);
 
  tims := GetTimeStamp('УДО. Давление обратноготрубопровода');
  tim:=DateTimeToStr(tims);
  WriteValue('имя канала', tim);
end;

begin
  CurrentValue := ReadValue('УДО. Давление прямого трубопровода');
  CurrentValue1 := ReadValue('УДО. Давление обратного трубопровода');
  if (CurrentValue <> Value) or (CurrentValue1 <> Value1 ) then 
  begin
    Value := CurrentValue;
    Value1 := CurrentValue1;
    WriteValue('Время последнего опроса Узла учета УДО', DateTimeToStr(now));
  end;
end.

День добрый.


Да, это будет. Сейчас в работе.

День добрый.


Вариантов 2:


1. Настроить контроллер и ОПС сервер от Инсата по инструкции
а нашей системой уже читать данные из ОПС сервера. Если у вас меньше 32 точек, то это оптимальный вариант (т.к. сервер ОПС от инсата до 32х точек бесплатен).

2. Настроить контроллер по инструкции, а опрос по модбасу сделать через нашу систему (не надо покупать ОПС сервер от инсата). С этим можем помочь по тимвьюверу для быстроты. (но предварительно вам нужно настроить контроллер для работы по modbus tcp)

День добрый.

Добавьте сравнение для второй переменной:


CurrentValue := ReadValue('Промплощадка_дом_2.Прямая_int');
CurrentValue1 := ReadValue('Промплощадка_дом_3.Прямая_int');
if (CurrentValue <> Value) or (CurrentValue1 <> Value ) then begin Value := CurrentValue;WriteValue('Virtual channel 1', DateTimeToStr(now)); end;

Сервис поддержки клиентов работает на платформе UserEcho