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

[pan2000]

   Здравствуйте!

lipvasko, по-видимому компилятор не привел тип строки, нужно явно указать тип функцией UTF8Encode(' Создан новый файл ').

Миханик, очень похоже на отсутствие переменной привязанной к ячейке.

[Simple-Scada]

lipvasko, вот правильный вариант:

Код: (delphi)

TextFileWriteLn(UTF8ToString(DateTimeToStr(Now)) +' Создан новый файл ');

ещё подскажите , можно ли читать текстовые файлы по сери , в расшаренных папках и как это сделать , пример пожалуйста.

Можно, также как и в обычных папках, только в пути нужно указывать сетевой адрес. Но нужно учитывать, что при сбоях в сети обращения к файлам по сети могут выполняться значительно дольше, что может отразиться на скорости работы скады.

Миханик, как отметил pan2000, у Вас какая-то ячейка таблицы не связана с переменной. Т.е. "aCell.Variable" равно nil. В результате Вы пытаетесь получить свойство ".AsSingle" из несуществующей переменной, что недопустимо. Нужно либо связать ячейку с переменной, либо исправить код и добавить в него проверку на nil, вот так:
 

Код: (delphi)

...
  aCell := Table_term.GetCell(iCol, iRow);       // Получим нужную ячейку
  if aCell <> nil then
    if aCell.Variable <> nil then 
    begin
      ...

[pan2000]

lipvasko, вот правильный вариант:

Код: (delphi)

TextFileWriteLn(UTF8ToString(DateTimeToStr(Now)) +' Создан новый файл ');

Выражение:

Код: (delphi)

UTF8ToString(DateTimeToStr(ADateTime: TDateTime): String)

подразумевает две конвертации: неявную String->UTF8 и явную UTF8->String, на мой взгляд проще явно указать тип компилятору:

Код: (delphi)

String(DateTimeToStr(Now)) + ' Создан новый файл ';

[Simple-Scada]

pan2000, в руководстве и скаде устаревшее описание функции DateTimeToStr. Она возвращает UTF8String. Поэтому конвертация на самом деле одна. В ближайшее время исправим описание.

[lipvasko]

Добрый день, можно ли читать текстовые файлы в одной  подсетисети , в расшареных папках и как это сделать , если можно пример скрипта, пожалуйста.

[Simple-Scada]

Здравствуйте, мы отвечали на этот вопрос в этой теме выше, цитата:

Можно, также как и в обычных папках, только в пути нужно указывать сетевой адрес. Но нужно учитывать, что при сбоях в сети обращения к файлам по сети могут выполняться значительно дольше, что может отразиться на скорости работы скады.

для скады чтение по сети не отличается от чтения по локальному пути. Разница только в том, что вместо локального пути указывается сетевой.

[Saurin]

Saurin, отправлять через разных ботов нельзя (через несколько токенов). Обычно создают одного бота (и один токен) и через него рассылают множеству получателей в чаты. Или в группу, на которую подписаны получатели. Можно используя Telegram API реализовать и свою отправку через GET-запросы, но это будет сложно.

У меня есть ключ отправки сообщения телеграмм боту через GET запрос, он работает в браузере. Что нужно , что бы он работал из скады?

[Simple_Scada]

Здравствуйте.

Для отправки сообщений через Telegram необходимо произвести предварительную настройку следуя инструкции. После этого можно отправлять Telegram-сообщения из скриптов используя процедуру SendTelegram. Если требуется рассылать сообщения разным наборам пользователей, то для этого можно создать группы, на которые будут подписаны нужные пользователи. Далее можно отправлять сообщения в требуемую группу используя ID группы(узнать ID группы можно на этом этапе настройки Telegram-сообщений). Сообщения отправленные в группу получат все пользователи подписанные на эту группу. Можно отправить сообщение как в одну группу,  так и сразу в несколько групп, например:

Код: (delphi)

begin
  { отправить Telegram-сообщение в одну группу }
  SendTelegram('Авария котла!', '258579674'); 
 
  { отправить Telegram-сообщение в две группы }
  SendTelegram('Авария котла!', '258579674, 568479675');                   
end.

[lipvasko]

Здравствуйте, мы отвечали на этот вопрос в этой теме выше, цитата:

Можно, также как и в обычных папках, только в пути нужно указывать сетевой адрес. Но нужно учитывать, что при сбоях в сети обращения к файлам по сети могут выполняться значительно дольше, что может отразиться на скорости работы скады.

для скады чтение по сети не отличается от чтения по локальному пути. Разница только в том, что вместо локального пути указывается сетевой.

