ILicenseManager.DeleteFeature

Синтаксис Fore

DeleteFeature(FeatureName: String): UiLicenseStatusCode;

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

DeleteFeature(System.String): Prognoz.Platform.Interop.ForeSystem.UiLicenseStatusCode;

Параметры

FeatureName. Наименование единицы лицензирования.

Описание

Метод DeleteFeature удаляет код лицензии из текущей сессии (из памяти).

Комментарии

Метод актуален при использовании автономной лицензии, иначе будет выдано соответствующее сообщение.

Если код активации был сохранен в файл лицензии, то код следует удалить вручную.

Пример Fore

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

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    LicManager: ILicenseManager;
    Feature: String;
    StatusCode: UiLicenseStatusCode;
Begin
    LicManager := WinApplication.Instance.LicenseManager;
    Feature := Editbox1.Text;
    StatusCode := LicManager.DeleteFeature(Feature);
    If StatusCode = UiLicenseStatusCode.Success Then
        WinApplication.InformationBox("Код успешно удален");
    Else
        WinApplication.InformationBox("Ошибка: " + StatusCode.ToString);
    End If;
End Sub Button1OnClick;

При нажатии на кнопку из текущей сессии будет удален код для единицы лицензирования, указанной в Editbox. О результате удаления кода будет выдано соответствующее сообщение. Если при удалении возникнут ошибки, то будет выдано сообщение с кодом возникшей ошибки.

Пример Fore.NET

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

Добавьте ссылки на системные сборки: 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;
    Feature: String;
    StatusCode: UiLicenseStatusCode;
Begin
    Svc := Self.Metabase As IForeServices;
    RunContext := Svc.GetRuntime().Context;
    LicManager := WinApp.Instance[RunContext].LicenseManager;
    Feature := textBox1.Text;
    StatusCode := LicManager.DeleteFeature(Feature);
    If StatusCode = UiLicenseStatusCode.lscSuccess Then
        WinApp.InformationBox("Код успешно удален", New IWin32WindowForeAdapter(Self));
    Else
        WinApp.InformationBox("Ошибка: " + StatusCode.ToString(), New IWin32WindowForeAdapter(Self));
    End If;
End Sub;

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

См. также:

ILicenseManager