IUiLicenseManager.LockingCode

Синтаксис Fore

LockingCode(Var LockSelector: Integer): String;

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

LockingCode(LockSelector: Int32): String;

Параметры

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

Описание

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

Комментарии

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

Пример Fore

Для выполнения примера подключите системную сборку «Ui».

Sub UserProc;
Var 
    LicManager: IUiLicenseManager;
    Selector: integer;
    Code: String;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    Selector := UiLicenseLockSelector.HostName + UiLicenseLockSelector.DiskID;
    Code := LicManager.LockingCode(Selector);
    WinApplication.InformationBox(Code);
End Sub UserProc;

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

Пример Fore.NET

Для выполнения примера подключите системные сборки «Ui», «Fore», «ForeSystem». Указанная процедура является точкой входа для .NET-сборки. Результат выполнения примера Fore.NET совпадает с примером Fore.

Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Fore;
Imports Prognoz.Platform.Interop.Ui;

...

Public Shared Sub Main(Params: StartParams);
Var 
    WinApp: WinApplicationClassClass = New WinApplicationClassClass();
    Svc: IForeServices;
    RunContext: ForeRuntimeContext;
    LicManager: IUiLicenseManager;
    Selector: integer;
    Code: String;
Begin
    Svc := Params.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;

См. также:

IUiLicenseManager