ILicenseManager.LockingCode

Синтаксис Fore

LockingCode(Var LockSelector: Integer): String;

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

LockingCode(LockSelector: Int32): String;

Параметры

LockSelector. Значение набора критериев (UiLicenseLockSelector). По умолчанию для формирования кода привязки должны использоваться критерии: Disk ID и HostName.

Описание

Метод LockingCode возвращает код привязки лицензии к компьютеру.

Комментарии

Для использования нескольких критериев следует их суммировать. Код формируется на основе выбранных критериев.

Пример Fore

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

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    LicManager: ILicenseManager;
    Selector: integer;
    Code: String;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    Selector := UiLicenseLockSelector.HostName + UiLicenseLockSelector.DiskID;
    Code := LicManager.LockingCode(Selector);
    WinApplication.InformationBox(Code);
End Sub Button1OnClick;

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

Пример Fore.NET

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

Добавьте ссылки на системные сборки: 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;
    Selector: integer;
    Code: String;
Begin
    Svc := Self.Metabase As IForeServices;
    RunContext := Svc.GetRuntime().Context;
    LicManager := WinApp.Instance[RunContext].LicenseManager;
    Selector := (UiLicenseLockSelector.llsHostName As Integer) + (UiLicenseLockSelector.llsDiskID As Integer);
    Code := LicManager.LockingCode(Var Selector);
    WinApp.InformationBox(Code, Null);
End Sub;

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

См. также:

ILicenseManager