Skip to content

Instantly share code, notes, and snippets.

/gist:3239139

Created August 2, 2012 17:55
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/3239139 to your computer and use it in GitHub Desktop.
Save anonymous/3239139 to your computer and use it in GitHub Desktop.
Download ZIP
code sample auto generated by delphi 2007 type library import feature importing sysmon.ocx
Raw
gistfile1.txt
// this code sample auto generated by delphi 2007 type library import feature.
unit SystemMonitor_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// $Rev: 8291 $
// File generated on 8/2/2012 1:37:39 PM from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Windows\system32\sysmon.ocx (1)
// LIBID: {1B773E42-2509-11CF-942F-008029004347}
// LCID: 0
// Helpfile:
// HelpString: System Monitor Control
// DepndLst:
// (1) v2.0 stdole, (C:\Windows\system32\stdole2.tlb)
// Errors:
// Hint: TypeInfo 'SystemMonitor' changed to 'SystemMonitor_'
// Error creating palette bitmap of (TSystemMonitor_) : Registry key CLSID\{C4D2D8E0-D1DD-11CE-940F-008029004347}\ToolboxBitmap32 not found
// ************************************************************************ //
// *************************************************************************//
// NOTE:
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
// which return objects that may need to be explicitly created via a function
// call prior to any access via the property. These items have been disabled
// in order to prevent accidental use from within the object inspector. You
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
// removing them from the $IFDEF blocks. However, such items must still be
// programmatically created via a method of the appropriate CoClass before
// they can be used.
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
SystemMonitorMajorVersion = 3;
SystemMonitorMinorVersion = 7;
LIBID_SystemMonitor: TGUID = '{1B773E42-2509-11CF-942F-008029004347}';
IID_ICounterItem: TGUID = '{771A9520-EE28-11CE-941E-008029004347}';
IID_ICounterItem2: TGUID = '{EEFCD4E1-EA1C-4435-B7F4-E341BA03B4F9}';
IID__ICounterItemUnion: TGUID = '{DE1A6B74-9182-4C41-8E2C-24C2CD30EE83}';
DIID_DICounterItem: TGUID = '{C08C4FF2-0E2E-11CF-942C-008029004347}';
IID_ICounters: TGUID = '{79167962-28FC-11CF-942F-008029004347}';
IID_ILogFileItem: TGUID = '{D6B518DD-05C7-418A-89E6-4F9CE8C6841E}';
DIID_DILogFileItem: TGUID = '{8D093FFC-F777-4917-82D1-833FBC54C58F}';
IID_ILogFiles: TGUID = '{6A2A97E6-6851-41EA-87AD-2A8225335865}';
IID_ISystemMonitor: TGUID = '{194EB241-C32C-11CF-9398-00AA00A3DDEA}';
IID_ISystemMonitor2: TGUID = '{08E3206A-5FD2-4FDE-A8A5-8CB3B63D2677}';
IID__ISystemMonitorUnion: TGUID = '{C8A77338-265F-4DE5-AA25-C7DA1CE5A8F4}';
DIID_DISystemMonitor: TGUID = '{13D73D81-C32E-11CF-9398-00AA00A3DDEA}';
DIID_DISystemMonitorInternal: TGUID = '{194EB242-C32C-11CF-9398-00AA00A3DDEA}';
IID_ISystemMonitorEvents: TGUID = '{EE660EA0-4ABD-11CF-943A-008029004347}';
DIID_DISystemMonitorEvents: TGUID = '{84979930-4AB3-11CF-943A-008029004347}';
CLASS_SystemMonitor_: TGUID = '{C4D2D8E0-D1DD-11CE-940F-008029004347}';
CLASS_CounterItem: TGUID = '{C4D2D8E0-D1DD-11CE-940F-008029004348}';
CLASS_Counters: TGUID = '{B2B066D2-2AAC-11CF-942F-008029004347}';
CLASS_LogFileItem: TGUID = '{16EC5BE8-DF93-4237-94E4-9EE918111D71}';
CLASS_LogFiles: TGUID = '{2735D9FD-F6B9-4F19-A5D9-E2D068584BC5}';
CLASS_CounterItem2: TGUID = '{43196C62-C31F-4CE3-A02E-79EFE0F6A525}';
CLASS_SystemMonitor2: TGUID = '{7F30578C-5F38-4612-ACFE-6ED04C7B7AF8}';
IID_IPropertyPage: TGUID = '{B196B28D-BAB4-101A-B69C-00AA00341D07}';
IID_IPropertyPage2: TGUID = '{01E44665-24AC-101B-84ED-08002B2EC713}';
CLASS_AppearPropPage: TGUID = '{E49741E9-93A8-4AB1-8E96-BF4482282E9C}';
IID_IPropertyPageSite: TGUID = '{B196B28C-BAB4-101A-B69C-00AA00341D07}';
CLASS_GeneralPropPage: TGUID = '{C3E5D3D2-1A03-11CF-942D-008029004347}';
CLASS_GraphPropPage: TGUID = '{C3E5D3D3-1A03-11CF-942D-008029004347}';
CLASS_SourcePropPage: TGUID = '{0CF32AA1-7571-11D0-93C4-00AA00A3DDEA}';
CLASS_CounterPropPage: TGUID = '{CF948561-EDE8-11CE-941E-008029004347}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum DisplayTypeConstants
type
DisplayTypeConstants = TOleEnum;
const
sysmonLineGraph = $00000001;
sysmonHistogram = $00000002;
sysmonReport = $00000003;
sysmonChartArea = $00000004;
sysmonChartStackedArea = $00000005;
// Constants for enum ReportValueTypeConstants
type
ReportValueTypeConstants = TOleEnum;
const
sysmonDefaultValue = $00000000;
sysmonCurrentValue = $00000001;
sysmonAverage = $00000002;
sysmonMinimum = $00000003;
sysmonMaximum = $00000004;
// Constants for enum DataSourceTypeConstants
type
DataSourceTypeConstants = TOleEnum;
const
sysmonNullDataSource = $FFFFFFFF;
sysmonCurrentActivity = $00000001;
sysmonLogFiles = $00000002;
sysmonSqlLog = $00000003;
// Constants for enum SysmonFileType
type
SysmonFileType = TOleEnum;
const
sysmonFileHtml = $00000001;
sysmonFileReport = $00000002;
sysmonFileCsv = $00000003;
sysmonFileTsv = $00000004;
sysmonFileBlg = $00000005;
sysmonFileRetiredBlg = $00000006;
sysmonFileGif = $00000007;
// Constants for enum SysmonDataType
type
SysmonDataType = TOleEnum;
const
sysmonDataAvg = $00000001;
sysmonDataMin = $00000002;
sysmonDataMax = $00000003;
sysmonDataTime = $00000004;
sysmonDataCount = $00000005;
// Constants for enum SysmonBatchReason
type
SysmonBatchReason = TOleEnum;
const
sysmonBatchNone = $00000000;
sysmonBatchAddFiles = $00000001;
sysmonBatchAddCounters = $00000002;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
ICounterItem = interface;
ICounterItem2 = interface;
_ICounterItemUnion = interface;
DICounterItem = dispinterface;
ICounters = interface;
ICountersDisp = dispinterface;
ILogFileItem = interface;
DILogFileItem = dispinterface;
ILogFiles = interface;
ILogFilesDisp = dispinterface;
ISystemMonitor = interface;
ISystemMonitor2 = interface;
_ISystemMonitorUnion = interface;
DISystemMonitor = dispinterface;
DISystemMonitorInternal = dispinterface;
ISystemMonitorEvents = interface;
DISystemMonitorEvents = dispinterface;
IPropertyPage = interface;
IPropertyPage2 = interface;
IPropertyPageSite = interface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
SystemMonitor_ = DISystemMonitor;
CounterItem = DICounterItem;
Counters = ICounters;
LogFileItem = DILogFileItem;
LogFiles = ILogFiles;
CounterItem2 = ICounterItem2;
SystemMonitor2 = ISystemMonitor2;
AppearPropPage = IPropertyPage2;
GeneralPropPage = IPropertyPage2;
GraphPropPage = IPropertyPage2;
SourcePropPage = IPropertyPage2;
CounterPropPage = IPropertyPage2;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
wireHWND = ^RemotableHandle;
PUserType1 = ^TGUID; {*}
PUserType2 = ^RECT; {*}
PIUnknown1 = ^IUnknown; {*}
PUserType3 = ^MSG; {*}
UINT_PTR = LongWord;
__MIDL_IWinTypes_0009 = record
case Integer of
0: (hInproc: Integer);
1: (hRemote: Integer);
end;
RemotableHandle = packed record
fContext: Integer;
u: __MIDL_IWinTypes_0009;
end;
LONG_PTR = Integer;
POINT = packed record
x: Integer;
y: Integer;
end;
MSG = packed record
hwnd: wireHWND;
message: SYSUINT;
wParam: UINT_PTR;
lParam: LONG_PTR;
time: LongWord;
pt: POINT;
end;
RECT = packed record
left: Integer;
top: Integer;
right: Integer;
bottom: Integer;
end;
SIZE = packed record
cx: Integer;
cy: Integer;
end;
PROPPAGEINFO = packed record
cb: LongWord;
pszTitle: PWideChar;
SIZE: SIZE;
pszDocString: PWideChar;
pszHelpFile: PWideChar;
dwHelpContext: LongWord;
end;
// *********************************************************************//
// Interface: ICounterItem
// Flags: (16) Hidden
// GUID: {771A9520-EE28-11CE-941E-008029004347}
// *********************************************************************//
ICounterItem = interface(IUnknown)
['{771A9520-EE28-11CE-941E-008029004347}']
function Get_Value(out pdblValue: Double): HResult; stdcall;
function Set_Color(pColor: OLE_COLOR): HResult; stdcall;
function Get_Color(out pColor: OLE_COLOR): HResult; stdcall;
function Set_Width(piValue: SYSINT): HResult; stdcall;
function Get_Width(out piValue: SYSINT): HResult; stdcall;
function Set_LineStyle(piValue: SYSINT): HResult; stdcall;
function Get_LineStyle(out piValue: SYSINT): HResult; stdcall;
function Set_ScaleFactor(piValue: SYSINT): HResult; stdcall;
function Get_ScaleFactor(out piValue: SYSINT): HResult; stdcall;
function Get_Path(out pstrValue: WideString): HResult; stdcall;
function GetValue(out Value: Double; out Status: Integer): HResult; stdcall;
function GetStatistics(out Max: Double; out Min: Double; out Avg: Double; out Status: Integer): HResult; stdcall;
end;
// *********************************************************************//
// Interface: ICounterItem2
// Flags: (0)
// GUID: {EEFCD4E1-EA1C-4435-B7F4-E341BA03B4F9}
// *********************************************************************//
ICounterItem2 = interface(ICounterItem)
['{EEFCD4E1-EA1C-4435-B7F4-E341BA03B4F9}']
function Set_Selected(pbState: WordBool): HResult; stdcall;
function Get_Selected(out pbState: WordBool): HResult; stdcall;
function Set_Visible(pbState: WordBool): HResult; stdcall;
function Get_Visible(out pbState: WordBool): HResult; stdcall;
function GetDataAt(iIndex: SYSINT; iWhich: SysmonDataType; out pVariant: OleVariant): HResult; stdcall;
end;
// *********************************************************************//
// Interface: _ICounterItemUnion
// Flags: (16) Hidden
// GUID: {DE1A6B74-9182-4C41-8E2C-24C2CD30EE83}
// *********************************************************************//
_ICounterItemUnion = interface(IUnknown)
['{DE1A6B74-9182-4C41-8E2C-24C2CD30EE83}']
function Get_Value(out pdblValue: Double): HResult; stdcall;
function Set_Color(pColor: OLE_COLOR): HResult; stdcall;
function Get_Color(out pColor: OLE_COLOR): HResult; stdcall;
function Set_Width(piValue: SYSINT): HResult; stdcall;
function Get_Width(out piValue: SYSINT): HResult; stdcall;
function Set_LineStyle(piValue: SYSINT): HResult; stdcall;
function Get_LineStyle(out piValue: SYSINT): HResult; stdcall;
function Set_ScaleFactor(piValue: SYSINT): HResult; stdcall;
function Get_ScaleFactor(out piValue: SYSINT): HResult; stdcall;
function Get_Path(out pstrValue: WideString): HResult; stdcall;
function GetValue(out Value: Double; out Status: Integer): HResult; stdcall;
function GetStatistics(out Max: Double; out Min: Double; out Avg: Double; out Status: Integer): HResult; stdcall;
function Set_Selected(pbState: WordBool): HResult; stdcall;
function Get_Selected(out pbState: WordBool): HResult; stdcall;
function Set_Visible(pbState: WordBool): HResult; stdcall;
function Get_Visible(out pbState: WordBool): HResult; stdcall;
function GetDataAt(iIndex: SYSINT; iWhich: SysmonDataType; out pVariant: OleVariant): HResult; stdcall;
end;
// *********************************************************************//
// DispIntf: DICounterItem
// Flags: (4112) Hidden Dispatchable
// GUID: {C08C4FF2-0E2E-11CF-942C-008029004347}
// *********************************************************************//
DICounterItem = dispinterface
['{C08C4FF2-0E2E-11CF-942C-008029004347}']
property Value: Double readonly dispid 0;
property Color: OLE_COLOR dispid 1;
property Width: SYSINT dispid 2;
property LineStyle: SYSINT dispid 3;
property ScaleFactor: SYSINT dispid 4;
property Path: WideString readonly dispid 5;
procedure GetValue(out Value: Double; out Status: Integer); dispid 1610678282;
procedure GetStatistics(out Max: Double; out Min: Double; out Avg: Double; out Status: Integer); dispid 1610678283;
property Selected: WordBool dispid 8;
property Visible: WordBool dispid 9;
procedure GetDataAt(iIndex: SYSINT; iWhich: SysmonDataType; out pVariant: OleVariant); dispid 10;
end;
// *********************************************************************//
// Interface: ICounters
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {79167962-28FC-11CF-942F-008029004347}
// *********************************************************************//
ICounters = interface(IDispatch)
['{79167962-28FC-11CF-942F-008029004347}']
function Get_Count: Integer; safecall;
function Get__NewEnum: IUnknown; safecall;
function Get_Item(index: OleVariant): DICounterItem; safecall;
function Add(const pathname: WideString): DICounterItem; safecall;
procedure Remove(index: OleVariant); safecall;
property Count: Integer read Get_Count;
property _NewEnum: IUnknown read Get__NewEnum;
property Item[index: OleVariant]: DICounterItem read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: ICountersDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {79167962-28FC-11CF-942F-008029004347}
// *********************************************************************//
ICountersDisp = dispinterface
['{79167962-28FC-11CF-942F-008029004347}']
property Count: Integer readonly dispid 1610743808;
property _NewEnum: IUnknown readonly dispid -4;
property Item[index: OleVariant]: DICounterItem readonly dispid 0; default;
function Add(const pathname: WideString): DICounterItem; dispid 1610743811;
procedure Remove(index: OleVariant); dispid 1610743812;
end;
// *********************************************************************//
// Interface: ILogFileItem
// Flags: (16) Hidden
// GUID: {D6B518DD-05C7-418A-89E6-4F9CE8C6841E}
// *********************************************************************//
ILogFileItem = interface(IUnknown)
['{D6B518DD-05C7-418A-89E6-4F9CE8C6841E}']
function Get_Path(out pstrValue: WideString): HResult; stdcall;
end;
// *********************************************************************//
// DispIntf: DILogFileItem
// Flags: (4112) Hidden Dispatchable
// GUID: {8D093FFC-F777-4917-82D1-833FBC54C58F}
// *********************************************************************//
DILogFileItem = dispinterface
['{8D093FFC-F777-4917-82D1-833FBC54C58F}']
property Path: WideString readonly dispid 0;
end;
// *********************************************************************//
// Interface: ILogFiles
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {6A2A97E6-6851-41EA-87AD-2A8225335865}
// *********************************************************************//
ILogFiles = interface(IDispatch)
['{6A2A97E6-6851-41EA-87AD-2A8225335865}']
function Get_Count: Integer; safecall;
function Get__NewEnum: IUnknown; safecall;
function Get_Item(index: OleVariant): DILogFileItem; safecall;
function Add(const pathname: WideString): DILogFileItem; safecall;
procedure Remove(index: OleVariant); safecall;
property Count: Integer read Get_Count;
property _NewEnum: IUnknown read Get__NewEnum;
property Item[index: OleVariant]: DILogFileItem read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: ILogFilesDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {6A2A97E6-6851-41EA-87AD-2A8225335865}
// *********************************************************************//
ILogFilesDisp = dispinterface
['{6A2A97E6-6851-41EA-87AD-2A8225335865}']
property Count: Integer readonly dispid 1610743808;
property _NewEnum: IUnknown readonly dispid -4;
property Item[index: OleVariant]: DILogFileItem readonly dispid 0; default;
function Add(const pathname: WideString): DILogFileItem; dispid 1610743811;
procedure Remove(index: OleVariant); dispid 1610743812;
end;
// *********************************************************************//
// Interface: ISystemMonitor
// Flags: (16) Hidden
// GUID: {194EB241-C32C-11CF-9398-00AA00A3DDEA}
// *********************************************************************//
ISystemMonitor = interface(IUnknown)
['{194EB241-C32C-11CF-9398-00AA00A3DDEA}']
function Get_Appearance(out iAppearance: SYSINT): HResult; stdcall;
function Set_Appearance(iAppearance: SYSINT): HResult; stdcall;
function Get_BackColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_BackColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_BorderStyle(out iBorderStyle: SYSINT): HResult; stdcall;
function Set_BorderStyle(iBorderStyle: SYSINT): HResult; stdcall;
function Get_ForeColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_ForeColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_Font(out ppFont: IFontDisp): HResult; stdcall;
function _Set_Font(const ppFont: IFontDisp): HResult; stdcall;
function Get_Counters(out ppICounters: ICounters): HResult; stdcall;
function Set_ShowVerticalGrid(pbState: WordBool): HResult; stdcall;
function Get_ShowVerticalGrid(out pbState: WordBool): HResult; stdcall;
function Set_ShowHorizontalGrid(pbState: WordBool): HResult; stdcall;
function Get_ShowHorizontalGrid(out pbState: WordBool): HResult; stdcall;
function Set_ShowLegend(pbState: WordBool): HResult; stdcall;
function Get_ShowLegend(out pbState: WordBool): HResult; stdcall;
function Set_ShowScaleLabels(pbState: WordBool): HResult; stdcall;
function Get_ShowScaleLabels(out pbState: WordBool): HResult; stdcall;
function Set_ShowValueBar(pbState: WordBool): HResult; stdcall;
function Get_ShowValueBar(out pbState: WordBool): HResult; stdcall;
function Set_MaximumScale(piValue: SYSINT): HResult; stdcall;
function Get_MaximumScale(out piValue: SYSINT): HResult; stdcall;
function Set_MinimumScale(piValue: SYSINT): HResult; stdcall;
function Get_MinimumScale(out piValue: SYSINT): HResult; stdcall;
function Set_UpdateInterval(pfValue: Single): HResult; stdcall;
function Get_UpdateInterval(out pfValue: Single): HResult; stdcall;
function Set_DisplayType(peDisplayType: DisplayTypeConstants): HResult; stdcall;
function Get_DisplayType(out peDisplayType: DisplayTypeConstants): HResult; stdcall;
function Set_ManualUpdate(pbState: WordBool): HResult; stdcall;
function Get_ManualUpdate(out pbState: WordBool): HResult; stdcall;
function Set_GraphTitle(const pbsTitle: WideString): HResult; stdcall;
function Get_GraphTitle(out pbsTitle: WideString): HResult; stdcall;
function Set_YAxisLabel(const pbsTitle: WideString): HResult; stdcall;
function Get_YAxisLabel(out pbsTitle: WideString): HResult; stdcall;
function CollectSample: HResult; stdcall;
function UpdateGraph: HResult; stdcall;
function BrowseCounters: HResult; stdcall;
function DisplayProperties: HResult; stdcall;
function Counter(iIndex: SYSINT; out ppICounter: ICounterItem): HResult; stdcall;
function AddCounter(const bsPath: WideString; out ppICounter: ICounterItem): HResult; stdcall;
function DeleteCounter(const pCtr: ICounterItem): HResult; stdcall;
function Get_BackColorCtl(out pColor: OLE_COLOR): HResult; stdcall;
function Set_BackColorCtl(pColor: OLE_COLOR): HResult; stdcall;
function Set_LogFileName(const bsFileName: WideString): HResult; stdcall;
function Get_LogFileName(out bsFileName: WideString): HResult; stdcall;
function Set_LogViewStart(StartTime: TDateTime): HResult; stdcall;
function Get_LogViewStart(out StartTime: TDateTime): HResult; stdcall;
function Set_LogViewStop(StopTime: TDateTime): HResult; stdcall;
function Get_LogViewStop(out StopTime: TDateTime): HResult; stdcall;
function Get_GridColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_GridColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_TimeBarColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_TimeBarColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_Highlight(out pbState: WordBool): HResult; stdcall;
function Set_Highlight(pbState: WordBool): HResult; stdcall;
function Get_ShowToolbar(out pbState: WordBool): HResult; stdcall;
function Set_ShowToolbar(pbState: WordBool): HResult; stdcall;
function Paste: HResult; stdcall;
function Copy: HResult; stdcall;
function Reset: HResult; stdcall;
function Set_ReadOnly(pbState: WordBool): HResult; stdcall;
function Get_ReadOnly(out pbState: WordBool): HResult; stdcall;
function Set_ReportValueType(peReportValueType: ReportValueTypeConstants): HResult; stdcall;
function Get_ReportValueType(out peReportValueType: ReportValueTypeConstants): HResult; stdcall;
function Set_MonitorDuplicateInstances(pbState: WordBool): HResult; stdcall;
function Get_MonitorDuplicateInstances(out pbState: WordBool): HResult; stdcall;
function Set_DisplayFilter(piValue: SYSINT): HResult; stdcall;
function Get_DisplayFilter(out piValue: SYSINT): HResult; stdcall;
function Get_LogFiles(out ppILogFiles: ILogFiles): HResult; stdcall;
function Set_DataSourceType(peDataSourceType: DataSourceTypeConstants): HResult; stdcall;
function Get_DataSourceType(out peDataSourceType: DataSourceTypeConstants): HResult; stdcall;
function Set_SqlDsnName(const bsSqlDsnName: WideString): HResult; stdcall;
function Get_SqlDsnName(out bsSqlDsnName: WideString): HResult; stdcall;
function Set_SqlLogSetName(const bsSqlLogSetName: WideString): HResult; stdcall;
function Get_SqlLogSetName(out bsSqlLogSetName: WideString): HResult; stdcall;
end;
// *********************************************************************//
// Interface: ISystemMonitor2
// Flags: (0)
// GUID: {08E3206A-5FD2-4FDE-A8A5-8CB3B63D2677}
// *********************************************************************//
ISystemMonitor2 = interface(ISystemMonitor)
['{08E3206A-5FD2-4FDE-A8A5-8CB3B63D2677}']
function Set_EnableDigitGrouping(pbState: WordBool): HResult; stdcall;
function Get_EnableDigitGrouping(out pbState: WordBool): HResult; stdcall;
function Set_EnableToolTips(pbState: WordBool): HResult; stdcall;
function Get_EnableToolTips(out pbState: WordBool): HResult; stdcall;
function Set_ShowTimeAxisLabels(pbState: WordBool): HResult; stdcall;
function Get_ShowTimeAxisLabels(out pbState: WordBool): HResult; stdcall;
function Set_ChartScroll(pbScroll: WordBool): HResult; stdcall;
function Get_ChartScroll(out pbScroll: WordBool): HResult; stdcall;
function Set_DataPointCount(piDataPointCount: SYSINT): HResult; stdcall;
function Get_DataPointCount(out piDataPointCount: SYSINT): HResult; stdcall;
function ScaleToFit(bSelectedCountersOnly: WordBool): HResult; stdcall;
function SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType): HResult; stdcall;
function Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType; iFilter: SYSINT): HResult; stdcall;
function ClearData: HResult; stdcall;
function Get_LogSourceStartTime(out pDate: TDateTime): HResult; stdcall;
function Get_LogSourceStopTime(out pDate: TDateTime): HResult; stdcall;
function SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime): HResult; stdcall;
function GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime): HResult; stdcall;
function BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason): HResult; stdcall;
function LoadSettings(const bstrSettingFileName: WideString): HResult; stdcall;
end;
// *********************************************************************//
// Interface: _ISystemMonitorUnion
// Flags: (16) Hidden
// GUID: {C8A77338-265F-4DE5-AA25-C7DA1CE5A8F4}
// *********************************************************************//
_ISystemMonitorUnion = interface(IUnknown)
['{C8A77338-265F-4DE5-AA25-C7DA1CE5A8F4}']
function Get_Appearance(out iAppearance: SYSINT): HResult; stdcall;
function Set_Appearance(iAppearance: SYSINT): HResult; stdcall;
function Get_BackColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_BackColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_BorderStyle(out iBorderStyle: SYSINT): HResult; stdcall;
function Set_BorderStyle(iBorderStyle: SYSINT): HResult; stdcall;
function Get_ForeColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_ForeColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_Font(out ppFont: IFontDisp): HResult; stdcall;
function _Set_Font(const ppFont: IFontDisp): HResult; stdcall;
function Get_Counters(out ppICounters: ICounters): HResult; stdcall;
function Set_ShowVerticalGrid(pbState: WordBool): HResult; stdcall;
function Get_ShowVerticalGrid(out pbState: WordBool): HResult; stdcall;
function Set_ShowHorizontalGrid(pbState: WordBool): HResult; stdcall;
function Get_ShowHorizontalGrid(out pbState: WordBool): HResult; stdcall;
function Set_ShowLegend(pbState: WordBool): HResult; stdcall;
function Get_ShowLegend(out pbState: WordBool): HResult; stdcall;
function Set_ShowScaleLabels(pbState: WordBool): HResult; stdcall;
function Get_ShowScaleLabels(out pbState: WordBool): HResult; stdcall;
function Set_ShowValueBar(pbState: WordBool): HResult; stdcall;
function Get_ShowValueBar(out pbState: WordBool): HResult; stdcall;
function Set_MaximumScale(piValue: SYSINT): HResult; stdcall;
function Get_MaximumScale(out piValue: SYSINT): HResult; stdcall;
function Set_MinimumScale(piValue: SYSINT): HResult; stdcall;
function Get_MinimumScale(out piValue: SYSINT): HResult; stdcall;
function Set_UpdateInterval(pfValue: Single): HResult; stdcall;
function Get_UpdateInterval(out pfValue: Single): HResult; stdcall;
function Set_DisplayType(peDisplayType: DisplayTypeConstants): HResult; stdcall;
function Get_DisplayType(out peDisplayType: DisplayTypeConstants): HResult; stdcall;
function Set_ManualUpdate(pbState: WordBool): HResult; stdcall;
function Get_ManualUpdate(out pbState: WordBool): HResult; stdcall;
function Set_GraphTitle(const pbsTitle: WideString): HResult; stdcall;
function Get_GraphTitle(out pbsTitle: WideString): HResult; stdcall;
function Set_YAxisLabel(const pbsTitle: WideString): HResult; stdcall;
function Get_YAxisLabel(out pbsTitle: WideString): HResult; stdcall;
function CollectSample: HResult; stdcall;
function UpdateGraph: HResult; stdcall;
function BrowseCounters: HResult; stdcall;
function DisplayProperties: HResult; stdcall;
function Counter(iIndex: SYSINT; out ppICounter: ICounterItem): HResult; stdcall;
function AddCounter(const bsPath: WideString; out ppICounter: ICounterItem): HResult; stdcall;
function DeleteCounter(const pCtr: ICounterItem): HResult; stdcall;
function Get_BackColorCtl(out pColor: OLE_COLOR): HResult; stdcall;
function Set_BackColorCtl(pColor: OLE_COLOR): HResult; stdcall;
function Set_LogFileName(const bsFileName: WideString): HResult; stdcall;
function Get_LogFileName(out bsFileName: WideString): HResult; stdcall;
function Set_LogViewStart(StartTime: TDateTime): HResult; stdcall;
function Get_LogViewStart(out StartTime: TDateTime): HResult; stdcall;
function Set_LogViewStop(StopTime: TDateTime): HResult; stdcall;
function Get_LogViewStop(out StopTime: TDateTime): HResult; stdcall;
function Get_GridColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_GridColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_TimeBarColor(out pColor: OLE_COLOR): HResult; stdcall;
function Set_TimeBarColor(pColor: OLE_COLOR): HResult; stdcall;
function Get_Highlight(out pbState: WordBool): HResult; stdcall;
function Set_Highlight(pbState: WordBool): HResult; stdcall;
function Get_ShowToolbar(out pbState: WordBool): HResult; stdcall;
function Set_ShowToolbar(pbState: WordBool): HResult; stdcall;
function Paste: HResult; stdcall;
function Copy: HResult; stdcall;
function Reset: HResult; stdcall;
function Set_ReadOnly(pbState: WordBool): HResult; stdcall;
function Get_ReadOnly(out pbState: WordBool): HResult; stdcall;
function Set_ReportValueType(peReportValueType: ReportValueTypeConstants): HResult; stdcall;
function Get_ReportValueType(out peReportValueType: ReportValueTypeConstants): HResult; stdcall;
function Set_MonitorDuplicateInstances(pbState: WordBool): HResult; stdcall;
function Get_MonitorDuplicateInstances(out pbState: WordBool): HResult; stdcall;
function Set_DisplayFilter(piValue: SYSINT): HResult; stdcall;
function Get_DisplayFilter(out piValue: SYSINT): HResult; stdcall;
function Get_LogFiles(out ppILogFiles: ILogFiles): HResult; stdcall;
function Set_DataSourceType(peDataSourceType: DataSourceTypeConstants): HResult; stdcall;
function Get_DataSourceType(out peDataSourceType: DataSourceTypeConstants): HResult; stdcall;
function Set_SqlDsnName(const bsSqlDsnName: WideString): HResult; stdcall;
function Get_SqlDsnName(out bsSqlDsnName: WideString): HResult; stdcall;
function Set_SqlLogSetName(const bsSqlLogSetName: WideString): HResult; stdcall;
function Get_SqlLogSetName(out bsSqlLogSetName: WideString): HResult; stdcall;
function Set_EnableDigitGrouping(pbState: WordBool): HResult; stdcall;
function Get_EnableDigitGrouping(out pbState: WordBool): HResult; stdcall;
function Set_EnableToolTips(pbState: WordBool): HResult; stdcall;
function Get_EnableToolTips(out pbState: WordBool): HResult; stdcall;
function Set_ShowTimeAxisLabels(pbState: WordBool): HResult; stdcall;
function Get_ShowTimeAxisLabels(out pbState: WordBool): HResult; stdcall;
function Set_ChartScroll(pbScroll: WordBool): HResult; stdcall;
function Get_ChartScroll(out pbScroll: WordBool): HResult; stdcall;
function Set_DataPointCount(piDataPointCount: SYSINT): HResult; stdcall;
function Get_DataPointCount(out piDataPointCount: SYSINT): HResult; stdcall;
function ScaleToFit(bSelectedCountersOnly: WordBool): HResult; stdcall;
function SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType): HResult; stdcall;
function Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType; iFilter: SYSINT): HResult; stdcall;
function ClearData: HResult; stdcall;
function Get_LogSourceStartTime(out pDate: TDateTime): HResult; stdcall;
function Get_LogSourceStopTime(out pDate: TDateTime): HResult; stdcall;
function SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime): HResult; stdcall;
function GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime): HResult; stdcall;
function BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason): HResult; stdcall;
function LoadSettings(const bstrSettingFileName: WideString): HResult; stdcall;
end;
// *********************************************************************//
// DispIntf: DISystemMonitor
// Flags: (4112) Hidden Dispatchable
// GUID: {13D73D81-C32E-11CF-9398-00AA00A3DDEA}
// *********************************************************************//
DISystemMonitor = dispinterface
['{13D73D81-C32E-11CF-9398-00AA00A3DDEA}']
property Appearance: SYSINT dispid -520;
property BackColor: OLE_COLOR dispid -501;
property BorderStyle: SYSINT dispid -504;
property ForeColor: OLE_COLOR dispid -513;
property Font: IFontDisp dispid -512;
property Counters: ICounters readonly dispid 0;
property ShowVerticalGrid: WordBool dispid 1;
property ShowHorizontalGrid: WordBool dispid 2;
property ShowLegend: WordBool dispid 3;
property ShowScaleLabels: WordBool dispid 4;
property ShowValueBar: WordBool dispid 5;
property MaximumScale: SYSINT dispid 6;
property MinimumScale: SYSINT dispid 7;
property UpdateInterval: Single dispid 8;
property DisplayType: DisplayTypeConstants dispid 9;
property ManualUpdate: WordBool dispid 16;
property GraphTitle: WideString dispid 17;
property YAxisLabel: WideString dispid 18;
procedure CollectSample; dispid 20;
procedure UpdateGraph; dispid 21;
procedure BrowseCounters; dispid 22;
procedure DisplayProperties; dispid 23;
procedure Counter(iIndex: SYSINT; out ppICounter: ICounterItem); dispid 24;
procedure AddCounter(const bsPath: WideString; out ppICounter: ICounterItem); dispid 25;
procedure DeleteCounter(const pCtr: ICounterItem); dispid 32;
property BackColorCtl: OLE_COLOR dispid 33;
property LogFileName: WideString dispid 34;
property LogViewStart: TDateTime dispid 35;
property LogViewStop: TDateTime dispid 36;
property GridColor: OLE_COLOR dispid 37;
property TimeBarColor: OLE_COLOR dispid 38;
property Highlight: WordBool dispid 39;
property ShowToolbar: WordBool dispid 40;
procedure Paste; dispid 41;
procedure Copy; dispid 48;
procedure Reset; dispid 49;
property ReadOnly: WordBool dispid 50;
property ReportValueType: ReportValueTypeConstants dispid 51;
property MonitorDuplicateInstances: WordBool dispid 52;
property DisplayFilter: SYSINT dispid 53;
property LogFiles: ILogFiles readonly dispid 54;
property DataSourceType: DataSourceTypeConstants dispid 55;
property SqlDsnName: WideString dispid 56;
property SqlLogSetName: WideString dispid 57;
property EnableDigitGrouping: WordBool dispid 58;
property EnableToolTips: WordBool dispid 59;
property ShowTimeAxisLabels: WordBool dispid 60;
property ChartScroll: WordBool dispid 61;
property DataPointCount: SYSINT dispid 62;
procedure ScaleToFit(bSelectedCountersOnly: WordBool); dispid 63;
procedure SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType); dispid 64;
procedure Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType; iFilter: SYSINT); dispid 68;
procedure ClearData; dispid 65;
property LogSourceStartTime: TDateTime readonly dispid 66;
property LogSourceStopTime: TDateTime readonly dispid 67;
procedure SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime); dispid 70;
procedure GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime); dispid 71;
procedure BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason); dispid 72;
procedure LoadSettings(const bstrSettingFileName: WideString); dispid 73;
end;
// *********************************************************************//
// DispIntf: DISystemMonitorInternal
// Flags: (4112) Hidden Dispatchable
// GUID: {194EB242-C32C-11CF-9398-00AA00A3DDEA}
// *********************************************************************//
DISystemMonitorInternal = dispinterface
['{194EB242-C32C-11CF-9398-00AA00A3DDEA}']
property Appearance: SYSINT dispid -520;
property BackColor: OLE_COLOR dispid -501;
property BorderStyle: SYSINT dispid -504;
property ForeColor: OLE_COLOR dispid -513;
property Font: IFontDisp dispid -512;
property Counters: ICounters readonly dispid 0;
property ShowVerticalGrid: WordBool dispid 1;
property ShowHorizontalGrid: WordBool dispid 2;
property ShowLegend: WordBool dispid 3;
property ShowScaleLabels: WordBool dispid 4;
property ShowValueBar: WordBool dispid 5;
property MaximumScale: SYSINT dispid 6;
property MinimumScale: SYSINT dispid 7;
property UpdateInterval: Single dispid 8;
property DisplayType: DisplayTypeConstants dispid 9;
property ManualUpdate: WordBool dispid 16;
property GraphTitle: WideString dispid 17;
property YAxisLabel: WideString dispid 18;
procedure CollectSample; dispid 20;
procedure UpdateGraph; dispid 21;
procedure BrowseCounters; dispid 22;
procedure DisplayProperties; dispid 23;
procedure Counter(iIndex: SYSINT; out ppICounter: ICounterItem); dispid 24;
procedure AddCounter(const bsPath: WideString; out ppICounter: ICounterItem); dispid 25;
procedure DeleteCounter(const pCtr: ICounterItem); dispid 32;
property BackColorCtl: OLE_COLOR dispid 33;
property LogFileName: WideString dispid 34;
property LogViewStart: TDateTime dispid 35;
property LogViewStop: TDateTime dispid 36;
property GridColor: OLE_COLOR dispid 37;
property TimeBarColor: OLE_COLOR dispid 38;
property Highlight: WordBool dispid 39;
property ShowToolbar: WordBool dispid 40;
procedure Paste; dispid 41;
procedure Copy; dispid 48;
procedure Reset; dispid 49;
property ReadOnly: WordBool dispid 50;
property ReportValueType: ReportValueTypeConstants dispid 51;
property MonitorDuplicateInstances: WordBool dispid 52;
property DisplayFilter: SYSINT dispid 53;
property LogFiles: ILogFiles readonly dispid 54;
property DataSourceType: DataSourceTypeConstants dispid 55;
property SqlDsnName: WideString dispid 56;
property SqlLogSetName: WideString dispid 57;
property EnableDigitGrouping: WordBool dispid 58;
property EnableToolTips: WordBool dispid 59;
property ShowTimeAxisLabels: WordBool dispid 60;
property ChartScroll: WordBool dispid 61;
property DataPointCount: SYSINT dispid 62;
procedure ScaleToFit(bSelectedCountersOnly: WordBool); dispid 63;
procedure SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType); dispid 64;
procedure Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType; iFilter: SYSINT); dispid 68;
procedure ClearData; dispid 65;
property LogSourceStartTime: TDateTime readonly dispid 66;
property LogSourceStopTime: TDateTime readonly dispid 67;
procedure SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime); dispid 70;
procedure GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime); dispid 71;
procedure BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason); dispid 72;
procedure LoadSettings(const bstrSettingFileName: WideString); dispid 73;
end;
// *********************************************************************//
// Interface: ISystemMonitorEvents
// Flags: (0)
// GUID: {EE660EA0-4ABD-11CF-943A-008029004347}
// *********************************************************************//
ISystemMonitorEvents = interface(IUnknown)
['{EE660EA0-4ABD-11CF-943A-008029004347}']
procedure OnCounterSelected(index: SYSINT); stdcall;
procedure OnCounterAdded(index: SYSINT); stdcall;
procedure OnCounterDeleted(index: SYSINT); stdcall;
procedure OnSampleCollected; stdcall;
procedure OnDblClick(index: SYSINT); stdcall;
end;
// *********************************************************************//
// DispIntf: DISystemMonitorEvents
// Flags: (4096) Dispatchable
// GUID: {84979930-4AB3-11CF-943A-008029004347}
// *********************************************************************//
DISystemMonitorEvents = dispinterface
['{84979930-4AB3-11CF-943A-008029004347}']
procedure OnCounterSelected(iIndex: SYSINT); dispid 1;
procedure OnCounterAdded(iIndex: SYSINT); dispid 2;
procedure OnCounterDeleted(iIndex: SYSINT); dispid 3;
procedure OnSampleCollected; dispid 4;
procedure OnDblClick(index: SYSINT); dispid 5;
end;
// *********************************************************************//
// Interface: IPropertyPage
// Flags: (0)
// GUID: {B196B28D-BAB4-101A-B69C-00AA00341D07}
// *********************************************************************//
IPropertyPage = interface(IUnknown)
['{B196B28D-BAB4-101A-B69C-00AA00341D07}']
function SetPageSite(const pPageSite: IPropertyPageSite): HResult; stdcall;
function Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult; stdcall;
function Deactivate: HResult; stdcall;
function GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult; stdcall;
function SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult; stdcall;
function Show(nCmdShow: SYSUINT): HResult; stdcall;
function Move(var pRect: RECT): HResult; stdcall;
function IsPageDirty: HResult; stdcall;
function Apply: HResult; stdcall;
function Help(pszHelpDir: PWideChar): HResult; stdcall;
function TranslateAccelerator(var pMsg: MSG): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IPropertyPage2
// Flags: (0)
// GUID: {01E44665-24AC-101B-84ED-08002B2EC713}
// *********************************************************************//
IPropertyPage2 = interface(IPropertyPage)
['{01E44665-24AC-101B-84ED-08002B2EC713}']
function EditProperty(dispID: Integer): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IPropertyPageSite
// Flags: (0)
// GUID: {B196B28C-BAB4-101A-B69C-00AA00341D07}
// *********************************************************************//
IPropertyPageSite = interface(IUnknown)
['{B196B28C-BAB4-101A-B69C-00AA00341D07}']
function OnStatusChange(dwFlags: LongWord): HResult; stdcall;
function GetLocaleID(out pLocaleID: LongWord): HResult; stdcall;
function GetPageContainer(out ppUnk: IUnknown): HResult; stdcall;
function TranslateAccelerator(var pMsg: MSG): HResult; stdcall;
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TSystemMonitor_
// Help String : System Monitor Control Type Information
// Default Interface: DISystemMonitor
// Def. Intf. DISP? : Yes
// Event Interface: DISystemMonitorEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TSystemMonitor_OnCounterSelected = procedure(ASender: TObject; iIndex: SYSINT) of object;
TSystemMonitor_OnCounterAdded = procedure(ASender: TObject; iIndex: SYSINT) of object;
TSystemMonitor_OnCounterDeleted = procedure(ASender: TObject; iIndex: SYSINT) of object;
TSystemMonitor_OnDblClick = procedure(ASender: TObject; index: SYSINT) of object;
TSystemMonitor_ = class(TOleControl)
private
FOnCounterSelected: TSystemMonitor_OnCounterSelected;
FOnCounterAdded: TSystemMonitor_OnCounterAdded;
FOnCounterDeleted: TSystemMonitor_OnCounterDeleted;
FOnSampleCollected: TNotifyEvent;
FOnDblClick: TSystemMonitor_OnDblClick;
FIntf: DISystemMonitor;
function GetControlInterface: DISystemMonitor;
protected
procedure CreateControl;
procedure InitControlData; override;
function Get_Counters: ICounters;
function Get_LogFiles: ILogFiles;
public
procedure CollectSample;
procedure UpdateGraph;
procedure BrowseCounters;
procedure DisplayProperties;
procedure Counter(iIndex: SYSINT; out ppICounter: ICounterItem);
procedure AddCounter(const bsPath: WideString; out ppICounter: ICounterItem);
procedure DeleteCounter(const pCtr: ICounterItem);
procedure Paste;
procedure Copy;
procedure Reset;
procedure ScaleToFit(bSelectedCountersOnly: WordBool);
procedure SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType);
procedure Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType; iFilter: SYSINT);
procedure ClearData;
procedure SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime);
procedure GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime);
procedure BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason);
procedure LoadSettings(const bstrSettingFileName: WideString);
property ControlInterface: DISystemMonitor read GetControlInterface;
property DefaultInterface: DISystemMonitor read GetControlInterface;
property Font: TFont index -512 read GetTFontProp;
property Counters: ICounters read Get_Counters;
property LogFiles: ILogFiles read Get_LogFiles;
property LogSourceStartTime: TDateTime index 66 read GetTDateTimeProp;
property LogSourceStopTime: TDateTime index 67 read GetTDateTimeProp;
published
property Anchors;
property ParentColor;
property ParentFont;
property TabStop;
property Align;
property DragCursor;
property DragMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property Appearance: Integer index -520 read GetIntegerProp write SetIntegerProp stored False;
property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
property BorderStyle: Integer index -504 read GetIntegerProp write SetIntegerProp stored False;
property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
property ShowVerticalGrid: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
property ShowHorizontalGrid: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
property ShowLegend: WordBool index 3 read GetWordBoolProp write SetWordBoolProp stored False;
property ShowScaleLabels: WordBool index 4 read GetWordBoolProp write SetWordBoolProp stored False;
property ShowValueBar: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False;
property MaximumScale: Integer index 6 read GetIntegerProp write SetIntegerProp stored False;
property MinimumScale: Integer index 7 read GetIntegerProp write SetIntegerProp stored False;
property UpdateInterval: Single index 8 read GetSingleProp write SetSingleProp stored False;
property DisplayType: TOleEnum index 9 read GetTOleEnumProp write SetTOleEnumProp stored False;
property ManualUpdate: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False;
property GraphTitle: WideString index 17 read GetWideStringProp write SetWideStringProp stored False;
property YAxisLabel: WideString index 18 read GetWideStringProp write SetWideStringProp stored False;
property BackColorCtl: TColor index 33 read GetTColorProp write SetTColorProp stored False;
property LogFileName: WideString index 34 read GetWideStringProp write SetWideStringProp stored False;
property LogViewStart: TDateTime index 35 read GetTDateTimeProp write SetTDateTimeProp stored False;
property LogViewStop: TDateTime index 36 read GetTDateTimeProp write SetTDateTimeProp stored False;
property GridColor: TColor index 37 read GetTColorProp write SetTColorProp stored False;
property TimeBarColor: TColor index 38 read GetTColorProp write SetTColorProp stored False;
property Highlight: WordBool index 39 read GetWordBoolProp write SetWordBoolProp stored False;
property ShowToolbar: WordBool index 40 read GetWordBoolProp write SetWordBoolProp stored False;
property ReadOnly: WordBool index 50 read GetWordBoolProp write SetWordBoolProp stored False;
property ReportValueType: TOleEnum index 51 read GetTOleEnumProp write SetTOleEnumProp stored False;
property MonitorDuplicateInstances: WordBool index 52 read GetWordBoolProp write SetWordBoolProp stored False;
property DisplayFilter: Integer index 53 read GetIntegerProp write SetIntegerProp stored False;
property DataSourceType: TOleEnum index 55 read GetTOleEnumProp write SetTOleEnumProp stored False;
property SqlDsnName: WideString index 56 read GetWideStringProp write SetWideStringProp stored False;
property SqlLogSetName: WideString index 57 read GetWideStringProp write SetWideStringProp stored False;
property EnableDigitGrouping: WordBool index 58 read GetWordBoolProp write SetWordBoolProp stored False;
property EnableToolTips: WordBool index 59 read GetWordBoolProp write SetWordBoolProp stored False;
property ShowTimeAxisLabels: WordBool index 60 read GetWordBoolProp write SetWordBoolProp stored False;
property ChartScroll: WordBool index 61 read GetWordBoolProp write SetWordBoolProp stored False;
property DataPointCount: Integer index 62 read GetIntegerProp write SetIntegerProp stored False;
property OnCounterSelected: TSystemMonitor_OnCounterSelected read FOnCounterSelected write FOnCounterSelected;
property OnCounterAdded: TSystemMonitor_OnCounterAdded read FOnCounterAdded write FOnCounterAdded;
property OnCounterDeleted: TSystemMonitor_OnCounterDeleted read FOnCounterDeleted write FOnCounterDeleted;
property OnSampleCollected: TNotifyEvent read FOnSampleCollected write FOnSampleCollected;
property OnDblClick: TSystemMonitor_OnDblClick read FOnDblClick write FOnDblClick;
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TCounterItem
// Help String : System Monitor Counter Item Type Information
// Default Interface: DICounterItem
// Def. Intf. DISP? : Yes
// Event Interface:
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TCounterItem = class(TOleControl)
private
FIntf: DICounterItem;
function GetControlInterface: DICounterItem;
protected
procedure CreateControl;
procedure InitControlData; override;
public
procedure GetValue(out Value: Double; out Status: Integer);
procedure GetStatistics(out Max: Double; out Min: Double; out Avg: Double; out Status: Integer);
procedure GetDataAt(iIndex: SYSINT; iWhich: SysmonDataType; out pVariant: OleVariant);
property ControlInterface: DICounterItem read GetControlInterface;
property DefaultInterface: DICounterItem read GetControlInterface;
property Value: Double index 0 read GetDoubleProp;
property Path: WideString index 5 read GetWideStringProp;
published
property Anchors;
property Color: TColor index 1 read GetTColorProp write SetTColorProp stored False;
property LineStyle: Integer index 3 read GetIntegerProp write SetIntegerProp stored False;
property ScaleFactor: Integer index 4 read GetIntegerProp write SetIntegerProp stored False;
property Selected: WordBool index 8 read GetWordBoolProp write SetWordBoolProp stored False;
property Visible: WordBool index 9 read GetWordBoolProp write SetWordBoolProp stored False;
end;
// *********************************************************************//
// The Class CoCounters provides a Create and CreateRemote method to
// create instances of the default interface ICounters exposed by
// the CoClass Counters. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCounters = class
class function Create: ICounters;
class function CreateRemote(const MachineName: string): ICounters;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCounters
// Help String : System Monitor Counter Collection Type Information
// Default Interface: ICounters
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCountersProperties= class;
{$ENDIF}
TCounters = class(TOleServer)
private
FIntf: ICounters;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCountersProperties;
function GetServerProperties: TCountersProperties;
{$ENDIF}
function GetDefaultInterface: ICounters;
protected
procedure InitServerData; override;
function Get_Count: Integer;
function Get_Item(index: OleVariant): DICounterItem;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: ICounters);
procedure Disconnect; override;
function Add(const pathname: WideString): DICounterItem;
procedure Remove(index: OleVariant);
property DefaultInterface: ICounters read GetDefaultInterface;
property Count: Integer read Get_Count;
property Item[index: OleVariant]: DICounterItem read Get_Item; default;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCountersProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCounters
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCountersProperties = class(TPersistent)
private
FServer: TCounters;
function GetDefaultInterface: ICounters;
constructor Create(AServer: TCounters);
protected
function Get_Count: Integer;
function Get_Item(index: OleVariant): DICounterItem;
public
property DefaultInterface: ICounters read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TLogFileItem
// Help String : System Monitor Log File Item Type Information
// Default Interface: DILogFileItem
// Def. Intf. DISP? : Yes
// Event Interface:
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TLogFileItem = class(TOleControl)
private
FIntf: DILogFileItem;
function GetControlInterface: DILogFileItem;
protected
procedure CreateControl;
procedure InitControlData; override;
public
property ControlInterface: DILogFileItem read GetControlInterface;
property DefaultInterface: DILogFileItem read GetControlInterface;
property Path: WideString index 0 read GetWideStringProp;
published
property Anchors;
end;
// *********************************************************************//
// The Class CoLogFiles provides a Create and CreateRemote method to
// create instances of the default interface ILogFiles exposed by
// the CoClass LogFiles. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoLogFiles = class
class function Create: ILogFiles;
class function CreateRemote(const MachineName: string): ILogFiles;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TLogFiles
// Help String : System Monitor Log File Collection Type Information
// Default Interface: ILogFiles
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TLogFilesProperties= class;
{$ENDIF}
TLogFiles = class(TOleServer)
private
FIntf: ILogFiles;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TLogFilesProperties;
function GetServerProperties: TLogFilesProperties;
{$ENDIF}
function GetDefaultInterface: ILogFiles;
protected
procedure InitServerData; override;
function Get_Count: Integer;
function Get_Item(index: OleVariant): DILogFileItem;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: ILogFiles);
procedure Disconnect; override;
function Add(const pathname: WideString): DILogFileItem;
procedure Remove(index: OleVariant);
property DefaultInterface: ILogFiles read GetDefaultInterface;
property Count: Integer read Get_Count;
property Item[index: OleVariant]: DILogFileItem read Get_Item; default;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TLogFilesProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TLogFiles
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TLogFilesProperties = class(TPersistent)
private
FServer: TLogFiles;
function GetDefaultInterface: ILogFiles;
constructor Create(AServer: TLogFiles);
protected
function Get_Count: Integer;
function Get_Item(index: OleVariant): DILogFileItem;
public
property DefaultInterface: ILogFiles read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoCounterItem2 provides a Create and CreateRemote method to
// create instances of the default interface ICounterItem2 exposed by
// the CoClass CounterItem2. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCounterItem2 = class
class function Create: ICounterItem2;
class function CreateRemote(const MachineName: string): ICounterItem2;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCounterItem2
// Help String : System Monitor Counter Item Type Information 2
// Default Interface: ICounterItem2
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCounterItem2Properties= class;
{$ENDIF}
TCounterItem2 = class(TOleServer)
private
FIntf: ICounterItem2;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCounterItem2Properties;
function GetServerProperties: TCounterItem2Properties;
{$ENDIF}
function GetDefaultInterface: ICounterItem2;
protected
procedure InitServerData; override;
function Get_Value(out pdblValue: Double): HResult;
function Set_Color(pColor: OLE_COLOR): HResult;
function Get_Color(out pColor: OLE_COLOR): HResult;
function Set_Width(piValue: SYSINT): HResult;
function Get_Width(out piValue: SYSINT): HResult;
function Set_LineStyle(piValue: SYSINT): HResult;
function Get_LineStyle(out piValue: SYSINT): HResult;
function Set_ScaleFactor(piValue: SYSINT): HResult;
function Get_ScaleFactor(out piValue: SYSINT): HResult;
function Get_Path(out pstrValue: WideString): HResult;
function Set_Selected(pbState: WordBool): HResult;
function Get_Selected(out pbState: WordBool): HResult;
function Set_Visible(pbState: WordBool): HResult;
function Get_Visible(out pbState: WordBool): HResult;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: ICounterItem2);
procedure Disconnect; override;
function GetValue(out Value: Double; out Status: Integer): HResult;
function GetStatistics(out Max: Double; out Min: Double; out Avg: Double; out Status: Integer): HResult;
function GetDataAt(iIndex: SYSINT; iWhich: SysmonDataType; out pVariant: OleVariant): HResult;
property DefaultInterface: ICounterItem2 read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCounterItem2Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCounterItem2
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCounterItem2Properties = class(TPersistent)
private
FServer: TCounterItem2;
function GetDefaultInterface: ICounterItem2;
constructor Create(AServer: TCounterItem2);
protected
function Get_Value(out pdblValue: Double): HResult;
function Set_Color(pColor: OLE_COLOR): HResult;
function Get_Color(out pColor: OLE_COLOR): HResult;
function Set_Width(piValue: SYSINT): HResult;
function Get_Width(out piValue: SYSINT): HResult;
function Set_LineStyle(piValue: SYSINT): HResult;
function Get_LineStyle(out piValue: SYSINT): HResult;
function Set_ScaleFactor(piValue: SYSINT): HResult;
function Get_ScaleFactor(out piValue: SYSINT): HResult;
function Get_Path(out pstrValue: WideString): HResult;
function Set_Selected(pbState: WordBool): HResult;
function Get_Selected(out pbState: WordBool): HResult;
function Set_Visible(pbState: WordBool): HResult;
function Get_Visible(out pbState: WordBool): HResult;
public
property DefaultInterface: ICounterItem2 read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoSystemMonitor2 provides a Create and CreateRemote method to
// create instances of the default interface ISystemMonitor2 exposed by
// the CoClass SystemMonitor2. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoSystemMonitor2 = class
class function Create: ISystemMonitor2;
class function CreateRemote(const MachineName: string): ISystemMonitor2;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TSystemMonitor2
// Help String : System Monitor interface 2
// Default Interface: ISystemMonitor2
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TSystemMonitor2Properties= class;
{$ENDIF}
TSystemMonitor2 = class(TOleServer)
private
FIntf: ISystemMonitor2;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TSystemMonitor2Properties;
function GetServerProperties: TSystemMonitor2Properties;
{$ENDIF}
function GetDefaultInterface: ISystemMonitor2;
protected
procedure InitServerData; override;
function Get_Appearance(out iAppearance: SYSINT): HResult;
function Set_Appearance(iAppearance: SYSINT): HResult;
function Get_BackColor(out pColor: OLE_COLOR): HResult;
function Set_BackColor(pColor: OLE_COLOR): HResult;
function Get_BorderStyle(out iBorderStyle: SYSINT): HResult;
function Set_BorderStyle(iBorderStyle: SYSINT): HResult;
function Get_ForeColor(out pColor: OLE_COLOR): HResult;
function Set_ForeColor(pColor: OLE_COLOR): HResult;
function Get_Font(out ppFont: IFontDisp): HResult;
function _Set_Font(const ppFont: IFontDisp): HResult;
function Get_Counters(out ppICounters: ICounters): HResult;
function Set_ShowVerticalGrid(pbState: WordBool): HResult;
function Get_ShowVerticalGrid(out pbState: WordBool): HResult;
function Set_ShowHorizontalGrid(pbState: WordBool): HResult;
function Get_ShowHorizontalGrid(out pbState: WordBool): HResult;
function Set_ShowLegend(pbState: WordBool): HResult;
function Get_ShowLegend(out pbState: WordBool): HResult;
function Set_ShowScaleLabels(pbState: WordBool): HResult;
function Get_ShowScaleLabels(out pbState: WordBool): HResult;
function Set_ShowValueBar(pbState: WordBool): HResult;
function Get_ShowValueBar(out pbState: WordBool): HResult;
function Set_MaximumScale(piValue: SYSINT): HResult;
function Get_MaximumScale(out piValue: SYSINT): HResult;
function Set_MinimumScale(piValue: SYSINT): HResult;
function Get_MinimumScale(out piValue: SYSINT): HResult;
function Set_UpdateInterval(pfValue: Single): HResult;
function Get_UpdateInterval(out pfValue: Single): HResult;
function Set_DisplayType(peDisplayType: DisplayTypeConstants): HResult;
function Get_DisplayType(out peDisplayType: DisplayTypeConstants): HResult;
function Set_ManualUpdate(pbState: WordBool): HResult;
function Get_ManualUpdate(out pbState: WordBool): HResult;
function Set_GraphTitle(const pbsTitle: WideString): HResult;
function Get_GraphTitle(out pbsTitle: WideString): HResult;
function Set_YAxisLabel(const pbsTitle: WideString): HResult;
function Get_YAxisLabel(out pbsTitle: WideString): HResult;
function Get_BackColorCtl(out pColor: OLE_COLOR): HResult;
function Set_BackColorCtl(pColor: OLE_COLOR): HResult;
function Set_LogFileName(const bsFileName: WideString): HResult;
function Get_LogFileName(out bsFileName: WideString): HResult;
function Set_LogViewStart(StartTime: TDateTime): HResult;
function Get_LogViewStart(out StartTime: TDateTime): HResult;
function Set_LogViewStop(StopTime: TDateTime): HResult;
function Get_LogViewStop(out StopTime: TDateTime): HResult;
function Get_GridColor(out pColor: OLE_COLOR): HResult;
function Set_GridColor(pColor: OLE_COLOR): HResult;
function Get_TimeBarColor(out pColor: OLE_COLOR): HResult;
function Set_TimeBarColor(pColor: OLE_COLOR): HResult;
function Get_Highlight(out pbState: WordBool): HResult;
function Set_Highlight(pbState: WordBool): HResult;
function Get_ShowToolbar(out pbState: WordBool): HResult;
function Set_ShowToolbar(pbState: WordBool): HResult;
function Set_ReadOnly(pbState: WordBool): HResult;
function Get_ReadOnly(out pbState: WordBool): HResult;
function Set_ReportValueType(peReportValueType: ReportValueTypeConstants): HResult;
function Get_ReportValueType(out peReportValueType: ReportValueTypeConstants): HResult;
function Set_MonitorDuplicateInstances(pbState: WordBool): HResult;
function Get_MonitorDuplicateInstances(out pbState: WordBool): HResult;
function Set_DisplayFilter(piValue: SYSINT): HResult;
function Get_DisplayFilter(out piValue: SYSINT): HResult;
function Get_LogFiles(out ppILogFiles: ILogFiles): HResult;
function Set_DataSourceType(peDataSourceType: DataSourceTypeConstants): HResult;
function Get_DataSourceType(out peDataSourceType: DataSourceTypeConstants): HResult;
function Set_SqlDsnName(const bsSqlDsnName: WideString): HResult;
function Get_SqlDsnName(out bsSqlDsnName: WideString): HResult;
function Set_SqlLogSetName(const bsSqlLogSetName: WideString): HResult;
function Get_SqlLogSetName(out bsSqlLogSetName: WideString): HResult;
function Set_EnableDigitGrouping(pbState: WordBool): HResult;
function Get_EnableDigitGrouping(out pbState: WordBool): HResult;
function Set_EnableToolTips(pbState: WordBool): HResult;
function Get_EnableToolTips(out pbState: WordBool): HResult;
function Set_ShowTimeAxisLabels(pbState: WordBool): HResult;
function Get_ShowTimeAxisLabels(out pbState: WordBool): HResult;
function Set_ChartScroll(pbScroll: WordBool): HResult;
function Get_ChartScroll(out pbScroll: WordBool): HResult;
function Set_DataPointCount(piDataPointCount: SYSINT): HResult;
function Get_DataPointCount(out piDataPointCount: SYSINT): HResult;
function Get_LogSourceStartTime(out pDate: TDateTime): HResult;
function Get_LogSourceStopTime(out pDate: TDateTime): HResult;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: ISystemMonitor2);
procedure Disconnect; override;
function CollectSample: HResult;
function UpdateGraph: HResult;
function BrowseCounters: HResult;
function DisplayProperties: HResult;
function Counter(iIndex: SYSINT; out ppICounter: ICounterItem): HResult;
function AddCounter(const bsPath: WideString; out ppICounter: ICounterItem): HResult;
function DeleteCounter(const pCtr: ICounterItem): HResult;
function Paste: HResult;
function Copy: HResult;
function Reset: HResult;
function ScaleToFit(bSelectedCountersOnly: WordBool): HResult;
function SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType): HResult;
function Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType; iFilter: SYSINT): HResult;
function ClearData: HResult;
function SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime): HResult;
function GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime): HResult;
function BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason): HResult;
function LoadSettings(const bstrSettingFileName: WideString): HResult;
property DefaultInterface: ISystemMonitor2 read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TSystemMonitor2Properties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TSystemMonitor2
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TSystemMonitor2Properties = class(TPersistent)
private
FServer: TSystemMonitor2;
function GetDefaultInterface: ISystemMonitor2;
constructor Create(AServer: TSystemMonitor2);
protected
function Get_Appearance(out iAppearance: SYSINT): HResult;
function Set_Appearance(iAppearance: SYSINT): HResult;
function Get_BackColor(out pColor: OLE_COLOR): HResult;
function Set_BackColor(pColor: OLE_COLOR): HResult;
function Get_BorderStyle(out iBorderStyle: SYSINT): HResult;
function Set_BorderStyle(iBorderStyle: SYSINT): HResult;
function Get_ForeColor(out pColor: OLE_COLOR): HResult;
function Set_ForeColor(pColor: OLE_COLOR): HResult;
function Get_Font(out ppFont: IFontDisp): HResult;
function _Set_Font(const ppFont: IFontDisp): HResult;
function Get_Counters(out ppICounters: ICounters): HResult;
function Set_ShowVerticalGrid(pbState: WordBool): HResult;
function Get_ShowVerticalGrid(out pbState: WordBool): HResult;
function Set_ShowHorizontalGrid(pbState: WordBool): HResult;
function Get_ShowHorizontalGrid(out pbState: WordBool): HResult;
function Set_ShowLegend(pbState: WordBool): HResult;
function Get_ShowLegend(out pbState: WordBool): HResult;
function Set_ShowScaleLabels(pbState: WordBool): HResult;
function Get_ShowScaleLabels(out pbState: WordBool): HResult;
function Set_ShowValueBar(pbState: WordBool): HResult;
function Get_ShowValueBar(out pbState: WordBool): HResult;
function Set_MaximumScale(piValue: SYSINT): HResult;
function Get_MaximumScale(out piValue: SYSINT): HResult;
function Set_MinimumScale(piValue: SYSINT): HResult;
function Get_MinimumScale(out piValue: SYSINT): HResult;
function Set_UpdateInterval(pfValue: Single): HResult;
function Get_UpdateInterval(out pfValue: Single): HResult;
function Set_DisplayType(peDisplayType: DisplayTypeConstants): HResult;
function Get_DisplayType(out peDisplayType: DisplayTypeConstants): HResult;
function Set_ManualUpdate(pbState: WordBool): HResult;
function Get_ManualUpdate(out pbState: WordBool): HResult;
function Set_GraphTitle(const pbsTitle: WideString): HResult;
function Get_GraphTitle(out pbsTitle: WideString): HResult;
function Set_YAxisLabel(const pbsTitle: WideString): HResult;
function Get_YAxisLabel(out pbsTitle: WideString): HResult;
function Get_BackColorCtl(out pColor: OLE_COLOR): HResult;
function Set_BackColorCtl(pColor: OLE_COLOR): HResult;
function Set_LogFileName(const bsFileName: WideString): HResult;
function Get_LogFileName(out bsFileName: WideString): HResult;
function Set_LogViewStart(StartTime: TDateTime): HResult;
function Get_LogViewStart(out StartTime: TDateTime): HResult;
function Set_LogViewStop(StopTime: TDateTime): HResult;
function Get_LogViewStop(out StopTime: TDateTime): HResult;
function Get_GridColor(out pColor: OLE_COLOR): HResult;
function Set_GridColor(pColor: OLE_COLOR): HResult;
function Get_TimeBarColor(out pColor: OLE_COLOR): HResult;
function Set_TimeBarColor(pColor: OLE_COLOR): HResult;
function Get_Highlight(out pbState: WordBool): HResult;
function Set_Highlight(pbState: WordBool): HResult;
function Get_ShowToolbar(out pbState: WordBool): HResult;
function Set_ShowToolbar(pbState: WordBool): HResult;
function Set_ReadOnly(pbState: WordBool): HResult;
function Get_ReadOnly(out pbState: WordBool): HResult;
function Set_ReportValueType(peReportValueType: ReportValueTypeConstants): HResult;
function Get_ReportValueType(out peReportValueType: ReportValueTypeConstants): HResult;
function Set_MonitorDuplicateInstances(pbState: WordBool): HResult;
function Get_MonitorDuplicateInstances(out pbState: WordBool): HResult;
function Set_DisplayFilter(piValue: SYSINT): HResult;
function Get_DisplayFilter(out piValue: SYSINT): HResult;
function Get_LogFiles(out ppILogFiles: ILogFiles): HResult;
function Set_DataSourceType(peDataSourceType: DataSourceTypeConstants): HResult;
function Get_DataSourceType(out peDataSourceType: DataSourceTypeConstants): HResult;
function Set_SqlDsnName(const bsSqlDsnName: WideString): HResult;
function Get_SqlDsnName(out bsSqlDsnName: WideString): HResult;
function Set_SqlLogSetName(const bsSqlLogSetName: WideString): HResult;
function Get_SqlLogSetName(out bsSqlLogSetName: WideString): HResult;
function Set_EnableDigitGrouping(pbState: WordBool): HResult;
function Get_EnableDigitGrouping(out pbState: WordBool): HResult;
function Set_EnableToolTips(pbState: WordBool): HResult;
function Get_EnableToolTips(out pbState: WordBool): HResult;
function Set_ShowTimeAxisLabels(pbState: WordBool): HResult;
function Get_ShowTimeAxisLabels(out pbState: WordBool): HResult;
function Set_ChartScroll(pbScroll: WordBool): HResult;
function Get_ChartScroll(out pbScroll: WordBool): HResult;
function Set_DataPointCount(piDataPointCount: SYSINT): HResult;
function Get_DataPointCount(out piDataPointCount: SYSINT): HResult;
function Get_LogSourceStartTime(out pDate: TDateTime): HResult;
function Get_LogSourceStopTime(out pDate: TDateTime): HResult;
public
property DefaultInterface: ISystemMonitor2 read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoAppearPropPage provides a Create and CreateRemote method to
// create instances of the default interface IPropertyPage2 exposed by
// the CoClass AppearPropPage. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoAppearPropPage = class
class function Create: IPropertyPage2;
class function CreateRemote(const MachineName: string): IPropertyPage2;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TAppearPropPage
// Help String :
// Default Interface: IPropertyPage2
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TAppearPropPageProperties= class;
{$ENDIF}
TAppearPropPage = class(TOleServer)
private
FIntf: IPropertyPage2;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TAppearPropPageProperties;
function GetServerProperties: TAppearPropPageProperties;
{$ENDIF}
function GetDefaultInterface: IPropertyPage2;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IPropertyPage2);
procedure Disconnect; override;
function SetPageSite(const pPageSite: IPropertyPageSite): HResult;
function Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
function Deactivate: HResult;
function GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
function SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
function Show(nCmdShow: SYSUINT): HResult;
function Move(var pRect: RECT): HResult;
function IsPageDirty: HResult;
function Apply: HResult;
function Help(pszHelpDir: PWideChar): HResult;
function TranslateAccelerator(var pMsg: MSG): HResult;
function EditProperty(dispID: Integer): HResult;
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TAppearPropPageProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TAppearPropPage
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TAppearPropPageProperties = class(TPersistent)
private
FServer: TAppearPropPage;
function GetDefaultInterface: IPropertyPage2;
constructor Create(AServer: TAppearPropPage);
protected
public
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoGeneralPropPage provides a Create and CreateRemote method to
// create instances of the default interface IPropertyPage2 exposed by
// the CoClass GeneralPropPage. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoGeneralPropPage = class
class function Create: IPropertyPage2;
class function CreateRemote(const MachineName: string): IPropertyPage2;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TGeneralPropPage
// Help String :
// Default Interface: IPropertyPage2
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TGeneralPropPageProperties= class;
{$ENDIF}
TGeneralPropPage = class(TOleServer)
private
FIntf: IPropertyPage2;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TGeneralPropPageProperties;
function GetServerProperties: TGeneralPropPageProperties;
{$ENDIF}
function GetDefaultInterface: IPropertyPage2;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IPropertyPage2);
procedure Disconnect; override;
function SetPageSite(const pPageSite: IPropertyPageSite): HResult;
function Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
function Deactivate: HResult;
function GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
function SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
function Show(nCmdShow: SYSUINT): HResult;
function Move(var pRect: RECT): HResult;
function IsPageDirty: HResult;
function Apply: HResult;
function Help(pszHelpDir: PWideChar): HResult;
function TranslateAccelerator(var pMsg: MSG): HResult;
function EditProperty(dispID: Integer): HResult;
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TGeneralPropPageProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TGeneralPropPage
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TGeneralPropPageProperties = class(TPersistent)
private
FServer: TGeneralPropPage;
function GetDefaultInterface: IPropertyPage2;
constructor Create(AServer: TGeneralPropPage);
protected
public
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoGraphPropPage provides a Create and CreateRemote method to
// create instances of the default interface IPropertyPage2 exposed by
// the CoClass GraphPropPage. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoGraphPropPage = class
class function Create: IPropertyPage2;
class function CreateRemote(const MachineName: string): IPropertyPage2;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TGraphPropPage
// Help String :
// Default Interface: IPropertyPage2
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TGraphPropPageProperties= class;
{$ENDIF}
TGraphPropPage = class(TOleServer)
private
FIntf: IPropertyPage2;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TGraphPropPageProperties;
function GetServerProperties: TGraphPropPageProperties;
{$ENDIF}
function GetDefaultInterface: IPropertyPage2;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IPropertyPage2);
procedure Disconnect; override;
function SetPageSite(const pPageSite: IPropertyPageSite): HResult;
function Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
function Deactivate: HResult;
function GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
function SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
function Show(nCmdShow: SYSUINT): HResult;
function Move(var pRect: RECT): HResult;
function IsPageDirty: HResult;
function Apply: HResult;
function Help(pszHelpDir: PWideChar): HResult;
function TranslateAccelerator(var pMsg: MSG): HResult;
function EditProperty(dispID: Integer): HResult;
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TGraphPropPageProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TGraphPropPage
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TGraphPropPageProperties = class(TPersistent)
private
FServer: TGraphPropPage;
function GetDefaultInterface: IPropertyPage2;
constructor Create(AServer: TGraphPropPage);
protected
public
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoSourcePropPage provides a Create and CreateRemote method to
// create instances of the default interface IPropertyPage2 exposed by
// the CoClass SourcePropPage. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoSourcePropPage = class
class function Create: IPropertyPage2;
class function CreateRemote(const MachineName: string): IPropertyPage2;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TSourcePropPage
// Help String :
// Default Interface: IPropertyPage2
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TSourcePropPageProperties= class;
{$ENDIF}
TSourcePropPage = class(TOleServer)
private
FIntf: IPropertyPage2;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TSourcePropPageProperties;
function GetServerProperties: TSourcePropPageProperties;
{$ENDIF}
function GetDefaultInterface: IPropertyPage2;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IPropertyPage2);
procedure Disconnect; override;
function SetPageSite(const pPageSite: IPropertyPageSite): HResult;
function Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
function Deactivate: HResult;
function GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
function SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
function Show(nCmdShow: SYSUINT): HResult;
function Move(var pRect: RECT): HResult;
function IsPageDirty: HResult;
function Apply: HResult;
function Help(pszHelpDir: PWideChar): HResult;
function TranslateAccelerator(var pMsg: MSG): HResult;
function EditProperty(dispID: Integer): HResult;
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TSourcePropPageProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TSourcePropPage
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TSourcePropPageProperties = class(TPersistent)
private
FServer: TSourcePropPage;
function GetDefaultInterface: IPropertyPage2;
constructor Create(AServer: TSourcePropPage);
protected
public
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoCounterPropPage provides a Create and CreateRemote method to
// create instances of the default interface IPropertyPage2 exposed by
// the CoClass CounterPropPage. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCounterPropPage = class
class function Create: IPropertyPage2;
class function CreateRemote(const MachineName: string): IPropertyPage2;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCounterPropPage
// Help String :
// Default Interface: IPropertyPage2
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCounterPropPageProperties= class;
{$ENDIF}
TCounterPropPage = class(TOleServer)
private
FIntf: IPropertyPage2;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCounterPropPageProperties;
function GetServerProperties: TCounterPropPageProperties;
{$ENDIF}
function GetDefaultInterface: IPropertyPage2;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IPropertyPage2);
procedure Disconnect; override;
function SetPageSite(const pPageSite: IPropertyPageSite): HResult;
function Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
function Deactivate: HResult;
function GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
function SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
function Show(nCmdShow: SYSUINT): HResult;
function Move(var pRect: RECT): HResult;
function IsPageDirty: HResult;
function Apply: HResult;
function Help(pszHelpDir: PWideChar): HResult;
function TranslateAccelerator(var pMsg: MSG): HResult;
function EditProperty(dispID: Integer): HResult;
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCounterPropPageProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCounterPropPage
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCounterPropPageProperties = class(TPersistent)
private
FServer: TCounterPropPage;
function GetDefaultInterface: IPropertyPage2;
constructor Create(AServer: TCounterPropPage);
protected
public
property DefaultInterface: IPropertyPage2 read GetDefaultInterface;
published
end;
{$ENDIF}
procedure Register;
resourcestring
dtlServerPage = 'CustomActiveX';
dtlOcxPage = 'CustomActiveX';
implementation
uses ComObj;
procedure TSystemMonitor_.InitControlData;
const
CEventDispIDs: array [0..4] of DWORD = (
$00000001, $00000002, $00000003, $00000004, $00000005);
CTFontIDs: array [0..0] of DWORD = (
$FFFFFE00);
CControlData: TControlData2 = (
ClassID: '{C4D2D8E0-D1DD-11CE-940F-008029004347}';
EventIID: '{84979930-4AB3-11CF-943A-008029004347}';
EventCount: 5;
EventDispIDs: @CEventDispIDs;
LicenseKey: nil (*HR:$80004002*);
Flags: $00000007;
Version: 401;
FontCount: 1;
FontIDs: @CTFontIDs);
begin
ControlData := @CControlData;
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnCounterSelected) - Cardinal(Self);
end;
procedure TSystemMonitor_.CreateControl;
procedure DoCreate;
begin
FIntf := IUnknown(OleObject) as DISystemMonitor;
end;
begin
if FIntf = nil then DoCreate;
end;
function TSystemMonitor_.GetControlInterface: DISystemMonitor;
begin
CreateControl;
Result := FIntf;
end;
function TSystemMonitor_.Get_Counters: ICounters;
begin
Result := DefaultInterface.Counters;
end;
function TSystemMonitor_.Get_LogFiles: ILogFiles;
begin
Result := DefaultInterface.LogFiles;
end;
procedure TSystemMonitor_.CollectSample;
begin
DefaultInterface.CollectSample;
end;
procedure TSystemMonitor_.UpdateGraph;
begin
DefaultInterface.UpdateGraph;
end;
procedure TSystemMonitor_.BrowseCounters;
begin
DefaultInterface.BrowseCounters;
end;
procedure TSystemMonitor_.DisplayProperties;
begin
DefaultInterface.DisplayProperties;
end;
procedure TSystemMonitor_.Counter(iIndex: SYSINT; out ppICounter: ICounterItem);
begin
DefaultInterface.Counter(iIndex, ppICounter);
end;
procedure TSystemMonitor_.AddCounter(const bsPath: WideString; out ppICounter: ICounterItem);
begin
DefaultInterface.AddCounter(bsPath, ppICounter);
end;
procedure TSystemMonitor_.DeleteCounter(const pCtr: ICounterItem);
begin
DefaultInterface.DeleteCounter(pCtr);
end;
procedure TSystemMonitor_.Paste;
begin
DefaultInterface.Paste;
end;
procedure TSystemMonitor_.Copy;
begin
DefaultInterface.Copy;
end;
procedure TSystemMonitor_.Reset;
begin
DefaultInterface.Reset;
end;
procedure TSystemMonitor_.ScaleToFit(bSelectedCountersOnly: WordBool);
begin
DefaultInterface.ScaleToFit(bSelectedCountersOnly);
end;
procedure TSystemMonitor_.SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType);
begin
DefaultInterface.SaveAs(bstrFileName, eSysmonFileType);
end;
procedure TSystemMonitor_.Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType;
iFilter: SYSINT);
begin
DefaultInterface.Relog(bstrFileName, eSysmonFileType, iFilter);
end;
procedure TSystemMonitor_.ClearData;
begin
DefaultInterface.ClearData;
end;
procedure TSystemMonitor_.SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime);
begin
DefaultInterface.SetLogViewRange(StartTime, StopTime);
end;
procedure TSystemMonitor_.GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime);
begin
DefaultInterface.GetLogViewRange(StartTime, StopTime);
end;
procedure TSystemMonitor_.BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason);
begin
DefaultInterface.BatchingLock(fLock, eBatchReason);
end;
procedure TSystemMonitor_.LoadSettings(const bstrSettingFileName: WideString);
begin
DefaultInterface.LoadSettings(bstrSettingFileName);
end;
procedure TCounterItem.InitControlData;
const
CControlData: TControlData2 = (
ClassID: '{C4D2D8E0-D1DD-11CE-940F-008029004348}';
EventIID: '';
EventCount: 0;
EventDispIDs: nil;
LicenseKey: nil (*HR:$80040154*);
Flags: $00000000;
Version: 401);
begin
ControlData := @CControlData;
end;
procedure TCounterItem.CreateControl;
procedure DoCreate;
begin
FIntf := IUnknown(OleObject) as DICounterItem;
end;
begin
if FIntf = nil then DoCreate;
end;
function TCounterItem.GetControlInterface: DICounterItem;
begin
CreateControl;
Result := FIntf;
end;
procedure TCounterItem.GetValue(out Value: Double; out Status: Integer);
begin
DefaultInterface.GetValue(Value, Status);
end;
procedure TCounterItem.GetStatistics(out Max: Double; out Min: Double; out Avg: Double;
out Status: Integer);
begin
DefaultInterface.GetStatistics(Max, Min, Avg, Status);
end;
procedure TCounterItem.GetDataAt(iIndex: SYSINT; iWhich: SysmonDataType; out pVariant: OleVariant);
begin
DefaultInterface.GetDataAt(iIndex, iWhich, pVariant);
end;
class function CoCounters.Create: ICounters;
begin
Result := CreateComObject(CLASS_Counters) as ICounters;
end;
class function CoCounters.CreateRemote(const MachineName: string): ICounters;
begin
Result := CreateRemoteComObject(MachineName, CLASS_Counters) as ICounters;
end;
procedure TCounters.InitServerData;
const
CServerData: TServerData = (
ClassID: '{B2B066D2-2AAC-11CF-942F-008029004347}';
IntfIID: '{79167962-28FC-11CF-942F-008029004347}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TCounters.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as ICounters;
end;
end;
procedure TCounters.ConnectTo(svrIntf: ICounters);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCounters.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCounters.GetDefaultInterface: ICounters;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TCounters.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TCountersProperties.Create(Self);
{$ENDIF}
end;
destructor TCounters.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCounters.GetServerProperties: TCountersProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TCounters.Get_Count: Integer;
begin
Result := DefaultInterface.Count;
end;
function TCounters.Get_Item(index: OleVariant): DICounterItem;
begin
Result := DefaultInterface.Item[index];
end;
function TCounters.Add(const pathname: WideString): DICounterItem;
begin
Result := DefaultInterface.Add(pathname);
end;
procedure TCounters.Remove(index: OleVariant);
begin
DefaultInterface.Remove(index);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TCountersProperties.Create(AServer: TCounters);
begin
inherited Create;
FServer := AServer;
end;
function TCountersProperties.GetDefaultInterface: ICounters;
begin
Result := FServer.DefaultInterface;
end;
function TCountersProperties.Get_Count: Integer;
begin
Result := DefaultInterface.Count;
end;
function TCountersProperties.Get_Item(index: OleVariant): DICounterItem;
begin
Result := DefaultInterface.Item[index];
end;
{$ENDIF}
procedure TLogFileItem.InitControlData;
const
CControlData: TControlData2 = (
ClassID: '{16EC5BE8-DF93-4237-94E4-9EE918111D71}';
EventIID: '';
EventCount: 0;
EventDispIDs: nil;
LicenseKey: nil (*HR:$80040154*);
Flags: $00000000;
Version: 401);
begin
ControlData := @CControlData;
end;
procedure TLogFileItem.CreateControl;
procedure DoCreate;
begin
FIntf := IUnknown(OleObject) as DILogFileItem;
end;
begin
if FIntf = nil then DoCreate;
end;
function TLogFileItem.GetControlInterface: DILogFileItem;
begin
CreateControl;
Result := FIntf;
end;
class function CoLogFiles.Create: ILogFiles;
begin
Result := CreateComObject(CLASS_LogFiles) as ILogFiles;
end;
class function CoLogFiles.CreateRemote(const MachineName: string): ILogFiles;
begin
Result := CreateRemoteComObject(MachineName, CLASS_LogFiles) as ILogFiles;
end;
procedure TLogFiles.InitServerData;
const
CServerData: TServerData = (
ClassID: '{2735D9FD-F6B9-4F19-A5D9-E2D068584BC5}';
IntfIID: '{6A2A97E6-6851-41EA-87AD-2A8225335865}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TLogFiles.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as ILogFiles;
end;
end;
procedure TLogFiles.ConnectTo(svrIntf: ILogFiles);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TLogFiles.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TLogFiles.GetDefaultInterface: ILogFiles;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TLogFiles.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TLogFilesProperties.Create(Self);
{$ENDIF}
end;
destructor TLogFiles.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TLogFiles.GetServerProperties: TLogFilesProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TLogFiles.Get_Count: Integer;
begin
Result := DefaultInterface.Count;
end;
function TLogFiles.Get_Item(index: OleVariant): DILogFileItem;
begin
Result := DefaultInterface.Item[index];
end;
function TLogFiles.Add(const pathname: WideString): DILogFileItem;
begin
Result := DefaultInterface.Add(pathname);
end;
procedure TLogFiles.Remove(index: OleVariant);
begin
DefaultInterface.Remove(index);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TLogFilesProperties.Create(AServer: TLogFiles);
begin
inherited Create;
FServer := AServer;
end;
function TLogFilesProperties.GetDefaultInterface: ILogFiles;
begin
Result := FServer.DefaultInterface;
end;
function TLogFilesProperties.Get_Count: Integer;
begin
Result := DefaultInterface.Count;
end;
function TLogFilesProperties.Get_Item(index: OleVariant): DILogFileItem;
begin
Result := DefaultInterface.Item[index];
end;
{$ENDIF}
class function CoCounterItem2.Create: ICounterItem2;
begin
Result := CreateComObject(CLASS_CounterItem2) as ICounterItem2;
end;
class function CoCounterItem2.CreateRemote(const MachineName: string): ICounterItem2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_CounterItem2) as ICounterItem2;
end;
procedure TCounterItem2.InitServerData;
const
CServerData: TServerData = (
ClassID: '{43196C62-C31F-4CE3-A02E-79EFE0F6A525}';
IntfIID: '{EEFCD4E1-EA1C-4435-B7F4-E341BA03B4F9}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TCounterItem2.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as ICounterItem2;
end;
end;
procedure TCounterItem2.ConnectTo(svrIntf: ICounterItem2);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCounterItem2.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCounterItem2.GetDefaultInterface: ICounterItem2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TCounterItem2.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TCounterItem2Properties.Create(Self);
{$ENDIF}
end;
destructor TCounterItem2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCounterItem2.GetServerProperties: TCounterItem2Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TCounterItem2.Get_Value(out pdblValue: Double): HResult;
begin
Result := DefaultInterface.Get_Value(pdblValue);
end;
function TCounterItem2.Set_Color(pColor: OLE_COLOR): HResult;
{ Warning: The property Color has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Color := pColor;
Result := S_OK;
end;
function TCounterItem2.Get_Color(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Color;
end;
function TCounterItem2.Set_Width(piValue: SYSINT): HResult;
{ Warning: The property Width has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Width := piValue;
Result := S_OK;
end;
function TCounterItem2.Get_Width(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Width;
end;
function TCounterItem2.Set_LineStyle(piValue: SYSINT): HResult;
{ Warning: The property LineStyle has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LineStyle := piValue;
Result := S_OK;
end;
function TCounterItem2.Get_LineStyle(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LineStyle;
end;
function TCounterItem2.Set_ScaleFactor(piValue: SYSINT): HResult;
{ Warning: The property ScaleFactor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ScaleFactor := piValue;
Result := S_OK;
end;
function TCounterItem2.Get_ScaleFactor(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ScaleFactor;
end;
function TCounterItem2.Get_Path(out pstrValue: WideString): HResult;
begin
Result := DefaultInterface.Get_Path(pstrValue);
end;
function TCounterItem2.Set_Selected(pbState: WordBool): HResult;
{ Warning: The property Selected has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Selected := pbState;
Result := S_OK;
end;
function TCounterItem2.Get_Selected(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Selected;
end;
function TCounterItem2.Set_Visible(pbState: WordBool): HResult;
{ Warning: The property Visible has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Visible := pbState;
Result := S_OK;
end;
function TCounterItem2.Get_Visible(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Visible;
end;
function TCounterItem2.GetValue(out Value: Double; out Status: Integer): HResult;
begin
Result := DefaultInterface.GetValue(Value, Status);
end;
function TCounterItem2.GetStatistics(out Max: Double; out Min: Double; out Avg: Double;
out Status: Integer): HResult;
begin
Result := DefaultInterface.GetStatistics(Max, Min, Avg, Status);
end;
function TCounterItem2.GetDataAt(iIndex: SYSINT; iWhich: SysmonDataType; out pVariant: OleVariant): HResult;
begin
Result := DefaultInterface.GetDataAt(iIndex, iWhich, pVariant);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TCounterItem2Properties.Create(AServer: TCounterItem2);
begin
inherited Create;
FServer := AServer;
end;
function TCounterItem2Properties.GetDefaultInterface: ICounterItem2;
begin
Result := FServer.DefaultInterface;
end;
function TCounterItem2Properties.Get_Value(out pdblValue: Double): HResult;
begin
Result := DefaultInterface.Get_Value(pdblValue);
end;
function TCounterItem2Properties.Set_Color(pColor: OLE_COLOR): HResult;
{ Warning: The property Color has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Color := pColor;
Result := S_OK;
end;
function TCounterItem2Properties.Get_Color(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Color;
end;
function TCounterItem2Properties.Set_Width(piValue: SYSINT): HResult;
{ Warning: The property Width has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Width := piValue;
Result := S_OK;
end;
function TCounterItem2Properties.Get_Width(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Width;
end;
function TCounterItem2Properties.Set_LineStyle(piValue: SYSINT): HResult;
{ Warning: The property LineStyle has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LineStyle := piValue;
Result := S_OK;
end;
function TCounterItem2Properties.Get_LineStyle(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LineStyle;
end;
function TCounterItem2Properties.Set_ScaleFactor(piValue: SYSINT): HResult;
{ Warning: The property ScaleFactor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ScaleFactor := piValue;
Result := S_OK;
end;
function TCounterItem2Properties.Get_ScaleFactor(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ScaleFactor;
end;
function TCounterItem2Properties.Get_Path(out pstrValue: WideString): HResult;
begin
Result := DefaultInterface.Get_Path(pstrValue);
end;
function TCounterItem2Properties.Set_Selected(pbState: WordBool): HResult;
{ Warning: The property Selected has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Selected := pbState;
Result := S_OK;
end;
function TCounterItem2Properties.Get_Selected(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Selected;
end;
function TCounterItem2Properties.Set_Visible(pbState: WordBool): HResult;
{ Warning: The property Visible has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Visible := pbState;
Result := S_OK;
end;
function TCounterItem2Properties.Get_Visible(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Visible;
end;
{$ENDIF}
class function CoSystemMonitor2.Create: ISystemMonitor2;
begin
Result := CreateComObject(CLASS_SystemMonitor2) as ISystemMonitor2;
end;
class function CoSystemMonitor2.CreateRemote(const MachineName: string): ISystemMonitor2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_SystemMonitor2) as ISystemMonitor2;
end;
procedure TSystemMonitor2.InitServerData;
const
CServerData: TServerData = (
ClassID: '{7F30578C-5F38-4612-ACFE-6ED04C7B7AF8}';
IntfIID: '{08E3206A-5FD2-4FDE-A8A5-8CB3B63D2677}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TSystemMonitor2.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as ISystemMonitor2;
end;
end;
procedure TSystemMonitor2.ConnectTo(svrIntf: ISystemMonitor2);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TSystemMonitor2.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TSystemMonitor2.GetDefaultInterface: ISystemMonitor2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TSystemMonitor2.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TSystemMonitor2Properties.Create(Self);
{$ENDIF}
end;
destructor TSystemMonitor2.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSystemMonitor2.GetServerProperties: TSystemMonitor2Properties;
begin
Result := FProps;
end;
{$ENDIF}
function TSystemMonitor2.Get_Appearance(out iAppearance: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Appearance;
end;
function TSystemMonitor2.Set_Appearance(iAppearance: SYSINT): HResult;
{ Warning: The property Appearance has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Appearance := iAppearance;
Result := S_OK;
end;
function TSystemMonitor2.Get_BackColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.BackColor;
end;
function TSystemMonitor2.Set_BackColor(pColor: OLE_COLOR): HResult;
{ Warning: The property BackColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.BackColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2.Get_BorderStyle(out iBorderStyle: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.BorderStyle;
end;
function TSystemMonitor2.Set_BorderStyle(iBorderStyle: SYSINT): HResult;
{ Warning: The property BorderStyle has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.BorderStyle := iBorderStyle;
Result := S_OK;
end;
function TSystemMonitor2.Get_ForeColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ForeColor;
end;
function TSystemMonitor2.Set_ForeColor(pColor: OLE_COLOR): HResult;
{ Warning: The property ForeColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ForeColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2.Get_Font(out ppFont: IFontDisp): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Font;
end;
function TSystemMonitor2._Set_Font(const ppFont: IFontDisp): HResult;
{ Warning: The property Font has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Font := ppFont;
Result := S_OK;
end;
function TSystemMonitor2.Get_Counters(out ppICounters: ICounters): HResult;
begin
Result := DefaultInterface.Get_Counters(ppICounters);
end;
function TSystemMonitor2.Set_ShowVerticalGrid(pbState: WordBool): HResult;
{ Warning: The property ShowVerticalGrid has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowVerticalGrid := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ShowVerticalGrid(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowVerticalGrid;
end;
function TSystemMonitor2.Set_ShowHorizontalGrid(pbState: WordBool): HResult;
{ Warning: The property ShowHorizontalGrid has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowHorizontalGrid := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ShowHorizontalGrid(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowHorizontalGrid;
end;
function TSystemMonitor2.Set_ShowLegend(pbState: WordBool): HResult;
{ Warning: The property ShowLegend has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowLegend := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ShowLegend(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowLegend;
end;
function TSystemMonitor2.Set_ShowScaleLabels(pbState: WordBool): HResult;
{ Warning: The property ShowScaleLabels has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowScaleLabels := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ShowScaleLabels(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowScaleLabels;
end;
function TSystemMonitor2.Set_ShowValueBar(pbState: WordBool): HResult;
{ Warning: The property ShowValueBar has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowValueBar := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ShowValueBar(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowValueBar;
end;
function TSystemMonitor2.Set_MaximumScale(piValue: SYSINT): HResult;
{ Warning: The property MaximumScale has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.MaximumScale := piValue;
Result := S_OK;
end;
function TSystemMonitor2.Get_MaximumScale(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.MaximumScale;
end;
function TSystemMonitor2.Set_MinimumScale(piValue: SYSINT): HResult;
{ Warning: The property MinimumScale has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.MinimumScale := piValue;
Result := S_OK;
end;
function TSystemMonitor2.Get_MinimumScale(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.MinimumScale;
end;
function TSystemMonitor2.Set_UpdateInterval(pfValue: Single): HResult;
{ Warning: The property UpdateInterval has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.UpdateInterval := pfValue;
Result := S_OK;
end;
function TSystemMonitor2.Get_UpdateInterval(out pfValue: Single): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.UpdateInterval;
end;
function TSystemMonitor2.Set_DisplayType(peDisplayType: DisplayTypeConstants): HResult;
{ Warning: The property DisplayType has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DisplayType := peDisplayType;
Result := S_OK;
end;
function TSystemMonitor2.Get_DisplayType(out peDisplayType: DisplayTypeConstants): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DisplayType;
end;
function TSystemMonitor2.Set_ManualUpdate(pbState: WordBool): HResult;
{ Warning: The property ManualUpdate has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ManualUpdate := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ManualUpdate(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ManualUpdate;
end;
function TSystemMonitor2.Set_GraphTitle(const pbsTitle: WideString): HResult;
{ Warning: The property GraphTitle has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.GraphTitle := pbsTitle;
Result := S_OK;
end;
function TSystemMonitor2.Get_GraphTitle(out pbsTitle: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.GraphTitle;
end;
function TSystemMonitor2.Set_YAxisLabel(const pbsTitle: WideString): HResult;
{ Warning: The property YAxisLabel has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.YAxisLabel := pbsTitle;
Result := S_OK;
end;
function TSystemMonitor2.Get_YAxisLabel(out pbsTitle: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.YAxisLabel;
end;
function TSystemMonitor2.Get_BackColorCtl(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.BackColorCtl;
end;
function TSystemMonitor2.Set_BackColorCtl(pColor: OLE_COLOR): HResult;
{ Warning: The property BackColorCtl has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.BackColorCtl := pColor;
Result := S_OK;
end;
function TSystemMonitor2.Set_LogFileName(const bsFileName: WideString): HResult;
{ Warning: The property LogFileName has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LogFileName := bsFileName;
Result := S_OK;
end;
function TSystemMonitor2.Get_LogFileName(out bsFileName: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LogFileName;
end;
function TSystemMonitor2.Set_LogViewStart(StartTime: TDateTime): HResult;
{ Warning: The property LogViewStart has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LogViewStart := StartTime;
Result := S_OK;
end;
function TSystemMonitor2.Get_LogViewStart(out StartTime: TDateTime): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LogViewStart;
end;
function TSystemMonitor2.Set_LogViewStop(StopTime: TDateTime): HResult;
{ Warning: The property LogViewStop has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LogViewStop := StopTime;
Result := S_OK;
end;
function TSystemMonitor2.Get_LogViewStop(out StopTime: TDateTime): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LogViewStop;
end;
function TSystemMonitor2.Get_GridColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.GridColor;
end;
function TSystemMonitor2.Set_GridColor(pColor: OLE_COLOR): HResult;
{ Warning: The property GridColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.GridColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2.Get_TimeBarColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.TimeBarColor;
end;
function TSystemMonitor2.Set_TimeBarColor(pColor: OLE_COLOR): HResult;
{ Warning: The property TimeBarColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.TimeBarColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2.Get_Highlight(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Highlight;
end;
function TSystemMonitor2.Set_Highlight(pbState: WordBool): HResult;
{ Warning: The property Highlight has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Highlight := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ShowToolbar(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowToolbar;
end;
function TSystemMonitor2.Set_ShowToolbar(pbState: WordBool): HResult;
{ Warning: The property ShowToolbar has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowToolbar := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Set_ReadOnly(pbState: WordBool): HResult;
{ Warning: The property ReadOnly has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ReadOnly := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ReadOnly(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ReadOnly;
end;
function TSystemMonitor2.Set_ReportValueType(peReportValueType: ReportValueTypeConstants): HResult;
{ Warning: The property ReportValueType has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ReportValueType := peReportValueType;
Result := S_OK;
end;
function TSystemMonitor2.Get_ReportValueType(out peReportValueType: ReportValueTypeConstants): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ReportValueType;
end;
function TSystemMonitor2.Set_MonitorDuplicateInstances(pbState: WordBool): HResult;
{ Warning: The property MonitorDuplicateInstances has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.MonitorDuplicateInstances := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_MonitorDuplicateInstances(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.MonitorDuplicateInstances;
end;
function TSystemMonitor2.Set_DisplayFilter(piValue: SYSINT): HResult;
{ Warning: The property DisplayFilter has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DisplayFilter := piValue;
Result := S_OK;
end;
function TSystemMonitor2.Get_DisplayFilter(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DisplayFilter;
end;
function TSystemMonitor2.Get_LogFiles(out ppILogFiles: ILogFiles): HResult;
begin
Result := DefaultInterface.Get_LogFiles(ppILogFiles);
end;
function TSystemMonitor2.Set_DataSourceType(peDataSourceType: DataSourceTypeConstants): HResult;
{ Warning: The property DataSourceType has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DataSourceType := peDataSourceType;
Result := S_OK;
end;
function TSystemMonitor2.Get_DataSourceType(out peDataSourceType: DataSourceTypeConstants): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DataSourceType;
end;
function TSystemMonitor2.Set_SqlDsnName(const bsSqlDsnName: WideString): HResult;
{ Warning: The property SqlDsnName has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.SqlDsnName := bsSqlDsnName;
Result := S_OK;
end;
function TSystemMonitor2.Get_SqlDsnName(out bsSqlDsnName: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.SqlDsnName;
end;
function TSystemMonitor2.Set_SqlLogSetName(const bsSqlLogSetName: WideString): HResult;
{ Warning: The property SqlLogSetName has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.SqlLogSetName := bsSqlLogSetName;
Result := S_OK;
end;
function TSystemMonitor2.Get_SqlLogSetName(out bsSqlLogSetName: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.SqlLogSetName;
end;
function TSystemMonitor2.Set_EnableDigitGrouping(pbState: WordBool): HResult;
{ Warning: The property EnableDigitGrouping has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.EnableDigitGrouping := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_EnableDigitGrouping(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.EnableDigitGrouping;
end;
function TSystemMonitor2.Set_EnableToolTips(pbState: WordBool): HResult;
{ Warning: The property EnableToolTips has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.EnableToolTips := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_EnableToolTips(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.EnableToolTips;
end;
function TSystemMonitor2.Set_ShowTimeAxisLabels(pbState: WordBool): HResult;
{ Warning: The property ShowTimeAxisLabels has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowTimeAxisLabels := pbState;
Result := S_OK;
end;
function TSystemMonitor2.Get_ShowTimeAxisLabels(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowTimeAxisLabels;
end;
function TSystemMonitor2.Set_ChartScroll(pbScroll: WordBool): HResult;
{ Warning: The property ChartScroll has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ChartScroll := pbScroll;
Result := S_OK;
end;
function TSystemMonitor2.Get_ChartScroll(out pbScroll: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ChartScroll;
end;
function TSystemMonitor2.Set_DataPointCount(piDataPointCount: SYSINT): HResult;
{ Warning: The property DataPointCount has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DataPointCount := piDataPointCount;
Result := S_OK;
end;
function TSystemMonitor2.Get_DataPointCount(out piDataPointCount: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DataPointCount;
end;
function TSystemMonitor2.Get_LogSourceStartTime(out pDate: TDateTime): HResult;
begin
Result := DefaultInterface.Get_LogSourceStartTime(pDate);
end;
function TSystemMonitor2.Get_LogSourceStopTime(out pDate: TDateTime): HResult;
begin
Result := DefaultInterface.Get_LogSourceStopTime(pDate);
end;
function TSystemMonitor2.CollectSample: HResult;
begin
Result := DefaultInterface.CollectSample;
end;
function TSystemMonitor2.UpdateGraph: HResult;
begin
Result := DefaultInterface.UpdateGraph;
end;
function TSystemMonitor2.BrowseCounters: HResult;
begin
Result := DefaultInterface.BrowseCounters;
end;
function TSystemMonitor2.DisplayProperties: HResult;
begin
Result := DefaultInterface.DisplayProperties;
end;
function TSystemMonitor2.Counter(iIndex: SYSINT; out ppICounter: ICounterItem): HResult;
begin
Result := DefaultInterface.Counter(iIndex, ppICounter);
end;
function TSystemMonitor2.AddCounter(const bsPath: WideString; out ppICounter: ICounterItem): HResult;
begin
Result := DefaultInterface.AddCounter(bsPath, ppICounter);
end;
function TSystemMonitor2.DeleteCounter(const pCtr: ICounterItem): HResult;
begin
Result := DefaultInterface.DeleteCounter(pCtr);
end;
function TSystemMonitor2.Paste: HResult;
begin
Result := DefaultInterface.Paste;
end;
function TSystemMonitor2.Copy: HResult;
begin
Result := DefaultInterface.Copy;
end;
function TSystemMonitor2.Reset: HResult;
begin
Result := DefaultInterface.Reset;
end;
function TSystemMonitor2.ScaleToFit(bSelectedCountersOnly: WordBool): HResult;
begin
Result := DefaultInterface.ScaleToFit(bSelectedCountersOnly);
end;
function TSystemMonitor2.SaveAs(const bstrFileName: WideString; eSysmonFileType: SysmonFileType): HResult;
begin
Result := DefaultInterface.SaveAs(bstrFileName, eSysmonFileType);
end;
function TSystemMonitor2.Relog(const bstrFileName: WideString; eSysmonFileType: SysmonFileType;
iFilter: SYSINT): HResult;
begin
Result := DefaultInterface.Relog(bstrFileName, eSysmonFileType, iFilter);
end;
function TSystemMonitor2.ClearData: HResult;
begin
Result := DefaultInterface.ClearData;
end;
function TSystemMonitor2.SetLogViewRange(StartTime: TDateTime; StopTime: TDateTime): HResult;
begin
Result := DefaultInterface.SetLogViewRange(StartTime, StopTime);
end;
function TSystemMonitor2.GetLogViewRange(out StartTime: TDateTime; out StopTime: TDateTime): HResult;
begin
Result := DefaultInterface.GetLogViewRange(StartTime, StopTime);
end;
function TSystemMonitor2.BatchingLock(fLock: WordBool; eBatchReason: SysmonBatchReason): HResult;
begin
Result := DefaultInterface.BatchingLock(fLock, eBatchReason);
end;
function TSystemMonitor2.LoadSettings(const bstrSettingFileName: WideString): HResult;
begin
Result := DefaultInterface.LoadSettings(bstrSettingFileName);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSystemMonitor2Properties.Create(AServer: TSystemMonitor2);
begin
inherited Create;
FServer := AServer;
end;
function TSystemMonitor2Properties.GetDefaultInterface: ISystemMonitor2;
begin
Result := FServer.DefaultInterface;
end;
function TSystemMonitor2Properties.Get_Appearance(out iAppearance: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Appearance;
end;
function TSystemMonitor2Properties.Set_Appearance(iAppearance: SYSINT): HResult;
{ Warning: The property Appearance has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Appearance := iAppearance;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_BackColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.BackColor;
end;
function TSystemMonitor2Properties.Set_BackColor(pColor: OLE_COLOR): HResult;
{ Warning: The property BackColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.BackColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_BorderStyle(out iBorderStyle: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.BorderStyle;
end;
function TSystemMonitor2Properties.Set_BorderStyle(iBorderStyle: SYSINT): HResult;
{ Warning: The property BorderStyle has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.BorderStyle := iBorderStyle;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ForeColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ForeColor;
end;
function TSystemMonitor2Properties.Set_ForeColor(pColor: OLE_COLOR): HResult;
{ Warning: The property ForeColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ForeColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_Font(out ppFont: IFontDisp): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Font;
end;
function TSystemMonitor2Properties._Set_Font(const ppFont: IFontDisp): HResult;
{ Warning: The property Font has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Font := ppFont;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_Counters(out ppICounters: ICounters): HResult;
begin
Result := DefaultInterface.Get_Counters(ppICounters);
end;
function TSystemMonitor2Properties.Set_ShowVerticalGrid(pbState: WordBool): HResult;
{ Warning: The property ShowVerticalGrid has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowVerticalGrid := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ShowVerticalGrid(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowVerticalGrid;
end;
function TSystemMonitor2Properties.Set_ShowHorizontalGrid(pbState: WordBool): HResult;
{ Warning: The property ShowHorizontalGrid has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowHorizontalGrid := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ShowHorizontalGrid(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowHorizontalGrid;
end;
function TSystemMonitor2Properties.Set_ShowLegend(pbState: WordBool): HResult;
{ Warning: The property ShowLegend has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowLegend := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ShowLegend(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowLegend;
end;
function TSystemMonitor2Properties.Set_ShowScaleLabels(pbState: WordBool): HResult;
{ Warning: The property ShowScaleLabels has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowScaleLabels := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ShowScaleLabels(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowScaleLabels;
end;
function TSystemMonitor2Properties.Set_ShowValueBar(pbState: WordBool): HResult;
{ Warning: The property ShowValueBar has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowValueBar := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ShowValueBar(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowValueBar;
end;
function TSystemMonitor2Properties.Set_MaximumScale(piValue: SYSINT): HResult;
{ Warning: The property MaximumScale has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.MaximumScale := piValue;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_MaximumScale(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.MaximumScale;
end;
function TSystemMonitor2Properties.Set_MinimumScale(piValue: SYSINT): HResult;
{ Warning: The property MinimumScale has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.MinimumScale := piValue;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_MinimumScale(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.MinimumScale;
end;
function TSystemMonitor2Properties.Set_UpdateInterval(pfValue: Single): HResult;
{ Warning: The property UpdateInterval has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.UpdateInterval := pfValue;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_UpdateInterval(out pfValue: Single): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.UpdateInterval;
end;
function TSystemMonitor2Properties.Set_DisplayType(peDisplayType: DisplayTypeConstants): HResult;
{ Warning: The property DisplayType has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DisplayType := peDisplayType;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_DisplayType(out peDisplayType: DisplayTypeConstants): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DisplayType;
end;
function TSystemMonitor2Properties.Set_ManualUpdate(pbState: WordBool): HResult;
{ Warning: The property ManualUpdate has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ManualUpdate := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ManualUpdate(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ManualUpdate;
end;
function TSystemMonitor2Properties.Set_GraphTitle(const pbsTitle: WideString): HResult;
{ Warning: The property GraphTitle has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.GraphTitle := pbsTitle;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_GraphTitle(out pbsTitle: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.GraphTitle;
end;
function TSystemMonitor2Properties.Set_YAxisLabel(const pbsTitle: WideString): HResult;
{ Warning: The property YAxisLabel has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.YAxisLabel := pbsTitle;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_YAxisLabel(out pbsTitle: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.YAxisLabel;
end;
function TSystemMonitor2Properties.Get_BackColorCtl(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.BackColorCtl;
end;
function TSystemMonitor2Properties.Set_BackColorCtl(pColor: OLE_COLOR): HResult;
{ Warning: The property BackColorCtl has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.BackColorCtl := pColor;
Result := S_OK;
end;
function TSystemMonitor2Properties.Set_LogFileName(const bsFileName: WideString): HResult;
{ Warning: The property LogFileName has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LogFileName := bsFileName;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_LogFileName(out bsFileName: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LogFileName;
end;
function TSystemMonitor2Properties.Set_LogViewStart(StartTime: TDateTime): HResult;
{ Warning: The property LogViewStart has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LogViewStart := StartTime;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_LogViewStart(out StartTime: TDateTime): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LogViewStart;
end;
function TSystemMonitor2Properties.Set_LogViewStop(StopTime: TDateTime): HResult;
{ Warning: The property LogViewStop has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.LogViewStop := StopTime;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_LogViewStop(out StopTime: TDateTime): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.LogViewStop;
end;
function TSystemMonitor2Properties.Get_GridColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.GridColor;
end;
function TSystemMonitor2Properties.Set_GridColor(pColor: OLE_COLOR): HResult;
{ Warning: The property GridColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.GridColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_TimeBarColor(out pColor: OLE_COLOR): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.TimeBarColor;
end;
function TSystemMonitor2Properties.Set_TimeBarColor(pColor: OLE_COLOR): HResult;
{ Warning: The property TimeBarColor has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.TimeBarColor := pColor;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_Highlight(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Highlight;
end;
function TSystemMonitor2Properties.Set_Highlight(pbState: WordBool): HResult;
{ Warning: The property Highlight has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.Highlight := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ShowToolbar(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowToolbar;
end;
function TSystemMonitor2Properties.Set_ShowToolbar(pbState: WordBool): HResult;
{ Warning: The property ShowToolbar has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowToolbar := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Set_ReadOnly(pbState: WordBool): HResult;
{ Warning: The property ReadOnly has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ReadOnly := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ReadOnly(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ReadOnly;
end;
function TSystemMonitor2Properties.Set_ReportValueType(peReportValueType: ReportValueTypeConstants): HResult;
{ Warning: The property ReportValueType has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ReportValueType := peReportValueType;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ReportValueType(out peReportValueType: ReportValueTypeConstants): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ReportValueType;
end;
function TSystemMonitor2Properties.Set_MonitorDuplicateInstances(pbState: WordBool): HResult;
{ Warning: The property MonitorDuplicateInstances has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.MonitorDuplicateInstances := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_MonitorDuplicateInstances(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.MonitorDuplicateInstances;
end;
function TSystemMonitor2Properties.Set_DisplayFilter(piValue: SYSINT): HResult;
{ Warning: The property DisplayFilter has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DisplayFilter := piValue;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_DisplayFilter(out piValue: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DisplayFilter;
end;
function TSystemMonitor2Properties.Get_LogFiles(out ppILogFiles: ILogFiles): HResult;
begin
Result := DefaultInterface.Get_LogFiles(ppILogFiles);
end;
function TSystemMonitor2Properties.Set_DataSourceType(peDataSourceType: DataSourceTypeConstants): HResult;
{ Warning: The property DataSourceType has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DataSourceType := peDataSourceType;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_DataSourceType(out peDataSourceType: DataSourceTypeConstants): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DataSourceType;
end;
function TSystemMonitor2Properties.Set_SqlDsnName(const bsSqlDsnName: WideString): HResult;
{ Warning: The property SqlDsnName has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.SqlDsnName := bsSqlDsnName;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_SqlDsnName(out bsSqlDsnName: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.SqlDsnName;
end;
function TSystemMonitor2Properties.Set_SqlLogSetName(const bsSqlLogSetName: WideString): HResult;
{ Warning: The property SqlLogSetName has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.SqlLogSetName := bsSqlLogSetName;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_SqlLogSetName(out bsSqlLogSetName: WideString): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.SqlLogSetName;
end;
function TSystemMonitor2Properties.Set_EnableDigitGrouping(pbState: WordBool): HResult;
{ Warning: The property EnableDigitGrouping has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.EnableDigitGrouping := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_EnableDigitGrouping(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.EnableDigitGrouping;
end;
function TSystemMonitor2Properties.Set_EnableToolTips(pbState: WordBool): HResult;
{ Warning: The property EnableToolTips has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.EnableToolTips := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_EnableToolTips(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.EnableToolTips;
end;
function TSystemMonitor2Properties.Set_ShowTimeAxisLabels(pbState: WordBool): HResult;
{ Warning: The property ShowTimeAxisLabels has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ShowTimeAxisLabels := pbState;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ShowTimeAxisLabels(out pbState: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ShowTimeAxisLabels;
end;
function TSystemMonitor2Properties.Set_ChartScroll(pbScroll: WordBool): HResult;
{ Warning: The property ChartScroll has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.ChartScroll := pbScroll;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_ChartScroll(out pbScroll: WordBool): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.ChartScroll;
end;
function TSystemMonitor2Properties.Set_DataPointCount(piDataPointCount: SYSINT): HResult;
{ Warning: The property DataPointCount has a setter and a getter whose
types do not match. Delphi was unable to generate a property of
this sort and so is using a Variant as a passthrough. }
var
InterfaceVariant: OleVariant;
begin
InterfaceVariant := DefaultInterface;
InterfaceVariant.DataPointCount := piDataPointCount;
Result := S_OK;
end;
function TSystemMonitor2Properties.Get_DataPointCount(out piDataPointCount: SYSINT): HResult;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.DataPointCount;
end;
function TSystemMonitor2Properties.Get_LogSourceStartTime(out pDate: TDateTime): HResult;
begin
Result := DefaultInterface.Get_LogSourceStartTime(pDate);
end;
function TSystemMonitor2Properties.Get_LogSourceStopTime(out pDate: TDateTime): HResult;
begin
Result := DefaultInterface.Get_LogSourceStopTime(pDate);
end;
{$ENDIF}
class function CoAppearPropPage.Create: IPropertyPage2;
begin
Result := CreateComObject(CLASS_AppearPropPage) as IPropertyPage2;
end;
class function CoAppearPropPage.CreateRemote(const MachineName: string): IPropertyPage2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_AppearPropPage) as IPropertyPage2;
end;
procedure TAppearPropPage.InitServerData;
const
CServerData: TServerData = (
ClassID: '{E49741E9-93A8-4AB1-8E96-BF4482282E9C}';
IntfIID: '{01E44665-24AC-101B-84ED-08002B2EC713}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TAppearPropPage.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IPropertyPage2;
end;
end;
procedure TAppearPropPage.ConnectTo(svrIntf: IPropertyPage2);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TAppearPropPage.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TAppearPropPage.GetDefaultInterface: IPropertyPage2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TAppearPropPage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TAppearPropPageProperties.Create(Self);
{$ENDIF}
end;
destructor TAppearPropPage.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TAppearPropPage.GetServerProperties: TAppearPropPageProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TAppearPropPage.SetPageSite(const pPageSite: IPropertyPageSite): HResult;
begin
Result := DefaultInterface.SetPageSite(pPageSite);
end;
function TAppearPropPage.Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
begin
Result := DefaultInterface.Activate(hWndParent, pRect, bModal);
end;
function TAppearPropPage.Deactivate: HResult;
begin
Result := DefaultInterface.Deactivate;
end;
function TAppearPropPage.GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
begin
Result := DefaultInterface.GetPageInfo(pPageInfo);
end;
function TAppearPropPage.SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
begin
Result := DefaultInterface.SetObjects(cObjects, ppUnk);
end;
function TAppearPropPage.Show(nCmdShow: SYSUINT): HResult;
begin
Result := DefaultInterface.Show(nCmdShow);
end;
function TAppearPropPage.Move(var pRect: RECT): HResult;
begin
Result := DefaultInterface.Move(pRect);
end;
function TAppearPropPage.IsPageDirty: HResult;
begin
Result := DefaultInterface.IsPageDirty;
end;
function TAppearPropPage.Apply: HResult;
begin
Result := DefaultInterface.Apply;
end;
function TAppearPropPage.Help(pszHelpDir: PWideChar): HResult;
begin
Result := DefaultInterface.Help(pszHelpDir);
end;
function TAppearPropPage.TranslateAccelerator(var pMsg: MSG): HResult;
begin
Result := DefaultInterface.TranslateAccelerator(pMsg);
end;
function TAppearPropPage.EditProperty(dispID: Integer): HResult;
begin
Result := DefaultInterface.EditProperty(dispID);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TAppearPropPageProperties.Create(AServer: TAppearPropPage);
begin
inherited Create;
FServer := AServer;
end;
function TAppearPropPageProperties.GetDefaultInterface: IPropertyPage2;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoGeneralPropPage.Create: IPropertyPage2;
begin
Result := CreateComObject(CLASS_GeneralPropPage) as IPropertyPage2;
end;
class function CoGeneralPropPage.CreateRemote(const MachineName: string): IPropertyPage2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_GeneralPropPage) as IPropertyPage2;
end;
procedure TGeneralPropPage.InitServerData;
const
CServerData: TServerData = (
ClassID: '{C3E5D3D2-1A03-11CF-942D-008029004347}';
IntfIID: '{01E44665-24AC-101B-84ED-08002B2EC713}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TGeneralPropPage.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IPropertyPage2;
end;
end;
procedure TGeneralPropPage.ConnectTo(svrIntf: IPropertyPage2);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TGeneralPropPage.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TGeneralPropPage.GetDefaultInterface: IPropertyPage2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TGeneralPropPage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TGeneralPropPageProperties.Create(Self);
{$ENDIF}
end;
destructor TGeneralPropPage.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TGeneralPropPage.GetServerProperties: TGeneralPropPageProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TGeneralPropPage.SetPageSite(const pPageSite: IPropertyPageSite): HResult;
begin
Result := DefaultInterface.SetPageSite(pPageSite);
end;
function TGeneralPropPage.Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
begin
Result := DefaultInterface.Activate(hWndParent, pRect, bModal);
end;
function TGeneralPropPage.Deactivate: HResult;
begin
Result := DefaultInterface.Deactivate;
end;
function TGeneralPropPage.GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
begin
Result := DefaultInterface.GetPageInfo(pPageInfo);
end;
function TGeneralPropPage.SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
begin
Result := DefaultInterface.SetObjects(cObjects, ppUnk);
end;
function TGeneralPropPage.Show(nCmdShow: SYSUINT): HResult;
begin
Result := DefaultInterface.Show(nCmdShow);
end;
function TGeneralPropPage.Move(var pRect: RECT): HResult;
begin
Result := DefaultInterface.Move(pRect);
end;
function TGeneralPropPage.IsPageDirty: HResult;
begin
Result := DefaultInterface.IsPageDirty;
end;
function TGeneralPropPage.Apply: HResult;
begin
Result := DefaultInterface.Apply;
end;
function TGeneralPropPage.Help(pszHelpDir: PWideChar): HResult;
begin
Result := DefaultInterface.Help(pszHelpDir);
end;
function TGeneralPropPage.TranslateAccelerator(var pMsg: MSG): HResult;
begin
Result := DefaultInterface.TranslateAccelerator(pMsg);
end;
function TGeneralPropPage.EditProperty(dispID: Integer): HResult;
begin
Result := DefaultInterface.EditProperty(dispID);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TGeneralPropPageProperties.Create(AServer: TGeneralPropPage);
begin
inherited Create;
FServer := AServer;
end;
function TGeneralPropPageProperties.GetDefaultInterface: IPropertyPage2;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoGraphPropPage.Create: IPropertyPage2;
begin
Result := CreateComObject(CLASS_GraphPropPage) as IPropertyPage2;
end;
class function CoGraphPropPage.CreateRemote(const MachineName: string): IPropertyPage2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_GraphPropPage) as IPropertyPage2;
end;
procedure TGraphPropPage.InitServerData;
const
CServerData: TServerData = (
ClassID: '{C3E5D3D3-1A03-11CF-942D-008029004347}';
IntfIID: '{01E44665-24AC-101B-84ED-08002B2EC713}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TGraphPropPage.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IPropertyPage2;
end;
end;
procedure TGraphPropPage.ConnectTo(svrIntf: IPropertyPage2);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TGraphPropPage.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TGraphPropPage.GetDefaultInterface: IPropertyPage2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TGraphPropPage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TGraphPropPageProperties.Create(Self);
{$ENDIF}
end;
destructor TGraphPropPage.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TGraphPropPage.GetServerProperties: TGraphPropPageProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TGraphPropPage.SetPageSite(const pPageSite: IPropertyPageSite): HResult;
begin
Result := DefaultInterface.SetPageSite(pPageSite);
end;
function TGraphPropPage.Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
begin
Result := DefaultInterface.Activate(hWndParent, pRect, bModal);
end;
function TGraphPropPage.Deactivate: HResult;
begin
Result := DefaultInterface.Deactivate;
end;
function TGraphPropPage.GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
begin
Result := DefaultInterface.GetPageInfo(pPageInfo);
end;
function TGraphPropPage.SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
begin
Result := DefaultInterface.SetObjects(cObjects, ppUnk);
end;
function TGraphPropPage.Show(nCmdShow: SYSUINT): HResult;
begin
Result := DefaultInterface.Show(nCmdShow);
end;
function TGraphPropPage.Move(var pRect: RECT): HResult;
begin
Result := DefaultInterface.Move(pRect);
end;
function TGraphPropPage.IsPageDirty: HResult;
begin
Result := DefaultInterface.IsPageDirty;
end;
function TGraphPropPage.Apply: HResult;
begin
Result := DefaultInterface.Apply;
end;
function TGraphPropPage.Help(pszHelpDir: PWideChar): HResult;
begin
Result := DefaultInterface.Help(pszHelpDir);
end;
function TGraphPropPage.TranslateAccelerator(var pMsg: MSG): HResult;
begin
Result := DefaultInterface.TranslateAccelerator(pMsg);
end;
function TGraphPropPage.EditProperty(dispID: Integer): HResult;
begin
Result := DefaultInterface.EditProperty(dispID);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TGraphPropPageProperties.Create(AServer: TGraphPropPage);
begin
inherited Create;
FServer := AServer;
end;
function TGraphPropPageProperties.GetDefaultInterface: IPropertyPage2;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoSourcePropPage.Create: IPropertyPage2;
begin
Result := CreateComObject(CLASS_SourcePropPage) as IPropertyPage2;
end;
class function CoSourcePropPage.CreateRemote(const MachineName: string): IPropertyPage2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_SourcePropPage) as IPropertyPage2;
end;
procedure TSourcePropPage.InitServerData;
const
CServerData: TServerData = (
ClassID: '{0CF32AA1-7571-11D0-93C4-00AA00A3DDEA}';
IntfIID: '{01E44665-24AC-101B-84ED-08002B2EC713}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TSourcePropPage.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IPropertyPage2;
end;
end;
procedure TSourcePropPage.ConnectTo(svrIntf: IPropertyPage2);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TSourcePropPage.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TSourcePropPage.GetDefaultInterface: IPropertyPage2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TSourcePropPage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TSourcePropPageProperties.Create(Self);
{$ENDIF}
end;
destructor TSourcePropPage.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TSourcePropPage.GetServerProperties: TSourcePropPageProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TSourcePropPage.SetPageSite(const pPageSite: IPropertyPageSite): HResult;
begin
Result := DefaultInterface.SetPageSite(pPageSite);
end;
function TSourcePropPage.Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
begin
Result := DefaultInterface.Activate(hWndParent, pRect, bModal);
end;
function TSourcePropPage.Deactivate: HResult;
begin
Result := DefaultInterface.Deactivate;
end;
function TSourcePropPage.GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
begin
Result := DefaultInterface.GetPageInfo(pPageInfo);
end;
function TSourcePropPage.SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
begin
Result := DefaultInterface.SetObjects(cObjects, ppUnk);
end;
function TSourcePropPage.Show(nCmdShow: SYSUINT): HResult;
begin
Result := DefaultInterface.Show(nCmdShow);
end;
function TSourcePropPage.Move(var pRect: RECT): HResult;
begin
Result := DefaultInterface.Move(pRect);
end;
function TSourcePropPage.IsPageDirty: HResult;
begin
Result := DefaultInterface.IsPageDirty;
end;
function TSourcePropPage.Apply: HResult;
begin
Result := DefaultInterface.Apply;
end;
function TSourcePropPage.Help(pszHelpDir: PWideChar): HResult;
begin
Result := DefaultInterface.Help(pszHelpDir);
end;
function TSourcePropPage.TranslateAccelerator(var pMsg: MSG): HResult;
begin
Result := DefaultInterface.TranslateAccelerator(pMsg);
end;
function TSourcePropPage.EditProperty(dispID: Integer): HResult;
begin
Result := DefaultInterface.EditProperty(dispID);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TSourcePropPageProperties.Create(AServer: TSourcePropPage);
begin
inherited Create;
FServer := AServer;
end;
function TSourcePropPageProperties.GetDefaultInterface: IPropertyPage2;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
class function CoCounterPropPage.Create: IPropertyPage2;
begin
Result := CreateComObject(CLASS_CounterPropPage) as IPropertyPage2;
end;
class function CoCounterPropPage.CreateRemote(const MachineName: string): IPropertyPage2;
begin
Result := CreateRemoteComObject(MachineName, CLASS_CounterPropPage) as IPropertyPage2;
end;
procedure TCounterPropPage.InitServerData;
const
CServerData: TServerData = (
ClassID: '{CF948561-EDE8-11CE-941E-008029004347}';
IntfIID: '{01E44665-24AC-101B-84ED-08002B2EC713}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TCounterPropPage.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as IPropertyPage2;
end;
end;
procedure TCounterPropPage.ConnectTo(svrIntf: IPropertyPage2);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCounterPropPage.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCounterPropPage.GetDefaultInterface: IPropertyPage2;
begin
if FIntf = nil then
Connect;
Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation');
Result := FIntf;
end;
constructor TCounterPropPage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TCounterPropPageProperties.Create(Self);
{$ENDIF}
end;
destructor TCounterPropPage.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCounterPropPage.GetServerProperties: TCounterPropPageProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TCounterPropPage.SetPageSite(const pPageSite: IPropertyPageSite): HResult;
begin
Result := DefaultInterface.SetPageSite(pPageSite);
end;
function TCounterPropPage.Activate(var hWndParent: RemotableHandle; var pRect: RECT; bModal: Integer): HResult;
begin
Result := DefaultInterface.Activate(hWndParent, pRect, bModal);
end;
function TCounterPropPage.Deactivate: HResult;
begin
Result := DefaultInterface.Deactivate;
end;
function TCounterPropPage.GetPageInfo(out pPageInfo: PROPPAGEINFO): HResult;
begin
Result := DefaultInterface.GetPageInfo(pPageInfo);
end;
function TCounterPropPage.SetObjects(cObjects: LongWord; var ppUnk: IUnknown): HResult;
begin
Result := DefaultInterface.SetObjects(cObjects, ppUnk);
end;
function TCounterPropPage.Show(nCmdShow: SYSUINT): HResult;
begin
Result := DefaultInterface.Show(nCmdShow);
end;
function TCounterPropPage.Move(var pRect: RECT): HResult;
begin
Result := DefaultInterface.Move(pRect);
end;
function TCounterPropPage.IsPageDirty: HResult;
begin
Result := DefaultInterface.IsPageDirty;
end;
function TCounterPropPage.Apply: HResult;
begin
Result := DefaultInterface.Apply;
end;
function TCounterPropPage.Help(pszHelpDir: PWideChar): HResult;
begin
Result := DefaultInterface.Help(pszHelpDir);
end;
function TCounterPropPage.TranslateAccelerator(var pMsg: MSG): HResult;
begin
Result := DefaultInterface.TranslateAccelerator(pMsg);
end;
function TCounterPropPage.EditProperty(dispID: Integer): HResult;
begin
Result := DefaultInterface.EditProperty(dispID);
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TCounterPropPageProperties.Create(AServer: TCounterPropPage);
begin
inherited Create;
FServer := AServer;
end;
function TCounterPropPageProperties.GetDefaultInterface: IPropertyPage2;
begin
Result := FServer.DefaultInterface;
end;
{$ENDIF}
procedure Register;
begin
RegisterComponents(dtlOcxPage, [TSystemMonitor_, TCounterItem, TLogFileItem]);
RegisterComponents(dtlServerPage, [TCounters, TLogFiles, TCounterItem2, TSystemMonitor2,
TAppearPropPage, TGeneralPropPage, TGraphPropPage, TSourcePropPage, TCounterPropPage]);
end;
end.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment