DeleteFeature(FeatureName: String): UiLicenseStatusCode;
DeleteFeature(System.String): Prognoz.Platform.Interop.ForeSystem.UiLicenseStatusCode;
FeatureName. Наименование единицы лицензирования.
Метод DeleteFeature удаляет код лицензии из текущей сессии (из памяти).
Метод актуален при использовании автономной лицензии, иначе будет выдано соответствующее сообщение.
Если код активации был сохранен в файл лицензии, то код следует удалить вручную.
Для выполнения примера разместите на форме компоненты 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. О результате удаления кода будет выдано соответствующее сообщение. Если при удалении возникнут ошибки, то будет выдано сообщение с кодом возникшей ошибки.
Для выполнения примера разместите на форме компоненты 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.
См. также: