IWinApplication.LicenseManager

Синтаксис

Описание

Свойство LicenseManager возвращает менеджер лицензий.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки и компонента EditBox с наименованием «EditBox1».

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    LicManager: IUiLicenseManager;
    Feature: String;
    FeatureInfo: IUiLicenseFeatureInfo;
    Status: UiLicenseStatusCode;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    Feature := EditBox1.Text;
    FeatureInfo := LicManager.GetFeatureInfo(Feature);
    If FeatureInfo.CommuterAllowed Then
        Status := LicManager.CheckoutCommuterLicense(Feature);
        LicManager.Refresh;
        If Status <> 0 Then
            WinApplication.InformationBox(Status.ToString);
        End If;
    End If;
End Sub Button1OnClick;

Для введенной в поле ввода единицы лицензирования будет получена локальная лицензия, в случае если это возможно. При возникновении ошибки будет выдано сообщение с ее кодом.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки и компонента TextBox с наименованием «TextBox1».

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

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
    WinApp: WinApplication = New WinApplicationClass_2();
    LicManager: IUiLicenseManager;
    Feature: String;
    FeatureInfo: IUiLicenseFeatureInfo;
    Status: UiLicenseStatusCode;
Begin
    LicManager := WinApp.LicenseManager;
    Feature := textBox1.Text;
    FeatureInfo := LicManager.GetFeatureInfo(Feature);
    If FeatureInfo.CommuterAllowed Then
        Status := LicManager.CheckoutCommuterLicense(Feature);
        LicManager.Refresh();
        If (Status As integer) <> 0 Then
            WinAppCls.InformationBox(Status.ToString(), New IWin32WindowForeAdapter(Self));
        End If;
    End If;
End Sub;

См. также:

IWinApplication