Archivado/Componentes.Terceros.DevExpressVCL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
master
Componentes.Terceros.DevExp.../official/x.38/ExpressPivotGrid 2/Sources/cxADOMDInt.pas
david fd289722e5 Sin Skins. 
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
2008-08-27 11:56:15 +00:00

1369 lines
53 KiB
ObjectPascal
Raw Permalink Blame History

unit cxADOMDInt;
// ************************************************************************ //
// 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.
// ************************************************************************ //
// PASTLWTR : 1.2
// File generated on 4/24/2008 5:03:28 PM from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Program Files\Common Files\System\ado\msadomd.dll (1)
// LIBID: {22813728-8BD3-11D0-B4EF-00A0C9138CA4}
// LCID: 0
// Helpfile: C:\Program Files\Common Files\System\ado\ado270.chm
// HelpString: Microsoft ActiveX Data Objects (Multi-dimensional) 2.8 Library
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// (2) v2.8 ADODB, (C:\Program Files\Common Files\System\ado\msado15.dll)
// Errors:
// Hint: Symbol 'Type' renamed to 'type_'
// Error creating palette bitmap of (TCatalog) : Server C:\Program Files\Common Files\System\ado\msadomd.dll contains no icons
// Error creating palette bitmap of (TCellset) : Server C:\Program Files\Common Files\System\ado\msadomd.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// 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, AdoInt, Classes, Graphics, 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
ADOMDMajorVersion = 2;
ADOMDMinorVersion = 8;
LIBID_ADOMD: TGUID = '{22813728-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_ICatalog: TGUID = '{228136B1-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_MD_Collection: TGUID = '{22813751-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_CubeDefs: TGUID = '{2281375D-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_CubeDef25: TGUID = '{2281373E-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_CubeDef: TGUID = '{DA16A34A-7B7A-46FD-AD9D-66DF1E699FA1}';
IID_Dimensions: TGUID = '{2281375C-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Dimension: TGUID = '{22813742-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Hierarchies: TGUID = '{2281375B-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Hierarchy: TGUID = '{22813746-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Levels: TGUID = '{22813758-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Level: TGUID = '{2281373A-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Members: TGUID = '{22813757-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Member: TGUID = '{22813736-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_ICellset: TGUID = '{2281372A-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Cell: TGUID = '{2281372E-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Positions: TGUID = '{2281375A-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Position: TGUID = '{22813734-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Axes: TGUID = '{22813759-8BD3-11D0-B4EF-00A0C9138CA4}';
IID_Axis: TGUID = '{22813732-8BD3-11D0-B4EF-00A0C9138CA4}';
CLASS_Catalog: TGUID = '{228136B0-8BD3-11D0-B4EF-00A0C9138CA4}';
CLASS_Cellset: TGUID = '{228136B8-8BD3-11D0-B4EF-00A0C9138CA4}';
// *********************************************************************//
// Declaration of Enumerations defined in Type Library
// *********************************************************************//
// Constants for enum MemberTypeEnum
type
MemberTypeEnum = TOleEnum;
const
adMemberUnknown = $00000000;
adMemberRegular = $00000001;
adMemberAll = $00000002;
adMemberMeasure = $00000003;
adMemberFormula = $00000004;
// Constants for enum SchemaObjectTypeEnum
type
SchemaObjectTypeEnum = TOleEnum;
const
adObjectTypeDimension = $00000001;
adObjectTypeHierarchy = $00000002;
adObjectTypeLevel = $00000003;
adObjectTypeMember = $00000004;
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
ICatalog = interface;
ICatalogDisp = dispinterface;
MD_Collection = interface;
MD_CollectionDisp = dispinterface;
CubeDefs = interface;
CubeDefsDisp = dispinterface;
CubeDef25 = interface;
CubeDef25Disp = dispinterface;
CubeDef = interface;
CubeDefDisp = dispinterface;
Dimensions = interface;
DimensionsDisp = dispinterface;
Dimension = interface;
DimensionDisp = dispinterface;
Hierarchies = interface;
HierarchiesDisp = dispinterface;
Hierarchy = interface;
HierarchyDisp = dispinterface;
Levels = interface;
LevelsDisp = dispinterface;
Level = interface;
LevelDisp = dispinterface;
Members = interface;
MembersDisp = dispinterface;
Member = interface;
MemberDisp = dispinterface;
ICellset = interface;
ICellsetDisp = dispinterface;
Cell = interface;
CellDisp = dispinterface;
Positions = interface;
PositionsDisp = dispinterface;
Position = interface;
PositionDisp = dispinterface;
Axes = interface;
AxesDisp = dispinterface;
Axis = interface;
AxisDisp = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
Catalog = ICatalog;
Cellset = ICellset;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PPSafeArray1 = ^PSafeArray; {*}
// *********************************************************************//
// Interface: ICatalog
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {228136B1-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
ICatalog = interface(IDispatch)
['{228136B1-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Name: WideString; safecall;
procedure _Set_ActiveConnection(const ppConn: IDispatch); safecall;
procedure Set_ActiveConnection(const ppConn: WideString); safecall;
function Get_ActiveConnection: IDispatch; safecall;
function Get_CubeDefs: CubeDefs; safecall;
property Name: WideString read Get_Name;
property CubeDefs: CubeDefs read Get_CubeDefs;
end;
// *********************************************************************//
// DispIntf: ICatalogDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {228136B1-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
ICatalogDisp = dispinterface
['{228136B1-8BD3-11D0-B4EF-00A0C9138CA4}']
property Name: WideString readonly dispid 1610743808;
function ActiveConnection: IDispatch; dispid 1610743809;
property CubeDefs: CubeDefs readonly dispid 0;
end;
// *********************************************************************//
// Interface: MD_Collection
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813751-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
MD_Collection = interface(IDispatch)
['{22813751-8BD3-11D0-B4EF-00A0C9138CA4}']
procedure Refresh; safecall;
function _NewEnum: IUnknown; safecall;
function Get_Count: Integer; safecall;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: MD_CollectionDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813751-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
MD_CollectionDisp = dispinterface
['{22813751-8BD3-11D0-B4EF-00A0C9138CA4}']
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: CubeDefs
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375D-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
CubeDefs = interface(MD_Collection)
['{2281375D-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(Index: OleVariant): CubeDef; safecall;
property Item[Index: OleVariant]: CubeDef read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: CubeDefsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375D-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
CubeDefsDisp = dispinterface
['{2281375D-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[Index: OleVariant]: CubeDef readonly dispid 0; default;
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: CubeDef25
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281373E-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
CubeDef25 = interface(IDispatch)
['{2281373E-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Name: WideString; safecall;
function Get_Description: WideString; safecall;
function Get_Properties: Properties; safecall;
function Get_Dimensions: Dimensions; safecall;
property Name: WideString read Get_Name;
property Description: WideString read Get_Description;
property Properties: Properties read Get_Properties;
property Dimensions: Dimensions read Get_Dimensions;
end;
// *********************************************************************//
// DispIntf: CubeDef25Disp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281373E-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
CubeDef25Disp = dispinterface
['{2281373E-8BD3-11D0-B4EF-00A0C9138CA4}']
property Name: WideString readonly dispid 1610743808;
property Description: WideString readonly dispid 1610743809;
property Properties: Properties readonly dispid 1610743810;
property Dimensions: Dimensions readonly dispid 0;
end;
// *********************************************************************//
// Interface: CubeDef
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DA16A34A-7B7A-46FD-AD9D-66DF1E699FA1}
// *********************************************************************//
CubeDef = interface(CubeDef25)
['{DA16A34A-7B7A-46FD-AD9D-66DF1E699FA1}']
function GetSchemaObject(eObjType: SchemaObjectTypeEnum; const bsUniqueName: WideString): IDispatch; safecall;
end;
// *********************************************************************//
// DispIntf: CubeDefDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DA16A34A-7B7A-46FD-AD9D-66DF1E699FA1}
// *********************************************************************//
CubeDefDisp = dispinterface
['{DA16A34A-7B7A-46FD-AD9D-66DF1E699FA1}']
function GetSchemaObject(eObjType: SchemaObjectTypeEnum; const bsUniqueName: WideString): IDispatch; dispid 1610809344;
property Name: WideString readonly dispid 1610743808;
property Description: WideString readonly dispid 1610743809;
property Properties: Properties readonly dispid 1610743810;
property Dimensions: Dimensions readonly dispid 0;
end;
// *********************************************************************//
// Interface: Dimensions
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375C-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Dimensions = interface(MD_Collection)
['{2281375C-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(Index: OleVariant): Dimension; safecall;
property Item[Index: OleVariant]: Dimension read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: DimensionsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375C-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
DimensionsDisp = dispinterface
['{2281375C-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[Index: OleVariant]: Dimension readonly dispid 0; default;
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: Dimension
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813742-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Dimension = interface(IDispatch)
['{22813742-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Name: WideString; safecall;
function Get_UniqueName: WideString; safecall;
function Get_Description: WideString; safecall;
function Get_Properties: Properties; safecall;
function Get_Hierarchies: Hierarchies; safecall;
property Name: WideString read Get_Name;
property UniqueName: WideString read Get_UniqueName;
property Description: WideString read Get_Description;
property Properties: Properties read Get_Properties;
property Hierarchies: Hierarchies read Get_Hierarchies;
end;
// *********************************************************************//
// DispIntf: DimensionDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813742-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
DimensionDisp = dispinterface
['{22813742-8BD3-11D0-B4EF-00A0C9138CA4}']
property Name: WideString readonly dispid 1610743808;
property UniqueName: WideString readonly dispid 1610743809;
property Description: WideString readonly dispid 1610743810;
property Properties: Properties readonly dispid 1610743811;
property Hierarchies: Hierarchies readonly dispid 0;
end;
// *********************************************************************//
// Interface: Hierarchies
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375B-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Hierarchies = interface(MD_Collection)
['{2281375B-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(Index: OleVariant): Hierarchy; safecall;
property Item[Index: OleVariant]: Hierarchy read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: HierarchiesDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375B-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
HierarchiesDisp = dispinterface
['{2281375B-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[Index: OleVariant]: Hierarchy readonly dispid 0; default;
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: Hierarchy
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813746-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Hierarchy = interface(IDispatch)
['{22813746-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Name: WideString; safecall;
function Get_UniqueName: WideString; safecall;
function Get_Description: WideString; safecall;
function Get_Properties: Properties; safecall;
function Get_Levels: Levels; safecall;
property Name: WideString read Get_Name;
property UniqueName: WideString read Get_UniqueName;
property Description: WideString read Get_Description;
property Properties: Properties read Get_Properties;
property Levels: Levels read Get_Levels;
end;
// *********************************************************************//
// DispIntf: HierarchyDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813746-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
HierarchyDisp = dispinterface
['{22813746-8BD3-11D0-B4EF-00A0C9138CA4}']
property Name: WideString readonly dispid 1610743808;
property UniqueName: WideString readonly dispid 1610743809;
property Description: WideString readonly dispid 1610743810;
property Properties: Properties readonly dispid 1610743811;
property Levels: Levels readonly dispid 0;
end;
// *********************************************************************//
// Interface: Levels
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813758-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Levels = interface(MD_Collection)
['{22813758-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(Index: OleVariant): Level; safecall;
property Item[Index: OleVariant]: Level read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: LevelsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813758-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
LevelsDisp = dispinterface
['{22813758-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[Index: OleVariant]: Level readonly dispid 0; default;
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: Level
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281373A-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Level = interface(IDispatch)
['{2281373A-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Name: WideString; safecall;
function Get_UniqueName: WideString; safecall;
function Get_Caption: WideString; safecall;
function Get_Description: WideString; safecall;
function Get_Depth: Smallint; safecall;
function Get_Properties: Properties; safecall;
function Get_Members: Members; safecall;
property Name: WideString read Get_Name;
property UniqueName: WideString read Get_UniqueName;
property Caption: WideString read Get_Caption;
property Description: WideString read Get_Description;
property Depth: Smallint read Get_Depth;
property Properties: Properties read Get_Properties;
property Members: Members read Get_Members;
end;
// *********************************************************************//
// DispIntf: LevelDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281373A-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
LevelDisp = dispinterface
['{2281373A-8BD3-11D0-B4EF-00A0C9138CA4}']
property Name: WideString readonly dispid 1610743808;
property UniqueName: WideString readonly dispid 1610743809;
property Caption: WideString readonly dispid 1610743810;
property Description: WideString readonly dispid 1610743811;
property Depth: Smallint readonly dispid 1610743812;
property Properties: Properties readonly dispid 1610743813;
property Members: Members readonly dispid 0;
end;
// *********************************************************************//
// Interface: Members
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813757-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Members = interface(MD_Collection)
['{22813757-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(Index: OleVariant): Member; safecall;
property Item[Index: OleVariant]: Member read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: MembersDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813757-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
MembersDisp = dispinterface
['{22813757-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[Index: OleVariant]: Member readonly dispid 0; default;
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: Member
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813736-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Member = interface(IDispatch)
['{22813736-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Name: WideString; safecall;
function Get_UniqueName: WideString; safecall;
function Get_Caption: WideString; safecall;
function Get_Description: WideString; safecall;
function Get_Parent: Member; safecall;
function Get_LevelDepth: Integer; safecall;
function Get_LevelName: WideString; safecall;
function Get_Properties: Properties; safecall;
function Get_type_: MemberTypeEnum; safecall;
function Get_ChildCount: Integer; safecall;
function Get_DrilledDown: WordBool; safecall;
function Get_ParentSameAsPrev: WordBool; safecall;
function Get_Children: Members; safecall;
property Name: WideString read Get_Name;
property UniqueName: WideString read Get_UniqueName;
property Caption: WideString read Get_Caption;
property Description: WideString read Get_Description;
property Parent: Member read Get_Parent;
property LevelDepth: Integer read Get_LevelDepth;
property LevelName: WideString read Get_LevelName;
property Properties: Properties read Get_Properties;
property type_: MemberTypeEnum read Get_type_;
property ChildCount: Integer read Get_ChildCount;
property DrilledDown: WordBool read Get_DrilledDown;
property ParentSameAsPrev: WordBool read Get_ParentSameAsPrev;
property Children: Members read Get_Children;
end;
// *********************************************************************//
// DispIntf: MemberDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813736-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
MemberDisp = dispinterface
['{22813736-8BD3-11D0-B4EF-00A0C9138CA4}']
property Name: WideString readonly dispid 1610743808;
property UniqueName: WideString readonly dispid 1610743809;
property Caption: WideString readonly dispid 0;
property Description: WideString readonly dispid 1610743811;
property Parent: Member readonly dispid 1610743812;
property LevelDepth: Integer readonly dispid 1610743813;
property LevelName: WideString readonly dispid 1610743814;
property Properties: Properties readonly dispid 1610743815;
property type_: MemberTypeEnum readonly dispid 1610743816;
property ChildCount: Integer readonly dispid 1610743817;
property DrilledDown: WordBool readonly dispid 1610743818;
property ParentSameAsPrev: WordBool readonly dispid 1610743819;
property Children: Members readonly dispid 1610743820;
end;
// *********************************************************************//
// Interface: ICellset
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281372A-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
ICellset = interface(IDispatch)
['{2281372A-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(var idx: PSafeArray): Cell; safecall;
procedure Open(DataSource: OleVariant; ActiveConnection: OleVariant); safecall;
procedure Close; safecall;
procedure _Set_Source(const pvSource: IDispatch); safecall;
procedure Set_Source(const pvSource: WideString); safecall;
function Get_Source: OleVariant; safecall;
procedure _Set_ActiveConnection(const ppConn: IDispatch); safecall;
procedure Set_ActiveConnection(const ppConn: WideString); safecall;
function Get_ActiveConnection: IDispatch; safecall;
function Get_State: Integer; safecall;
function Get_Axes: Axes; safecall;
function Get_FilterAxis: Axis; safecall;
function Get_Properties: Properties; safecall;
property Item[var idx: PSafeArray]: Cell read Get_Item; default;
property State: Integer read Get_State;
property Axes: Axes read Get_Axes;
property FilterAxis: Axis read Get_FilterAxis;
property Properties: Properties read Get_Properties;
end;
// *********************************************************************//
// DispIntf: ICellsetDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281372A-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
ICellsetDisp = dispinterface
['{2281372A-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[var idx: {??PSafeArray}OleVariant]: Cell readonly dispid 0; default;
procedure Open(DataSource: OleVariant; ActiveConnection: OleVariant); dispid 1610743809;
procedure Close; dispid 1610743810;
function Source: IDispatch; dispid 1610743811;
function ActiveConnection: IDispatch; dispid 1610743814;
property State: Integer readonly dispid 1610743817;
property Axes: Axes readonly dispid 1610743818;
property FilterAxis: Axis readonly dispid 1610743819;
property Properties: Properties readonly dispid 1610743820;
end;
// *********************************************************************//
// Interface: Cell
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281372E-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Cell = interface(IDispatch)
['{2281372E-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Value: OleVariant; safecall;
procedure Set_Value(pvar: OleVariant); safecall;
function Get_Positions: Positions; safecall;
function Get_Properties: Properties; safecall;
function Get_FormattedValue: WideString; safecall;
procedure Set_FormattedValue(const pbstr: WideString); safecall;
function Get_Ordinal: Integer; safecall;
property Value: OleVariant read Get_Value write Set_Value;
property Positions: Positions read Get_Positions;
property Properties: Properties read Get_Properties;
property FormattedValue: WideString read Get_FormattedValue write Set_FormattedValue;
property Ordinal: Integer read Get_Ordinal;
end;
// *********************************************************************//
// DispIntf: CellDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281372E-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
CellDisp = dispinterface
['{2281372E-8BD3-11D0-B4EF-00A0C9138CA4}']
property Value: OleVariant dispid 0;
property Positions: Positions readonly dispid 1610743810;
property Properties: Properties readonly dispid 1610743811;
property FormattedValue: WideString dispid 1610743812;
property Ordinal: Integer readonly dispid 1610743814;
end;
// *********************************************************************//
// Interface: Positions
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375A-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Positions = interface(MD_Collection)
['{2281375A-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(Index: OleVariant): Position; safecall;
property Item[Index: OleVariant]: Position read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: PositionsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {2281375A-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
PositionsDisp = dispinterface
['{2281375A-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[Index: OleVariant]: Position readonly dispid 0; default;
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: Position
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813734-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Position = interface(IDispatch)
['{22813734-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Ordinal: Integer; safecall;
function Get_Members: Members; safecall;
property Ordinal: Integer read Get_Ordinal;
property Members: Members read Get_Members;
end;
// *********************************************************************//
// DispIntf: PositionDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813734-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
PositionDisp = dispinterface
['{22813734-8BD3-11D0-B4EF-00A0C9138CA4}']
property Ordinal: Integer readonly dispid 1610743808;
property Members: Members readonly dispid 0;
end;
// *********************************************************************//
// Interface: Axes
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813759-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Axes = interface(MD_Collection)
['{22813759-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Item(Index: OleVariant): Axis; safecall;
property Item[Index: OleVariant]: Axis read Get_Item; default;
end;
// *********************************************************************//
// DispIntf: AxesDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813759-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
AxesDisp = dispinterface
['{22813759-8BD3-11D0-B4EF-00A0C9138CA4}']
property Item[Index: OleVariant]: Axis readonly dispid 0; default;
procedure Refresh; dispid 1610743808;
function _NewEnum: IUnknown; dispid -4;
property Count: Integer readonly dispid 1610743810;
end;
// *********************************************************************//
// Interface: Axis
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813732-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
Axis = interface(IDispatch)
['{22813732-8BD3-11D0-B4EF-00A0C9138CA4}']
function Get_Name: WideString; safecall;
function Get_DimensionCount: Integer; safecall;
function Get_Positions: Positions; safecall;
function Get_Properties: Properties; safecall;
property Name: WideString read Get_Name;
property DimensionCount: Integer read Get_DimensionCount;
property Positions: Positions read Get_Positions;
property Properties: Properties read Get_Properties;
end;
// *********************************************************************//
// DispIntf: AxisDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22813732-8BD3-11D0-B4EF-00A0C9138CA4}
// *********************************************************************//
AxisDisp = dispinterface
['{22813732-8BD3-11D0-B4EF-00A0C9138CA4}']
property Name: WideString readonly dispid 1610743808;
property DimensionCount: Integer readonly dispid 1610743809;
property Positions: Positions readonly dispid 0;
property Properties: Properties readonly dispid 1610743811;
end;
// *********************************************************************//
// The Class CoCatalog provides a Create and CreateRemote method to
// create instances of the default interface ICatalog exposed by
// the CoClass Catalog. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCatalog = class
class function Create: ICatalog;
class function CreateRemote(const MachineName: string): ICatalog;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCatalog
// Help String : ADOMD Catalog Class
// Default Interface: ICatalog
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCatalogProperties= class;
{$ENDIF}
TCatalog = class(TOleServer)
private
FIntf: ICatalog;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCatalogProperties;
function GetServerProperties: TCatalogProperties;
{$ENDIF}
function GetDefaultInterface: ICatalog;
protected
procedure InitServerData; override;
function Get_Name: WideString;
procedure _Set_ActiveConnection(const ppConn: IDispatch);
procedure Set_ActiveConnection(const ppConn: WideString);
function Get_ActiveConnection: IDispatch;
function Get_CubeDefs: CubeDefs;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: ICatalog);
procedure Disconnect; override;
property DefaultInterface: ICatalog read GetDefaultInterface;
property Name: WideString read Get_Name;
property CubeDefs: CubeDefs read Get_CubeDefs;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCatalogProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCatalog
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCatalogProperties = class(TPersistent)
private
FServer: TCatalog;
function GetDefaultInterface: ICatalog;
constructor Create(AServer: TCatalog);
protected
function Get_Name: WideString;
procedure _Set_ActiveConnection(const ppConn: IDispatch);
procedure Set_ActiveConnection(const ppConn: WideString);
function Get_ActiveConnection: IDispatch;
function Get_CubeDefs: CubeDefs;
public
property DefaultInterface: ICatalog read GetDefaultInterface;
published
end;
{$ENDIF}
// *********************************************************************//
// The Class CoCellset provides a Create and CreateRemote method to
// create instances of the default interface ICellset exposed by
// the CoClass Cellset. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoCellset = class
class function Create: ICellset;
class function CreateRemote(const MachineName: string): ICellset;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TCellset
// Help String : ADOMD Cellset Class
// Default Interface: ICellset
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCellsetProperties= class;
{$ENDIF}
TCellset = class(TOleServer)
private
FIntf: ICellset;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCellsetProperties;
function GetServerProperties: TCellsetProperties;
{$ENDIF}
function GetDefaultInterface: ICellset;
protected
procedure InitServerData; override;
function Get_Item(var idx: PSafeArray): Cell;
procedure _Set_Source(const pvSource: IDispatch);
procedure Set_Source(const pvSource: WideString);
function Get_Source: OleVariant;
procedure _Set_ActiveConnection(const ppConn: IDispatch);
procedure Set_ActiveConnection(const ppConn: WideString);
function Get_ActiveConnection: IDispatch;
function Get_State: Integer;
function Get_Axes: Axes;
function Get_FilterAxis: Axis;
function Get_Properties: Properties;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: ICellset);
procedure Disconnect; override;
procedure Open; overload;
procedure Open(DataSource: OleVariant); overload;
procedure Open(DataSource: OleVariant; ActiveConnection: OleVariant); overload;
procedure Close;
property DefaultInterface: ICellset read GetDefaultInterface;
property Item[var idx: PSafeArray]: Cell read Get_Item; default;
property State: Integer read Get_State;
property Axes: Axes read Get_Axes;
property FilterAxis: Axis read Get_FilterAxis;
property Properties: Properties read Get_Properties;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCellsetProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TCellset
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TCellsetProperties = class(TPersistent)
private
FServer: TCellset;
function GetDefaultInterface: ICellset;
constructor Create(AServer: TCellset);
protected
function Get_Item(var idx: PSafeArray): Cell;
procedure _Set_Source(const pvSource: IDispatch);
procedure Set_Source(const pvSource: WideString);
function Get_Source: OleVariant;
procedure _Set_ActiveConnection(const ppConn: IDispatch);
procedure Set_ActiveConnection(const ppConn: WideString);
function Get_ActiveConnection: IDispatch;
function Get_State: Integer;
function Get_Axes: Axes;
function Get_FilterAxis: Axis;
function Get_Properties: Properties;
public
property DefaultInterface: ICellset read GetDefaultInterface;
published
end;
{$ENDIF}
resourcestring
dtlServerPage = 'ActiveX';
dtlOcxPage = 'ActiveX';
implementation
uses ComObj;
class function CoCatalog.Create: ICatalog;
begin
Result := CreateComObject(CLASS_Catalog) as ICatalog;
end;
class function CoCatalog.CreateRemote(const MachineName: string): ICatalog;
begin
Result := CreateRemoteComObject(MachineName, CLASS_Catalog) as ICatalog;
end;
procedure TCatalog.InitServerData;
const
CServerData: TServerData = (
ClassID: '{228136B0-8BD3-11D0-B4EF-00A0C9138CA4}';
IntfIID: '{228136B1-8BD3-11D0-B4EF-00A0C9138CA4}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TCatalog.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as ICatalog;
end;
end;
procedure TCatalog.ConnectTo(svrIntf: ICatalog);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCatalog.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCatalog.GetDefaultInterface: ICatalog;
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 TCatalog.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TCatalogProperties.Create(Self);
{$ENDIF}
end;
destructor TCatalog.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCatalog.GetServerProperties: TCatalogProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TCatalog.Get_Name: WideString;
begin
Result := DefaultInterface.Name;
end;
procedure TCatalog._Set_ActiveConnection(const ppConn: IDispatch);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
procedure TCatalog.Set_ActiveConnection(const ppConn: WideString);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
function TCatalog.Get_ActiveConnection: IDispatch;
begin
Result := DefaultInterface.Get_ActiveConnection;
end;
function TCatalog.Get_CubeDefs: CubeDefs;
begin
Result := DefaultInterface.CubeDefs;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TCatalogProperties.Create(AServer: TCatalog);
begin
inherited Create;
FServer := AServer;
end;
function TCatalogProperties.GetDefaultInterface: ICatalog;
begin
Result := FServer.DefaultInterface;
end;
function TCatalogProperties.Get_Name: WideString;
begin
Result := DefaultInterface.Name;
end;
procedure TCatalogProperties._Set_ActiveConnection(const ppConn: IDispatch);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
procedure TCatalogProperties.Set_ActiveConnection(const ppConn: WideString);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
function TCatalogProperties.Get_ActiveConnection: IDispatch;
begin
Result := DefaultInterface.Get_ActiveConnection;
end;
function TCatalogProperties.Get_CubeDefs: CubeDefs;
begin
Result := DefaultInterface.CubeDefs;
end;
{$ENDIF}
class function CoCellset.Create: ICellset;
begin
Result := CreateComObject(CLASS_Cellset) as ICellset;
end;
class function CoCellset.CreateRemote(const MachineName: string): ICellset;
begin
Result := CreateRemoteComObject(MachineName, CLASS_Cellset) as ICellset;
end;
procedure TCellset.InitServerData;
const
CServerData: TServerData = (
ClassID: '{228136B8-8BD3-11D0-B4EF-00A0C9138CA4}';
IntfIID: '{2281372A-8BD3-11D0-B4EF-00A0C9138CA4}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData;
end;
procedure TCellset.Connect;
var
punk: IUnknown;
begin
if FIntf = nil then
begin
punk := GetServer;
Fintf:= punk as ICellset;
end;
end;
procedure TCellset.ConnectTo(svrIntf: ICellset);
begin
Disconnect;
FIntf := svrIntf;
end;
procedure TCellset.DisConnect;
begin
if Fintf <> nil then
begin
FIntf := nil;
end;
end;
function TCellset.GetDefaultInterface: ICellset;
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 TCellset.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps := TCellsetProperties.Create(Self);
{$ENDIF}
end;
destructor TCellset.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps.Free;
{$ENDIF}
inherited Destroy;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TCellset.GetServerProperties: TCellsetProperties;
begin
Result := FProps;
end;
{$ENDIF}
function TCellset.Get_Item(var idx: PSafeArray): Cell;
begin
Result := DefaultInterface.Item[idx];
end;
procedure TCellset._Set_Source(const pvSource: IDispatch);
{ Warning: The property Source 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.Source := pvSource;
end;
procedure TCellset.Set_Source(const pvSource: WideString);
{ Warning: The property Source 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.Source := pvSource;
end;
function TCellset.Get_Source: OleVariant;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Source;
end;
procedure TCellset._Set_ActiveConnection(const ppConn: IDispatch);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
procedure TCellset.Set_ActiveConnection(const ppConn: WideString);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
function TCellset.Get_ActiveConnection: IDispatch;
begin
Result := DefaultInterface.Get_ActiveConnection;
end;
function TCellset.Get_State: Integer;
begin
Result := DefaultInterface.State;
end;
function TCellset.Get_Axes: Axes;
begin
Result := DefaultInterface.Axes;
end;
function TCellset.Get_FilterAxis: Axis;
begin
Result := DefaultInterface.FilterAxis;
end;
function TCellset.Get_Properties: Properties;
begin
Result := DefaultInterface.Properties;
end;
procedure TCellset.Open;
begin
DefaultInterface.Open(EmptyParam, EmptyParam);
end;
procedure TCellset.Open(DataSource: OleVariant);
begin
DefaultInterface.Open(DataSource, EmptyParam);
end;
procedure TCellset.Open(DataSource: OleVariant; ActiveConnection: OleVariant);
begin
DefaultInterface.Open(DataSource, ActiveConnection);
end;
procedure TCellset.Close;
begin
DefaultInterface.Close;
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TCellsetProperties.Create(AServer: TCellset);
begin
inherited Create;
FServer := AServer;
end;
function TCellsetProperties.GetDefaultInterface: ICellset;
begin
Result := FServer.DefaultInterface;
end;
function TCellsetProperties.Get_Item(var idx: PSafeArray): Cell;
begin
Result := DefaultInterface.Item[idx];
end;
procedure TCellsetProperties._Set_Source(const pvSource: IDispatch);
{ Warning: The property Source 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.Source := pvSource;
end;
procedure TCellsetProperties.Set_Source(const pvSource: WideString);
{ Warning: The property Source 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.Source := pvSource;
end;
function TCellsetProperties.Get_Source: OleVariant;
var
InterfaceVariant : OleVariant;
begin
InterfaceVariant := DefaultInterface;
Result := InterfaceVariant.Source;
end;
procedure TCellsetProperties._Set_ActiveConnection(const ppConn: IDispatch);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
procedure TCellsetProperties.Set_ActiveConnection(const ppConn: WideString);
{ Warning: The property ActiveConnection 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.ActiveConnection := ppConn;
end;
function TCellsetProperties.Get_ActiveConnection: IDispatch;
begin
Result := DefaultInterface.Get_ActiveConnection;
end;
function TCellsetProperties.Get_State: Integer;
begin
Result := DefaultInterface.State;
end;
function TCellsetProperties.Get_Axes: Axes;
begin
Result := DefaultInterface.Axes;
end;
function TCellsetProperties.Get_FilterAxis: Axis;
begin
Result := DefaultInterface.FilterAxis;
end;
function TCellsetProperties.Get_Properties: Properties;
begin
Result := DefaultInterface.Properties;
end;
{$ENDIF}
end.
Reference in New Issue View Git Blame Copy Permalink