IsStandalone: Boolean;
IsStandalone: Boolean;
The IsStandalone property returns True if a stand-alone license is used, and False if a network or temporary local licenses are used that are checked out from license server (Network with the commuter attribute).
For details about various license types and possible scenarios of its application see the Licensing Options section.
To execute the example, add a link to the Ui system assembly.
Sub UserProc;
Var
LicManager: IUiLicenseManager;
Begin
LicManager := WinApplication.Instance.LicenseManager;
If LicManager.IsStandalone Then
WinApplication.InformationBox("Stand-alone license");
Else
WinApplication.InformationBox("Network license");
End If;
End Sub UserProc;
After executing the example the message with the information license in use is displayed.
To execute the example, add links to the Ui, Fore, ForeSystem system assemblies. The specified procedure is an entry point for the .NET assembly. The example of the Fore.NET example execution matches with that in the Fore example.
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;
Begin
Svc := Params.Metabase As IForeServices;
RunContext := Svc.GetRuntime().Context;
LicManager := WinApp.Instance[RunContext].LicenseManager;
If LicManager.IsStandalone Then
WinApp.InformationBox("Stand-alone license", Null);
Else
WinApp.InformationBox("Network license",Null);
End If;
End Sub;
See also: