ILicenseManager.IsStandalone

Синтаксис Fore

IsStandalone: Boolean;

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

IsStandalone: Boolean;

Описание

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

Комментарии

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

Пример Fore

Для выполнения примера разместите на форме компонент Button с наименованием «Button1».

Добавьте ссылки на системные сборки: Host, Ui, Forms.

Пример является обработчиком события OnClick для компонента «Button1».

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

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

Пример Fore.NET

Для выполнения примера разместите на форме компонент Button с наименованием «Button1».

Добавьте ссылки на системные сборки: Host, Ui, Fore, ForeSystem.

Пример является обработчиком события OnClick для компонента «Button1».

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

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    WinApp: WinApplicationClassClass = New WinApplicationClassClass();
    Svc: IForeServices;
    RunContext: ForeRuntimeContext;
    LicManager: ILicenseManager;
Begin
    Svc := Self.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;

Результат выполнения примера Fore.NET совпадает с примером Fore.

См. также:

ILicenseManager