Сообщения

1

Ошибки / Центровка объектов

« : 31 Июля 2026, 12:53:37 »

Добрый день!
Выделяем несколько объектов и центрируем по вертикали, а затем по горизонтали происходит смещение 1 основного объекта, так должно быть?  2.7.5.1

2

Ваши вопросы / Get запрос

« : 01 Апреля 2026, 09:47:38 »

Добрый день!
Делаю запрос Get запрос

Код: (delphi)

// формируем текст запроса
aQuery:= 'http://192.168.15.101/?cli=set';

aHTTP := RequestHTTP;      // создаем экземпляр запроса
aHTTP.Get(aQuery,3000);    // выполняем GET запрос

Проблема в том что выводится только одна строка, через браузер данный запрос выводит список строк.
Еще вопрос если в ответе присутствует переход на следующую стоку как это обработать?

3

Ваши вопросы / Re: Как найти ошибку по логу, в журнале ошибка 'Стек скриптов переполнен ...'

« : 19 Августа 2025, 08:59:47 »

Стек скриптов переполнен. Возможно допущена рекурсия, когда два скрипта вызывают друг друга. Очередь скриптов очищена. Информация о скриптах записана в лог.

Код

WB_Image: 63860
Line_IO_gidro_no_connect: 3720
Image_IO_disks1_OnDataChange: 3204

Тут я грешу на то что скрипт сделан на картинку в шаблоне а он в свою очередь расположен в шаблоне

Код: (delphi)

//info_connect_%Номер1%
//model_int%Нижнее%
begin
{
  if not (Sender is TM_Object) then Exit;

  with (Sender as TM_Object) do
  begin
    if (VariableEx.AsInt = Tag) then
    begin
      if Value = 3 then Visible := TRUE else Visible := FALSE;
    end;
  end;
  }
end.

и даже в таком виде идет переполнение стека
и так же при удалении этого шаблона с картинкой редактор вылетает с ошибкой

4

Ваши вопросы / Как найти ошибку по логу, в журнале ошибка 'Стек скриптов переполнен ...'

« : 18 Августа 2025, 13:41:35 »

Добрый день появилась ошибка в журнале 'Стек скриптов переполнен... Очередь скриптов очищена', по логу сервера не понятно на что смотреть и куда рыть. Подскажите какие мои действия в данном случае.

Simple - scada v 2.6.14 prof

5

Ваши вопросы / Re: Вопрос по Отчетам, Excel

« : 28 Марта 2025, 04:51:00 »

Спасибо, но сам нашел! методом тыка!
Что бы разрыв на странице при экспорте в excel не фиксировался пустой строкой в таблице необходимо убрать галочку "Разрывать не ограниченный"!

6

Ваши вопросы / Вопрос по Отчетам, Excel

« : 26 Марта 2025, 06:13:43 »

Добрый день!
Формируется отчет с сохранением в excel.
Вопрос в следующем как убрать при формирование файла excel разрыв страницы т.е. в excel получается пустая строка

7

Ваши вопросы / Re: Выборка периодов времени из trends_data

« : 29 Января 2025, 05:08:14 »

Спасибо! а то эти острова мне в новинку!

8

Ваши вопросы / Выборка периодов времени из trends_data

« : 27 Января 2025, 13:24:52 »

Доброго дня!
Подскажите как правильно сделать выборку из trends_data sql запросом типа всех период работы т.е. от Value=1 и до Value =0 отрезок времени мне надо получить без сложения всех периодов
Стандарт:

Код

ID | Timestamp               | Value    | Quality
1  | 2025-01-23 09:12:00.676 | 1        | 1
1  | 2025-01-23 09:12:10.676 | 1        | 1
1  | 2025-01-23 09:12:20.676 | 1        | 1
1  | 2025-01-23 09:12:30.676 | 0        | 1
1  | 2025-01-23 09:12:31.676 | 0        | 1
1  | 2025-01-23 09:12:32.676 | 1        | 1
1  | 2025-01-23 09:12:34.676 | 1        | 1
1  | 2025-01-23 09:12:35.676 | 1        | 1
1  | 2025-01-23 09:12:36.676 | 1        | 1
1  | 2025-01-23 09:12:37.676 | 1        | 1
1  | 2025-01-23 09:12:40.676 | 0        | 1
1  | 2025-01-23 09:12:41.676 | 0        | 1
1  | 2025-01-23 09:12:42.676 | 0        | 1

Получить типа

Код

ID | time1                   | time2                         |  Value1    | Value2
1  | 2025-01-23 09:12:00.676 | 2025-01-23 09:12:30.676       | 1          | 0
1  | 2025-01-23 09:12:32.676 | 2025-01-23 09:12:40.676       | 1          | 0

