Это событие позволяет получать информацию о сервере и обслуживаемых базах данных.

Свойства

Option

TPropertyOption- задает опции для получаемой информации о БД. Объявляется следующим образом:

TPropertyOption = (Database, License, LicenseMask, ConfigParameters, Version)

Если опция установлена в True, то после вызова метода Fetch будет заполнена соответствующая запись.

DatabaseInfo
Это свойство содержит информацию о базах данных и заполняется после вызова методов Fetch или FetchDatabaseInfo.

TDatabaseInfo = record
NoOfAttachments: Integer;  //количество соединений с сервером
NoOfDatabases: Integer;   //количество соединенных баз данных
DbName: Variant;    //имена соединенных баз данных
end;

LicenseInfo
Это свойство содержит информацию о лицензии сервера

TLicenseInfo = record
Key: Variant;    //ключ
Id: Variant;    //код
Desc: Variant;    //описание
LicensedUsers: Integer;    //пользователи
end;

LicenseMaskInfo

TLicenseMaskInfo = record
LicenseMask: Integer;     //маска
CapabilityMask: Integer;   //маска end;

VersionInfo

TVersionInfo = record
ServerVersion: String;    //версия сервера
ServerImplementation: string;   //внутренняя информация о сборке ServiceVersion: Integer;        //версия севрисов
end;

ConfigParams

TConfigParams = record
ConfigFileData: TConfigFileData;
BaseLocation: string;
LockFileLocation: string;
MessageFileLocation: string;
SecurityDatabaseLocation: string; end;
TConfigFileData = record
ConfigFileValue:Variant;
ConfigFileKey:Variant; 
end;

Методы

При помощи доступных методов можно получить всю информацию либо по всем опциям сразу, либо по каждой опции отдельно:

procedure Fetch; 
procedure FetchDatabaseInfo; 
procedure FetchLicenseInfo; 
procedure FetchLicenseMaskInfo; 
procedure FetchConfigParams; 
procedure FetchVersionInfo;