Здравствуйте!
Присутствует странная проблема, и хотелось бы получить от вас помощь.
Ситуация следующая - в случайный момент объект перестает реагировать на изменение привязанного тега и не меняет состояние по скрипту.
Причем сначала все работает штатно(то есть скрипт обрабатывает все значения и меняет объект на мнемосхеме)- и только с течением времени рандомно выплывает такая ошибка.
Судя по трендам и логу того же скрипта все происходит штатно (скрипт завершается корректно и все значения переменной получает в нужное время)- однако это не так.
Скриншот с текущим значением переменной и "неправильным" отображением тоже прикладываю (3 - охлаждение, на рисунке состояние "Пауза", значение 7).
Сам скрипт простейший:
begin
if not (Sender is TM_Text) then
Exit;
with Sender as TM_Text do
Log_Add("ВОП изменился статус - старт скрипта " + Variable.Name + " - " + IntToStr(Variable.AsInt), true);
with Sender as TM_Text do
case AsInt of
0: begin Text:='Отключен'; Color:= clDarkGray; end;
1: begin Text := 'Отвод паро-жидкости'; Color:= clSlateGray; end;
2: begin Text:= 'Подача жидкости'; Color:= clDarkCyan; end;
3: begin Text:='Охлаждение'; Color:= clDarkCyan; end;
4: begin Text := 'Завершение охлаждения'; Color:= clSlateGray; end;
5: begin Text:= 'Закрытие паро-жидкости'; Color:= clSlateGray; end;
6: begin Text:= 'Оттаивание'; Color:= clLightSalmon; end;
7: begin Text:='Пауза'; Color:= clSilver; end;
8: begin Text:='Поддержание'; Color:= clSilver; end;
253: begin Text := 'Сервисный режим'; Color:= clMaroon; end;
254: begin Text := 'Нет готовности'; Color:= clRed; end;
255: begin Text:= 'Неисправность'; Color:= clRed; end;
else
begin Text := 'Неизвестное'; Color:= clWhite; end;
end;
with Sender as TM_Text do
Log_Add("ВОП изменился статус - конец скрипта " + Variable.Name, true);
end.
https://disk.yandex.ru/d/5Ulh_UYw7rynyA
Здравствуйте.
В первую очередь рекомендуем проверять журнал сервера Simple-Scada (https://simple-scada.com/help/manual/server-journal.html) - в нем могут содержаться ошибки и предупреждения, которые подскажут причину проблем.
По логам видно, что в скриптах проекта имеются грубые ошибки (например бесконечные циклы, зацикленные друг на друга скрипты и т.д.), которые приводят к бесконечному росту очереди скриптов. Из-за этого очередь скриптов переполняется, очищается и скрипты накопленные в очереди не выполняются. Примитивный пример описан по ссылке (https://simple-scada.com/help/script/debugscripts.html?anchor=erroverflow).
В Вашем логе это выглядит следующим образом:
23:05:25.356 | Мираторг Короча | Стек скриптов переполнен. Возможно допущена рекурсия, когда два скрипта вызывают друг друга. Очередь скриптов очищена. Информация о скриптах записана в лог.
AC_1M_3FLAP_2H_1AI_SecondsToTimeLeft: 19288
AC_1M_3FLAP_2H_1AI_SecondsToTime: 19272
AC_Ammony_Mini_TimeToLeft: 9644
GasDetectorTextColor: 6587
…
Также в логах встречаются ошибки, допущенные в скриптах:
07:22:54.598 | Мираторг Короча | Ошибка в скрипте "RecieverInirWnd" в строке 35. Обращение к несуществующему объекту (01911D57 in module 'SrvService.exe'. Read of address 00000148)
07:22:54.613 | Мираторг Короча | Ошибка в скрипте "AirCoolerWTEN4WndInit" в строке 17. Обращение к несуществующему объекту (01911D57 in module 'SrvService.exe'. Read of address 00000148)
07:22:54.705 | Мираторг Короча | Ошибка в скрипте "GasDetectorTextColor" в строке 4. Обращение к несуществующему объекту (105ACA23. Read of address 1CFCE300)
07:22:57.391 | Мираторг Короча | Ошибка в скрипте "Reciever_10_1_CalcLevel" в строке 20. Invalid floating point operation
07:23:03.858 | Мираторг Короча | Ошибка в скрипте "COMPWndProirityText" в строке 7. Invalid typecast
И т.д.
Если самостоятельно разобраться не получится, то пришлите нам на support@simple-scada.com текущую версию Вашего проекта из директории "..\Simple-Scada 2\Projects\".
Проверил один из проблемных скриптов (выкладываю его код сюда).
Не вижу грубых ошибок и вероятных рекурсий.
Может опытный взгляд поможет?
Но да - он привязан к переменной - которая измеряет время до конца (или от начала) процесса в секундах. Отчего и часто вызывается.
var
time: TDateTime;
textVOH, textVOM, textVOS, textVO: TM_Field;
begin
textVOH := GetTemplateObject('txtAC_1M_3FLAP_2H_1AI_WndTimeLeftHours') as TM_Field;
textVOM := GetTemplateObject('txtAC_1M_3FLAP_2H_1AI_WndTimeLeftMinutes') as TM_Field;
textVOS := GetTemplateObject('txtAC_1M_3FLAP_2H_1AI_WndTimeLeftSeconds') as TM_Field;
textVO := GetTemplateObject('txtAC_1M_3FLAP_2H_1AI_WndTimeLeft') as TM_Field;
if (textVO <> nil) then
begin
with (Sender as TM_Object) do
if (GetVariableByID(textVO.Variable.ID).Value <> 0) then
begin
time := SecondsToDateTime(GetVariableByID(textVO.Variable.ID).Value);
textVOH.Text := inttostr(time.HourOf);
textVOM.Text := inttostr(time.MinuteOf);
textVOS.Text := inttostr(time.SecondOf);
end
else
begin
textVOH.Text := '0';
textVOM.Text := '0';
textVOS.Text := '0';
end;
end;
end.