IUiLicenseManager.IsStandalone

Синтаксис Fore

IsStandalone: Boolean;

Синтаксис Fore.NET

IsStandalone: Boolean;

Описание

Свойство IsStandalone возвращает True, если используется автономная лицензия (Standalone), и False, если используется сетевая лицензия (Network) или временная локальная, полученная с сервера лицензий (Network с атрибутом commuter).

Комментарии

Подробнее о различных видах лицензий и возможных сценариев их применения можно посмотреть в статье «Варианты лицензирования».

Пример Fore

Для выполнения примера подключите системную сборку «Ui».

Sub UserProc;
Var 
    LicManager: IUiLicenseManager;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    If LicManager.IsStandalone Then
        WinApplication.InformationBox("Автономная лицензия");
    Else 
        WinApplication.InformationBox("Сетевая лицензия");
    End If;
End Sub UserProc;

После выполнения примера будет выдано сообщение с информацией о используемой лицензии.

Пример Fore.NET

Для выполнения примера подключите системные сборки «Ui», «Fore», «ForeSystem». Указанная процедура является точкой входа для .NET-сборки. Результат выполнения примера Fore.NET совпадает с примером Fore.

Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Fore;
Imports Prognoz.Platform.Interop.Ui;

...

Public Shared Sub Main(Params: StartParams);
Var 
    WinApp: WinApplicationClassClass = New WinApplicationClassClass();
    Svc: IForeServices;
    RunContext: ForeRuntimeContext;
    LicManager: IUiLicenseManager;
Begin
    Svc := Params.Metabase As IForeServices;
    RunContext := Svc.GetRuntime().Context;
    LicManager := WinApp.Instance[RunContext].LicenseManager;
    If LicManager.IsStandalone Then
        WinApp.InformationBox("Автономная лицензия", Null);
    Else 
        WinApp.InformationBox("Сетевая лицензия",Null);
    End If;
End Sub;

См. также:

IUiLicenseManager | UiLicenseMode