Version: IWinApplicationVersion;
The Version property returns the object containing information on Prognoz Platform version.
Sub UserProc;
Var
Ver: IWinApplicationVersion;
Begin
Ver := WinApplication.Version;
Debug.WriteLine(Ver.Build);
Debug.WriteLine(Ver.Debug);
Debug.WriteLine(Ver.Description);
Debug.WriteLine(Ver.Major);
Debug.WriteLine(Ver.Minor);
Debug.WriteLine(Ver.PrivateBuild);
Debug.WriteLine(Ver.QFE);
Debug.WriteLine(Ver.Release);
Debug.WriteLine(Ver.ShortDescription);
End Sub UserProc;
All information about the current build of Prognoz Platform is displayed in the development environment console.
The information for the released platform version may look as follows:
Build - 24794
Debug - False
Description - Release 9.0.24794.187
Major - 8
Minor - 2
Private Build - False
QFE - 187
Release - True
The information for the unreleased platform version may look as follows:
Build - 25084
Debug - False
Description - Private build 9.0.25084
Major - 9
Minor - 0
Private Build - True
QFE - 0
Release - False
Short Description - PB 9.0.25084
The requirements and result of the Fore.NET example execution match with those in the Fore example.
Imports Prognoz.Platform.Interop.Ui;
Sub UserProc();
Var
WinAppCls: WinApplicationClass = New WinApplicationClassClass();
Ver: IWinApplicationVersion;
Begin
Ver := WinAppCls.Version;
System.Diagnostics.Debug.WriteLine(Ver.Build);
System.Diagnostics.Debug.WriteLine(Ver.Debug);
System.Diagnostics.Debug.WriteLine(Ver.Description);
System.Diagnostics.Debug.WriteLine(Ver.Major);
System.Diagnostics.Debug.WriteLine(Ver.Minor);
System.Diagnostics.Debug.WriteLine(Ver.PrivateBuild);
System.Diagnostics.Debug.WriteLine(Ver.QFE);
System.Diagnostics.Debug.WriteLine(Ver.Release);
System.Diagnostics.Debug.WriteLine(Ver.ShortDescription);
End Sub;
See also: