Пожалуйста, включите JavaScript для просмотра этого сайта.

Скрипты Simple-Scada

Синтаксис

function SysGet(ACode: Integer): Int64;

Описание

Возвращает различную системную информацию в зависимости от кода ACode. В качестве кода можно использовать следующие константы:

Константа

Описание

SYS_UNCONFIRMED_COUNT

Возвращает количество неподтвержденных сообщений проекта

SYS_ACTIVE_COUNT

Возвращает количество активных сообщений проекта

SYS_DATABASE_STATE

Возвращает 1, если БД подключена и 0 в ином случае

SYS_DATABASE_TYPE

Возвращает 0 если в качестве СУБД используется MySQL, 1 если используется Microsoft SQL Server, 2 для PostgreSQL.

SYS_CLIENTS_COUNT

Возвращает количество клиентов, которые сейчас подключены к серверу

SYS_VERSION_TYPE

Возвращает код версии Simple-Scada. 0 - демо с ограничением на 64 тега; 1 - демо с ограничением по времени; 2 - minimal; 3 - standard; 4 - professional

SYS_TAG_LIMIT

Возвращает ограничение по количеству тегов. -1, если количество тегов не ограничено.

SYS_PROJECT_VERSION

Возвращает номер версии Simple-Scada, в которой был создан проект в виде целого числа. Например, если проект был создан в версии 2.3.4.6, то возвращаемое значение будет равно 234006 (последнее число в версии представлено тремя знаками).

SYS_KEY_ID

Возвращает уникальный идентификатор HASP-USB ключа.

Пример кода

begin
  { вывести в объект "Text1" кол-во подключенных клиентов }
  Text1.Text := 'Подключено клиентов:' + IntToStr(SysGet(SYS_CLIENTS_COUNT));               
end.