unit CPRSChart_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. // ************************************************************************ // // PASTLWTR : 1.2 // File generated on 7/2/2010 7:47:03 PM from Type Library described below. // ************************************************************************ // // Type Lib: P:\vista\tmg-cprs\CPRS-Chart\CPRSChart.tlb (1) // LIBID: {0A4A6086-6504-11D5-82DE-00C04F72C274} // LCID: 0 // Helpfile: // HelpString: CPRSChart Library // DepndLst: // (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb) // (2) v1.1 Accessibility, (C:\WINDOWS\system32\oleacc.dll) // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} {$VARPROPSETTER ON} interface uses Windows, Accessibility_TLB, ActiveX, Classes, Graphics, 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 CPRSChartMajorVersion = 1; CPRSChartMinorVersion = 0; LIBID_CPRSChart: TGUID = '{0A4A6086-6504-11D5-82DE-00C04F72C274}'; IID_ICPRSBroker: TGUID = '{63DC619B-6BE0-11D5-82E6-00C04F72C274}'; IID_ICPRSState: TGUID = '{63DC619E-6BE0-11D5-82E6-00C04F72C274}'; IID_ICPRSExtension: TGUID = '{63DC61C4-6BE0-11D5-82E6-00C04F72C274}'; IID_IAccessibleStringGrid: TGUID = '{EFD768F7-59C0-48D9-889E-49EDF75488A6}'; CLASS_AccessibleStringGrid: TGUID = '{25CDBD92-C72E-47B0-9E75-9457B603000C}'; IID_IAccessibleListBox: TGUID = '{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}'; CLASS_AccessibleListBox: TGUID = '{758002E7-7012-4FAB-BD84-40D372694719}'; IID_IAccessibleTreeNode: TGUID = '{5974D1D8-0F49-45E5-AEFE-674A61F8771A}'; CLASS_AccessibleTreeNode: TGUID = '{3AD21DCA-2298-487A-8197-59B8D586C244}'; IID_IAccessibleTreeView: TGUID = '{06AA97AB-6D67-425C-B794-15FB8C62F870}'; CLASS_AccessibleTreeView: TGUID = '{507AD9F0-9ED6-4BCD-A3AB-DBA72153F14D}'; IID_IAccessibleRichEdit: TGUID = '{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}'; CLASS_AccessibleRichEdit: TGUID = '{DC61493C-51FE-49A4-8749-8464A00D5CFC}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // Constants for enum BrokerParamType type BrokerParamType = TOleEnum; const bptLiteral = $00000000; bptReference = $00000001; bptList = $00000002; bptUndefined = $00000003; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// ICPRSBroker = interface; ICPRSBrokerDisp = dispinterface; ICPRSState = interface; ICPRSStateDisp = dispinterface; ICPRSExtension = interface; ICPRSExtensionDisp = dispinterface; IAccessibleStringGrid = interface; IAccessibleStringGridDisp = dispinterface; IAccessibleListBox = interface; IAccessibleListBoxDisp = dispinterface; IAccessibleTreeNode = interface; IAccessibleTreeNodeDisp = dispinterface; IAccessibleTreeView = interface; IAccessibleTreeViewDisp = dispinterface; IAccessibleRichEdit = interface; IAccessibleRichEditDisp = dispinterface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// AccessibleStringGrid = IAccessibleStringGrid; AccessibleListBox = IAccessibleListBox; AccessibleTreeNode = IAccessibleTreeNode; AccessibleTreeView = IAccessibleTreeView; AccessibleRichEdit = IAccessibleRichEdit; // *********************************************************************// // Interface: ICPRSBroker // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {63DC619B-6BE0-11D5-82E6-00C04F72C274} // *********************************************************************// ICPRSBroker = interface(IDispatch) ['{63DC619B-6BE0-11D5-82E6-00C04F72C274}'] function SetContext(const Context: WideString): WordBool; safecall; function Server: WideString; safecall; function Port: Integer; safecall; function DebugMode: WordBool; safecall; function Get_RPCVersion: WideString; safecall; procedure Set_RPCVersion(const Value: WideString); safecall; function Get_ClearParameters: WordBool; safecall; procedure Set_ClearParameters(Value: WordBool); safecall; function Get_ClearResults: WordBool; safecall; procedure Set_ClearResults(Value: WordBool); safecall; procedure CallRPC(const RPCName: WideString); safecall; function Get_Results: WideString; safecall; procedure Set_Results(const Value: WideString); safecall; function Get_Param(Index: Integer): WideString; safecall; procedure Set_Param(Index: Integer; const Value: WideString); safecall; function Get_ParamType(Index: Integer): BrokerParamType; safecall; procedure Set_ParamType(Index: Integer; Value: BrokerParamType); safecall; function Get_ParamList(Index: Integer; const Node: WideString): WideString; safecall; procedure Set_ParamList(Index: Integer; const Node: WideString; const Value: WideString); safecall; function ParamCount: Integer; safecall; function ParamListCount(Index: Integer): Integer; safecall; property RPCVersion: WideString read Get_RPCVersion write Set_RPCVersion; property ClearParameters: WordBool read Get_ClearParameters write Set_ClearParameters; property ClearResults: WordBool read Get_ClearResults write Set_ClearResults; property Results: WideString read Get_Results write Set_Results; property Param[Index: Integer]: WideString read Get_Param write Set_Param; property ParamType[Index: Integer]: BrokerParamType read Get_ParamType write Set_ParamType; property ParamList[Index: Integer; const Node: WideString]: WideString read Get_ParamList write Set_ParamList; end; // *********************************************************************// // DispIntf: ICPRSBrokerDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {63DC619B-6BE0-11D5-82E6-00C04F72C274} // *********************************************************************// ICPRSBrokerDisp = dispinterface ['{63DC619B-6BE0-11D5-82E6-00C04F72C274}'] function SetContext(const Context: WideString): WordBool; dispid 1; function Server: WideString; dispid 2; function Port: Integer; dispid 3; function DebugMode: WordBool; dispid 4; property RPCVersion: WideString dispid 5; property ClearParameters: WordBool dispid 6; property ClearResults: WordBool dispid 7; procedure CallRPC(const RPCName: WideString); dispid 8; property Results: WideString dispid 9; property Param[Index: Integer]: WideString dispid 10; property ParamType[Index: Integer]: BrokerParamType dispid 11; property ParamList[Index: Integer; const Node: WideString]: WideString dispid 12; function ParamCount: Integer; dispid 13; function ParamListCount(Index: Integer): Integer; dispid 14; end; // *********************************************************************// // Interface: ICPRSState // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {63DC619E-6BE0-11D5-82E6-00C04F72C274} // *********************************************************************// ICPRSState = interface(IDispatch) ['{63DC619E-6BE0-11D5-82E6-00C04F72C274}'] function Handle: WideString; safecall; function UserDUZ: WideString; safecall; function UserName: WideString; safecall; function PatientDFN: WideString; safecall; function PatientName: WideString; safecall; function PatientDOB: WideString; safecall; function PatientSSN: WideString; safecall; function LocationIEN: Integer; safecall; function LocationName: WideString; safecall; end; // *********************************************************************// // DispIntf: ICPRSStateDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {63DC619E-6BE0-11D5-82E6-00C04F72C274} // *********************************************************************// ICPRSStateDisp = dispinterface ['{63DC619E-6BE0-11D5-82E6-00C04F72C274}'] function Handle: WideString; dispid 1; function UserDUZ: WideString; dispid 2; function UserName: WideString; dispid 3; function PatientDFN: WideString; dispid 4; function PatientName: WideString; dispid 5; function PatientDOB: WideString; dispid 6; function PatientSSN: WideString; dispid 7; function LocationIEN: Integer; dispid 8; function LocationName: WideString; dispid 9; end; // *********************************************************************// // Interface: ICPRSExtension // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {63DC61C4-6BE0-11D5-82E6-00C04F72C274} // *********************************************************************// ICPRSExtension = interface(IDispatch) ['{63DC61C4-6BE0-11D5-82E6-00C04F72C274}'] function Execute(const CPRSBroker: ICPRSBroker; const CPRSState: ICPRSState; const Param1: WideString; const Param2: WideString; const Param3: WideString; var Data1: WideString; var Data2: WideString): WordBool; safecall; end; // *********************************************************************// // DispIntf: ICPRSExtensionDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {63DC61C4-6BE0-11D5-82E6-00C04F72C274} // *********************************************************************// ICPRSExtensionDisp = dispinterface ['{63DC61C4-6BE0-11D5-82E6-00C04F72C274}'] function Execute(const CPRSBroker: ICPRSBroker; const CPRSState: ICPRSState; const Param1: WideString; const Param2: WideString; const Param3: WideString; var Data1: WideString; var Data2: WideString): WordBool; dispid 1; end; // *********************************************************************// // Interface: IAccessibleStringGrid // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6} // *********************************************************************// IAccessibleStringGrid = interface(IDispatch) ['{EFD768F7-59C0-48D9-889E-49EDF75488A6}'] end; // *********************************************************************// // DispIntf: IAccessibleStringGridDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {EFD768F7-59C0-48D9-889E-49EDF75488A6} // *********************************************************************// IAccessibleStringGridDisp = dispinterface ['{EFD768F7-59C0-48D9-889E-49EDF75488A6}'] end; // *********************************************************************// // Interface: IAccessibleListBox // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B} // *********************************************************************// IAccessibleListBox = interface(IDispatch) ['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}'] end; // *********************************************************************// // DispIntf: IAccessibleListBoxDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {4B6A88F7-DCFE-4992-B5FC-565FDCB3829B} // *********************************************************************// IAccessibleListBoxDisp = dispinterface ['{4B6A88F7-DCFE-4992-B5FC-565FDCB3829B}'] end; // *********************************************************************// // Interface: IAccessibleTreeNode // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A} // *********************************************************************// IAccessibleTreeNode = interface(IDispatch) ['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}'] end; // *********************************************************************// // DispIntf: IAccessibleTreeNodeDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {5974D1D8-0F49-45E5-AEFE-674A61F8771A} // *********************************************************************// IAccessibleTreeNodeDisp = dispinterface ['{5974D1D8-0F49-45E5-AEFE-674A61F8771A}'] end; // *********************************************************************// // Interface: IAccessibleTreeView // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870} // *********************************************************************// IAccessibleTreeView = interface(IDispatch) ['{06AA97AB-6D67-425C-B794-15FB8C62F870}'] end; // *********************************************************************// // DispIntf: IAccessibleTreeViewDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {06AA97AB-6D67-425C-B794-15FB8C62F870} // *********************************************************************// IAccessibleTreeViewDisp = dispinterface ['{06AA97AB-6D67-425C-B794-15FB8C62F870}'] end; // *********************************************************************// // Interface: IAccessibleRichEdit // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962} // *********************************************************************// IAccessibleRichEdit = interface(IDispatch) ['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}'] end; // *********************************************************************// // DispIntf: IAccessibleRichEditDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {F2C380A5-C3DD-4AE8-81ED-C08C59E92962} // *********************************************************************// IAccessibleRichEditDisp = dispinterface ['{F2C380A5-C3DD-4AE8-81ED-C08C59E92962}'] end; // *********************************************************************// // The Class CoAccessibleStringGrid provides a Create and CreateRemote method to // create instances of the default interface IAccessibleStringGrid exposed by // the CoClass AccessibleStringGrid. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAccessibleStringGrid = class class function Create: IAccessibleStringGrid; class function CreateRemote(const MachineName: string): IAccessibleStringGrid; end; // *********************************************************************// // The Class CoAccessibleListBox provides a Create and CreateRemote method to // create instances of the default interface IAccessibleListBox exposed by // the CoClass AccessibleListBox. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAccessibleListBox = class class function Create: IAccessibleListBox; class function CreateRemote(const MachineName: string): IAccessibleListBox; end; // *********************************************************************// // The Class CoAccessibleTreeNode provides a Create and CreateRemote method to // create instances of the default interface IAccessibleTreeNode exposed by // the CoClass AccessibleTreeNode. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAccessibleTreeNode = class class function Create: IAccessibleTreeNode; class function CreateRemote(const MachineName: string): IAccessibleTreeNode; end; // *********************************************************************// // The Class CoAccessibleTreeView provides a Create and CreateRemote method to // create instances of the default interface IAccessibleTreeView exposed by // the CoClass AccessibleTreeView. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAccessibleTreeView = class class function Create: IAccessibleTreeView; class function CreateRemote(const MachineName: string): IAccessibleTreeView; end; // *********************************************************************// // The Class CoAccessibleRichEdit provides a Create and CreateRemote method to // create instances of the default interface IAccessibleRichEdit exposed by // the CoClass AccessibleRichEdit. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoAccessibleRichEdit = class class function Create: IAccessibleRichEdit; class function CreateRemote(const MachineName: string): IAccessibleRichEdit; end; implementation uses ComObj; class function CoAccessibleStringGrid.Create: IAccessibleStringGrid; begin Result := CreateComObject(CLASS_AccessibleStringGrid) as IAccessibleStringGrid; end; class function CoAccessibleStringGrid.CreateRemote(const MachineName: string): IAccessibleStringGrid; begin Result := CreateRemoteComObject(MachineName, CLASS_AccessibleStringGrid) as IAccessibleStringGrid; end; class function CoAccessibleListBox.Create: IAccessibleListBox; begin Result := CreateComObject(CLASS_AccessibleListBox) as IAccessibleListBox; end; class function CoAccessibleListBox.CreateRemote(const MachineName: string): IAccessibleListBox; begin Result := CreateRemoteComObject(MachineName, CLASS_AccessibleListBox) as IAccessibleListBox; end; class function CoAccessibleTreeNode.Create: IAccessibleTreeNode; begin Result := CreateComObject(CLASS_AccessibleTreeNode) as IAccessibleTreeNode; end; class function CoAccessibleTreeNode.CreateRemote(const MachineName: string): IAccessibleTreeNode; begin Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeNode) as IAccessibleTreeNode; end; class function CoAccessibleTreeView.Create: IAccessibleTreeView; begin Result := CreateComObject(CLASS_AccessibleTreeView) as IAccessibleTreeView; end; class function CoAccessibleTreeView.CreateRemote(const MachineName: string): IAccessibleTreeView; begin Result := CreateRemoteComObject(MachineName, CLASS_AccessibleTreeView) as IAccessibleTreeView; end; class function CoAccessibleRichEdit.Create: IAccessibleRichEdit; begin Result := CreateComObject(CLASS_AccessibleRichEdit) as IAccessibleRichEdit; end; class function CoAccessibleRichEdit.CreateRemote(const MachineName: string): IAccessibleRichEdit; begin Result := CreateRemoteComObject(MachineName, CLASS_AccessibleRichEdit) as IAccessibleRichEdit; end; end.