FeatureName: String;
FeatureName: String;
Свойство FeatureName возвращает имя единицы лицензирования.
Для выполнения примера разместите на форме компоненты 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.
Для выполнения примера подключите системные сборки «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.
См. также: