GetAllFeatures: IStringList;
GetAllFeatures: System.Collections.Generic.IList<System.String>;
Метод GetAllFeatures возвращает список всех доступных единиц лицензирования.
Метод возвращает информацию о единицах лицензирования независимо от типа используемой лицензии: автономной или сетевой.
Для выполнения примера разместите на форме компонент Button с наименованием «Button1».
Добавьте ссылки на системные сборки: Host, Ui, Forms, Collections.
Пример является обработчиком события OnClick для компонента «Button1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
LicManager: ILicenseManager;
Features: IStringList;
Begin
LicManager := WinApplication.Instance.LicenseManager;
Features := LicManager.GetAllFeatures;
WinApplication.InformationBox(Features.AsString);
End Sub Button1OnClick;
При нажатии на кнопку будет выдано сообщение, содержащее список единиц лицензирования.
Для выполнения примера разместите на форме компонент 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;
Features: System.Collections.Generic.IList<System.String>;
s: String;
Begin
Svc := Self.Metabase As IForeServices;
RunContext := Svc.GetRuntime().Context;
LicManager := WinApp.Instance[RunContext].LicenseManager;
Features := LicManager.GetAllFeatures();
s := String.Join(Environment.NewLine, Features);
WinApp.InformationBox(s, New IWin32WindowForeAdapter(Self));
End Sub;
Результат выполнения примера Fore.NET совпадают с примером Fore.
См. также: