ILicense.FeatureName

Синтаксис

FeatureName: String;

Описание

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

Пример

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

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    LicManager: ILicenseManager;
    Feature: String;
    Lic: ILicense;
    StatusCode: UiLicenseStatusCode;
    Info: IStringList;
Begin
    LicManager := New LicenseManager.Create;
    Feature := Editbox1.Text;
    StatusCode := LicManager.RequestLicense(Feature, Lic);
    If StatusCode <> UiLicenseStatusCode.Success Then
        // обработка ошибок лицензирования
        //...
    Else
        Memo1.Clear;
        Info := Memo1.Lines;
        Info.Add("Единица лицензирования: " + Lic.FeatureName + ";");
    End If;
    // После завершения работы освободим лицензию
    If Lic <> Null Then
        Lic.LicenseRelease;
    End If;
End Sub Button1OnClick;

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

См. также:

ILicense