9

Ваши вопросы / Ошибка Argument out of range

« : 07 Декабря 2024, 09:32:06 »

Непонятная ошибка Argument out of range

Код: (delphi)

  T1List := TM_Int64List.Create;
  T2List := TM_Int64List.Create;
  pT1List:= TM_Int64List.Create;
  pT2List:= TM_Int64List.Create;

списки с хранением времени в UNIX? жалуется на 1 строку

Код: (delphi)

IF (T1List.Count = pT1List.Count) AND (pT2List.Last <> DateTimeToUnix(Prostoy_time_now_2.Value)) then
begin
  pT1List.Add(T2List.Last+1);
  pT2List.Add(DateTimeToUnix(Prostoy_time_now_2.Value));
end;

10

Ваши вопросы / Internet Explorer есть поддержка?

« : 05 Декабря 2024, 13:56:40 »

Скада 6.2.14
Demo-projekt
Internet Explorer серый экран

11

Ваши вопросы / Re: Вопросы по скриптам в Simple-Scada 2

« : 12 Сентября 2024, 07:28:40 »

Добрый день!
Вот столкнулся с проблемой в скриптах (prof 2.6.10).
Как работает процедура в цикле
Суть такая в процедуре читаю в цикле регистры, в каждой итерации прочитанные регистры передаю в процедуру для парсинга и сохранения в бд. и не выходит грубо говоря переменная переписывается ни так как должна т.е.
1 итерация
          aVar1:=Reg_11_1;
          aVar2:=Reg_12_1;
          aVar3:=Reg_13_1;
          aVar4:=Reg_14_1;
          aVar5:=Reg_15_1;
          aVar6:=Reg_1_1;

2 итерация
          aVar1:=Reg_16_1;
          aVar2:=Reg_17_1;
          aVar3:=Reg_18_1;
          aVar4:=Reg_19_1;
          aVar5:=Reg_20_1;
          aVar6:=Reg_1_1;

Но по факту получаю процедуре парсинг получаю что 1 итерация прошла успешно а начиная со второй я теряю 4
2 итерация
          aVar1:=Reg_12_1;
          aVar2:=Reg_13_1;
          aVar3:=Reg_14_1;
          aVar4:=Reg_15_1;
          aVar5:=Reg_16_1;
          aVar6:=Reg_1_1;
3 итерация
          aVar1:=Reg_13_1;
          aVar2:=Reg_14_1;
          aVar3:=Reg_15_1;
          aVar4:=Reg_16_1;
          aVar5:=Reg_17_1;
          aVar6:=Reg_1_1;
4 итерация
          aVar1:=Reg_14_1;
          aVar2:=Reg_15_1;
          aVar3:=Reg_16_1;
          aVar4:=Reg_17_1;
          aVar5:=Reg_18_1;
          aVar6:=Reg_1_1;

Код: (delphi)

      BB_str_1.Value:='';
      //Чтения всех регистров и формирование строки
      ii:=1;
      for i:=11 to 1257 do
        begin

          aVar1:=GetVariableByName('Reg_'+IntToStr(i)+'_'+IntToStr(k));
          aVar2:=GetVariableByName('Reg_'+IntToStr(i+1)+'_'+IntToStr(k));
          aVar3:=GetVariableByName('Reg_'+IntToStr(i+2)+'_'+IntToStr(k));
          aVar4:=GetVariableByName('Reg_'+IntToStr(i+3)+'_'+IntToStr(k));
          aVar5:=GetVariableByName('Reg_'+IntToStr(i+4)+'_'+IntToStr(k));
          aVar6:=GetVariableByName('Reg_1_'+IntToStr(k));

          Parsing(aVar6,aVar1,aVar4,aVar5,aVar2,aVar3,BB_str_1,ii);
          ii:=ii+1;
          i:=i+5;
          end;

12

Ваши вопросы / Возможности Simple-scada

« : 21 Августа 2020, 05:47:11 »

1.   У Simple-scada есть возможность загрузки клиента файлов с данными?  *.xml (загрузка, чтение, сохранение в базу)
2.   У Simple-scada есть возможность подключение устройств по сериал порт, поддержка протокола modbus
3.   У Simple-scada есть возможность импорта данных из базы в файл (xml)
4.   У Simple-scada есть возможность подключение мобильных устройств (передача данных с смартфона)
5.   Simple-scada сможет обрабатывать базу с  10 млн. строк данных
6.   У Simple-scada есть возможность построение отчетов (pdf, xls)