ILicenseManager.CommuterInfo

Синтаксис Fore

CommuterInfo(FeatureName: String): ILicenseCommuterInfo;

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

CommuterInfo(System.String): Prognoz.Platform.Interop.Host.ILicenseCommuterInfo;

Параметры

FeatureName. Наименование единицы лицензирования.

Описание

Метод GetCommuterInfo получает информацию о временной локальной единице лицензирования, полученной с сервера лицензий.

Комментарии

Метод актуален после получения временной локальной лицензии с сервера лицензий с помощью метода ILicenseManager.CheckoutCommuterLicense. Проверка о получении единицы лицензирования с сервера лицензий выполняется с помощью метода ILicenseManager.IsCheckedOut.

Если единица лицензирования не была получена с сервера лицензий, то метод будет возвращать NULL.

Пример Fore

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

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    LicManager: ILicenseManager;
    Feature: String;
    CommuterInfo: ILicenseCommuterInfo;
    Info: IStringList;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    Feature := EditBox1.Text;
    Memo1.Clear;
    Info := Memo1.Lines;
    CommuterInfo := LicManager.CommuterInfo(Feature);
    If LicManager.IsCheckedOut(Feature) Then
        CommuterInfo := LicManager.CommuterInfo(Feature);
        If CommuterInfo <> Null Then
            Info.Add("Наименование ед.лиц.: " + CommuterInfo.FeatureName);
            Info.Add("Описание лицензии: " + LicManager.FeatureDescription(Feature));
            Info.Add("Начало действия: " + CommuterInfo.StartDate.ToString);
            Info.Add("Окончание действия: " + CommuterInfo.ExpireDate.ToString);
            Info.Add("IP cервера лицензий: " + CommuterInfo.IssuingServer);
        End If;
    Else
        Info.Add("Единица лицензирования не получена с сервера");
    End If;
End Sub Button1OnClick;

Введите в Editbox наименование предустановленной единицы лицензирования, например PP_OLAP, и нажмите на кнопку. Если с сервера лицензий была получена временная локальная лицензия, то при нажатии на кнопку в Memo будет выведена информация о ней. Если временная локальная лицензия не была получена с сервера, то будет выдано соответствующее сообщение.

Пример Fore.NET

Для выполнения примера разместите на форме компоненты Button и два TextBox с наименованиями «Button1», «TextBox1» и «TextBox2» соответственно. Для второго TextBox2 установите свойство Multiline в True.

Добавьте ссылки на системные сборки: 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;
    Feature: String;
    CommuterInfo: ILicenseCommuterInfo;
    Info: List<String> = New List<string>();
Begin
    Svc := Self.Metabase As IForeServices;
    RunContext := Svc.GetRuntime().Context;
    LicManager := WinApp.Instance[RunContext].LicenseManager;
    textBox2.Clear();
    Feature := textBox1.Text;
    If LicManager.IsCheckedOut(Feature) Then
        CommuterInfo := LicManager.CommuterInfo(Feature);
        If CommuterInfo <> Null Then
            Info.Add("Наименование ед.лиц.: " + CommuterInfo.FeatureName);
            Info.Add("Описание лицензии: " + LicManager.FeatureDescription[Feature]);
            Info.Add("Начало действия: " + CommuterInfo.StartDate.ToString());
            Info.Add("Окончание действия: " + CommuterInfo.ExpireDate.ToString());
            Info.Add("IP сервера лицензий: " + CommuterInfo.IssuingServer);
        End If;
    Else
        Info.Add("Единица лицензирования не получена с сервера");
    End If;
    textBox2.Lines := info.ToArray();
End Sub;

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

См. также:

ILicenseManager