IUiLicense.FeatureName

Синтаксис Fore

FeatureName: String;

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

FeatureName: String;

Описание

Свойство FeatureName возвращает имя единицы лицензирования.

Пример Fore 

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    LicManager: IUiLicenseManager;
    Feature: String;
    Lic: IUiLicense;
    StatusCode: UiLicenseStatusCode;
    Info : IStringList;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    Feature := Editbox1.Text;
    StatusCode := LicManager.LicenseRequest(Feature, Lic, True, UilicenseStorageType.File);
    If StatusCode = UiLicenseStatusCode.Success Then
        Lic.LicenseUpdate;
        Memo1.Clear; 
        Info := Memo1.Lines;
        Info.Add("FeatureName: " + Lic.FeatureName + ";");
        Info.Add("IsCommuter: " + Lic.IsCommuter.ToString + ";");
        Info.Add("Server: " + Lic.ServerName + ";");
    Else
        /// обработка ошибок лицензирования
        ///...
        Return;
    End If;
    ///После завершения работы освобождаем лицензию
    If Lic <> Null  Then
       Lic.LicenseRelease;
    End If;
End Sub Button1OnClick;

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

Пример Fore.NET

Для выполнения примера подключите системные сборки «Ui», «Fore», «ForeSystem». Разместите на форме компоненты Button и два TextBox с идентификаторами «Button1», «TextBox1» и «TextBox2» соответственно. Для второго TextBox2 установите свойство Multiline в True. Пример является обработчиком события OnClick для компонента «Button1».

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: IUiLicenseManager;
    Feature: String;
    Lic: IUiLicense;
    StatusCode: UiLicenseStatusCode;
    Info: List<String> = New List<string>();
Begin
    Svc := Self.Metabase As IForeServices;
    RunContext := Svc.GetRuntime().Context;
    LicManager := WinApp.Instance[RunContext].LicenseManager;
    Feature := textBox1.Text;
    StatusCode := LicManager.LicenseRequest(Feature, Var Lic, True, UiLicenseStorageType.ulstFile,RunContext);
    If StatusCode = UiLicenseStatusCode.lscSuccess Then
        Lic.LicenseUpdate();
        Info.Add("FeatureName: " + Lic.FeatureName);
        Info.Add("IsCommuter: " + Lic.IsCommuter.ToString());
        Info.Add("Server: " + Lic.ServerName);
        textBox2.Clear();
        textBox2.Lines :=  info.ToArray();
    Else
        /// обработка ошибок лицензирования
        ///...
        Return;
    End If;
    ///После завершения работы освобождаем лицензию
    If Lic <> Null Then
            Lic.LicenseRelease();
    End If;
End Sub;

Введите в TextBox1 название предустановленной единицы лицензирования, например, PP_OLAP и нажмите на кнопку. После чего в TextBox2 будет выведена информация о единице лицензирования, указанной в TextBox1.

См. также:

IUiLicense