Синтаксис
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.