Вопрос, а учетные данные возможно вводить(логин и пароль), и если да то как?

[Simple-Scada]

Нет. Учетные записи пользователей в Windows относятся к операционной системе. Скада на них не влияет, она только читает и записывает файлы в те папки, которые Вы укажете ей. Если Windows не позволит скаде писать/читать данные из указанной папки, то скада ничего сделать не сможет. Чтобы скада могла считать файл, Вы должны запустить её под тем пользователем Windows, который имеет права на доступ к папке. Тогда ОС не будет препятствовать скаде и всё будет работать.

[lipvasko]

Как разобрать такую строку, что бы получить   "Мука карусель В2"  из  строки вида "14.07.2020    15:07:44      Мука карусель В2             35831,82      711           50            2120320 "    пробовал использовать команду  копи и ютф8копи, результат в первом случае "1", во втором   вместо букв "?" и в конце "1"

[Simple-Scada]

Как разобрать такую строку, что бы получить   "Мука карусель В2"  из  строки вида

Если заранее известно, что искомый текст всегда начинается (например) с 28 символа, то можно сначала через UTF8Copy удалить лишние символы в начале строки, скопировав символы с 28 символа до конца строки. Далее можно в цикле проходить по символам и копировать их в отдельную строку до тех пор, пока не дойдём до места с двумя пробелами подряд. В результате останется искомая строка. Пример цикла по символам строки:

Код: (delphi)

var
  I: Integer;
  aStr: string;
begin
  aStr := 'Моя строка';
  for I := 1 to Length(aStr) do
  begin
    if aStr[I] = ' ' then
    begin
      // текущий перебираемый символ является пробелом
    end;
  end;
end.

пробовал использовать команду  копи и ютф8копи, результат в первом случае "1", во втором   вместо букв "?" и в конце "1"

Это значит, что в ходе преобразований строк Вы смешали строки разных типов (например UTF8String + String). Это разные типы поэтому строка при таком сложении испортится. При сложении строк их всегда нужно приводить к какому-то одному типу.

[azrael454]

Добрый день.

Возможно ли реализация вот такого паттерна.

Есть обьект - кнопка настроек. Есть два пользователя: 1 и 2.

Может ли объект кнопка выполнять разные функции, в зависимости от того, какой пользователь сейчас авторизован?

При нажатии пользователем 1 открывается доп.окно настроек.
При нажатии пользователем 2, кнопка является своего рода выпадающим списком, который показывает другие кнопки, каждая из которых вызывает свое доп.окно настроек.

Можно конечно не усложнять и просто завязать через доступ к кнопкам настроек, но получается перегруженный интерфейс.

Как подобное можно в скриптах реализовать?

Спасибо.

[pan2000]

Может ли объект кнопка выполнять разные функции, в зависимости от того, какой пользователь сейчас авторизован?

        Здравствуйте!

Можно при выполнении скрипта "Авторизация пользователя" каждому пользователю присвоить идентификатор (пример для двух пользователей). "Разделяемая" кнопка Button1 с основной переменной iButton:

Код: (delphi)

begin
  if auLogin = 'user1' then Button1.Tag := 1 else Button1.Tag := 0;  // идентификатор пользователя 1 или неизвестного пользователя
  if auLogin = 'user2' then Button1.Tag := 2;                        // идентификатор пользователя 2 - при необходимости использования
                                                                     //   в нескольких скриптах можно объявить внутренней переменной
  iButton.Value := 0;    // установить в исходное состояние кнопку, разделяемую двумя пользователями (и все прочие объекты и переменные)
end.

Группу объектов пользователя 2 можно скрыть посредством непрозрачного объекта (Text1) с управлением видимостью и расположенного "выше" экранируемых объектов или индивидуальным управлением видимостью каждого объекта.
Скрипт для кнопки по событию "Изменилось значение переменной iButton связанной с объектом":

Код: (delphi)

begin
  Text1.Visible := not ((Button1.Tag = 2) and (iButton.AsInt <> 0)); // экранировка группы объектов
  if (Button1.Tag = 1) and (iButton.AsInt <> 0) then Window1.ShowAll;
  if iButton.AsInt = 0 then Window1.CloseAll;
end.

[lipvasko]

Добрый день, подскажите , а глобальный скрипт , может выводить только 1 переменную- результат, или их может быть несколько? просто от скрипта с  одной переменной на выходе, толку мало , когда сложный алгоритм надо рассчитать , со множеством переменных , на выходе, и когда этот алгоритм применяется несколько раз в разных местах.