unit MSXML_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 : $Revision: 1.88.1.0.1.0 $ // File generated on 11/14/2000 5:05:14 PM from Type Library described below. // *************************************************************************// // 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. // ************************************************************************ // // Type Lib: C:\WINNT\System32\msxml.dll (1) // IID\LCID: {D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}\0 // Helpfile: // DepndLst: // (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB) // (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL) // Errors: // Hint: Parameter 'type' of IXMLDOMNode.nodeType changed to 'type_' // Hint: Member 'implementation' of 'IXMLDOMDocument' changed to 'implementation_' // Hint: Parameter 'type' of IXMLDOMDocument.createNode changed to 'type_' // Hint: Member 'type' of 'IXMLElement' changed to 'type_' // Hint: Member 'type' of 'IXMLElement2' changed to 'type_' // Error creating palette bitmap of (TDOMDocument) : No Server registered for this CoClass // Error creating palette bitmap of (TDOMFreeThreadedDocument) : No Server registered for this CoClass // Error creating palette bitmap of (TXMLHTTPRequest) : No Server registered for this CoClass // Error creating palette bitmap of (TXMLDSOControl) : No Server registered for this CoClass // Error creating palette bitmap of (TXMLDocument) : No Server registered for this CoClass // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. interface uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL; // *********************************************************************// // 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 MSXMLMajorVersion = 2; MSXMLMinorVersion = 0; LIBID_MSXML: TGUID = '{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}'; IID_IXMLDOMImplementation: TGUID = '{2933BF8F-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMNode: TGUID = '{2933BF80-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMNodeList: TGUID = '{2933BF82-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMNamedNodeMap: TGUID = '{2933BF83-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMDocument: TGUID = '{2933BF81-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMDocumentType: TGUID = '{2933BF8B-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMElement: TGUID = '{2933BF86-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMAttribute: TGUID = '{2933BF85-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMDocumentFragment: TGUID = '{3EFAA413-272F-11D2-836F-0000F87A7782}'; IID_IXMLDOMCharacterData: TGUID = '{2933BF84-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMText: TGUID = '{2933BF87-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMComment: TGUID = '{2933BF88-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMCDATASection: TGUID = '{2933BF8A-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMProcessingInstruction: TGUID = '{2933BF89-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMEntityReference: TGUID = '{2933BF8E-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMParseError: TGUID = '{3EFAA426-272F-11D2-836F-0000F87A7782}'; IID_IXMLDOMNotation: TGUID = '{2933BF8C-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLDOMEntity: TGUID = '{2933BF8D-7B36-11D2-B20E-00C04F983E60}'; IID_IXTLRuntime: TGUID = '{3EFAA425-272F-11D2-836F-0000F87A7782}'; DIID_XMLDOMDocumentEvents: TGUID = '{3EFAA427-272F-11D2-836F-0000F87A7782}'; CLASS_DOMDocument: TGUID = '{2933BF90-7B36-11D2-B20E-00C04F983E60}'; CLASS_DOMFreeThreadedDocument: TGUID = '{2933BF91-7B36-11D2-B20E-00C04F983E60}'; IID_IXMLHttpRequest: TGUID = '{ED8C108D-4349-11D2-91A4-00C04F7969E8}'; CLASS_XMLHTTPRequest: TGUID = '{ED8C108E-4349-11D2-91A4-00C04F7969E8}'; IID_IXMLDSOControl: TGUID = '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}'; CLASS_XMLDSOControl: TGUID = '{550DDA30-0541-11D2-9CA9-0060B0EC3D39}'; IID_IXMLElementCollection: TGUID = '{65725580-9B5D-11D0-9BFE-00C04FC99C8E}'; IID_IXMLDocument: TGUID = '{F52E2B61-18A1-11D1-B105-00805F49916B}'; IID_IXMLElement: TGUID = '{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}'; IID_IXMLDocument2: TGUID = '{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}'; IID_IXMLElement2: TGUID = '{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}'; IID_IXMLAttribute: TGUID = '{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}'; IID_IXMLError: TGUID = '{948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}'; CLASS_XMLDocument: TGUID = '{CFC399AF-D876-11D0-9C10-00C04FC99C8E}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // Constants for enum tagDOMNodeType type tagDOMNodeType = TOleEnum; const NODE_INVALID = $00000000; NODE_ELEMENT = $00000001; NODE_ATTRIBUTE = $00000002; NODE_TEXT = $00000003; NODE_CDATA_SECTION = $00000004; NODE_ENTITY_REFERENCE = $00000005; NODE_ENTITY = $00000006; NODE_PROCESSING_INSTRUCTION = $00000007; NODE_COMMENT = $00000008; NODE_DOCUMENT = $00000009; NODE_DOCUMENT_TYPE = $0000000A; NODE_DOCUMENT_FRAGMENT = $0000000B; NODE_NOTATION = $0000000C; // Constants for enum tagXMLEMEM_TYPE type tagXMLEMEM_TYPE = TOleEnum; const XMLELEMTYPE_ELEMENT = $00000000; XMLELEMTYPE_TEXT = $00000001; XMLELEMTYPE_COMMENT = $00000002; XMLELEMTYPE_DOCUMENT = $00000003; XMLELEMTYPE_DTD = $00000004; XMLELEMTYPE_PI = $00000005; XMLELEMTYPE_OTHER = $00000006; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// IXMLDOMImplementation = interface; IXMLDOMImplementationDisp = dispinterface; IXMLDOMNode = interface; IXMLDOMNodeDisp = dispinterface; IXMLDOMNodeList = interface; IXMLDOMNodeListDisp = dispinterface; IXMLDOMNamedNodeMap = interface; IXMLDOMNamedNodeMapDisp = dispinterface; IXMLDOMDocument = interface; IXMLDOMDocumentDisp = dispinterface; IXMLDOMDocumentType = interface; IXMLDOMDocumentTypeDisp = dispinterface; IXMLDOMElement = interface; IXMLDOMElementDisp = dispinterface; IXMLDOMAttribute = interface; IXMLDOMAttributeDisp = dispinterface; IXMLDOMDocumentFragment = interface; IXMLDOMDocumentFragmentDisp = dispinterface; IXMLDOMCharacterData = interface; IXMLDOMCharacterDataDisp = dispinterface; IXMLDOMText = interface; IXMLDOMTextDisp = dispinterface; IXMLDOMComment = interface; IXMLDOMCommentDisp = dispinterface; IXMLDOMCDATASection = interface; IXMLDOMCDATASectionDisp = dispinterface; IXMLDOMProcessingInstruction = interface; IXMLDOMProcessingInstructionDisp = dispinterface; IXMLDOMEntityReference = interface; IXMLDOMEntityReferenceDisp = dispinterface; IXMLDOMParseError = interface; IXMLDOMParseErrorDisp = dispinterface; IXMLDOMNotation = interface; IXMLDOMNotationDisp = dispinterface; IXMLDOMEntity = interface; IXMLDOMEntityDisp = dispinterface; IXTLRuntime = interface; IXTLRuntimeDisp = dispinterface; XMLDOMDocumentEvents = dispinterface; IXMLHttpRequest = interface; IXMLHttpRequestDisp = dispinterface; IXMLDSOControl = interface; IXMLDSOControlDisp = dispinterface; IXMLElementCollection = interface; IXMLElementCollectionDisp = dispinterface; IXMLDocument = interface; IXMLDocumentDisp = dispinterface; IXMLElement = interface; IXMLElementDisp = dispinterface; IXMLDocument2 = interface; IXMLElement2 = interface; IXMLElement2Disp = dispinterface; IXMLAttribute = interface; IXMLAttributeDisp = dispinterface; IXMLError = interface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// DOMDocument = IXMLDOMDocument; DOMFreeThreadedDocument = IXMLDOMDocument; XMLHTTPRequest = IXMLHttpRequest; XMLDSOControl = IXMLDSOControl; XMLDocument = IXMLDocument2; // *********************************************************************// // Declaration of structures, unions and aliases. // *********************************************************************// PUserType1 = ^_xml_error; {*} DOMNodeType = tagDOMNodeType; _xml_error = packed record _nLine: SYSUINT; _pchBuf: WideString; _cchBuf: SYSUINT; _ich: SYSUINT; _pszFound: WideString; _pszExpected: WideString; _reserved1: LongWord; _reserved2: LongWord; end; XMLELEM_TYPE = tagXMLEMEM_TYPE; // *********************************************************************// // Interface: IXMLDOMImplementation // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8F-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMImplementation = interface(IDispatch) ['{2933BF8F-7B36-11D2-B20E-00C04F983E60}'] function hasFeature(const feature: WideString; const version: WideString): WordBool; safecall; end; // *********************************************************************// // DispIntf: IXMLDOMImplementationDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8F-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMImplementationDisp = dispinterface ['{2933BF8F-7B36-11D2-B20E-00C04F983E60}'] function hasFeature(const feature: WideString; const version: WideString): WordBool; dispid 145; end; // *********************************************************************// // Interface: IXMLDOMNode // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF80-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNode = interface(IDispatch) ['{2933BF80-7B36-11D2-B20E-00C04F983E60}'] function Get_nodeName: WideString; safecall; function Get_nodeValue: OleVariant; safecall; procedure Set_nodeValue(value: OleVariant); safecall; function Get_nodeType: DOMNodeType; safecall; function Get_parentNode: IXMLDOMNode; safecall; function Get_childNodes: IXMLDOMNodeList; safecall; function Get_firstChild: IXMLDOMNode; safecall; function Get_lastChild: IXMLDOMNode; safecall; function Get_previousSibling: IXMLDOMNode; safecall; function Get_nextSibling: IXMLDOMNode; safecall; function Get_attributes: IXMLDOMNamedNodeMap; safecall; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; safecall; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; safecall; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; safecall; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; safecall; function hasChildNodes: WordBool; safecall; function Get_ownerDocument: IXMLDOMDocument; safecall; function cloneNode(deep: WordBool): IXMLDOMNode; safecall; function Get_nodeTypeString: WideString; safecall; function Get_text: WideString; safecall; procedure Set_text(const text: WideString); safecall; function Get_specified: WordBool; safecall; function Get_definition: IXMLDOMNode; safecall; function Get_nodeTypedValue: OleVariant; safecall; procedure Set_nodeTypedValue(typedValue: OleVariant); safecall; function Get_dataType: OleVariant; safecall; procedure Set_dataType(const dataTypeName: WideString); safecall; function Get_xml: WideString; safecall; function transformNode(const stylesheet: IXMLDOMNode): WideString; safecall; function selectNodes(const queryString: WideString): IXMLDOMNodeList; safecall; function selectSingleNode(const queryString: WideString): IXMLDOMNode; safecall; function Get_parsed: WordBool; safecall; function Get_namespaceURI: WideString; safecall; function Get_prefix: WideString; safecall; function Get_baseName: WideString; safecall; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); safecall; property nodeName: WideString read Get_nodeName; property nodeValue: OleVariant read Get_nodeValue write Set_nodeValue; property nodeType: DOMNodeType read Get_nodeType; property parentNode: IXMLDOMNode read Get_parentNode; property childNodes: IXMLDOMNodeList read Get_childNodes; property firstChild: IXMLDOMNode read Get_firstChild; property lastChild: IXMLDOMNode read Get_lastChild; property previousSibling: IXMLDOMNode read Get_previousSibling; property nextSibling: IXMLDOMNode read Get_nextSibling; property attributes: IXMLDOMNamedNodeMap read Get_attributes; property ownerDocument: IXMLDOMDocument read Get_ownerDocument; property nodeTypeString: WideString read Get_nodeTypeString; property text: WideString read Get_text write Set_text; property specified: WordBool read Get_specified; property definition: IXMLDOMNode read Get_definition; property nodeTypedValue: OleVariant read Get_nodeTypedValue write Set_nodeTypedValue; property xml: WideString read Get_xml; property parsed: WordBool read Get_parsed; property namespaceURI: WideString read Get_namespaceURI; property prefix: WideString read Get_prefix; property baseName: WideString read Get_baseName; end; // *********************************************************************// // DispIntf: IXMLDOMNodeDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF80-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNodeDisp = dispinterface ['{2933BF80-7B36-11D2-B20E-00C04F983E60}'] property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMNodeList // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF82-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNodeList = interface(IDispatch) ['{2933BF82-7B36-11D2-B20E-00C04F983E60}'] function Get_item(index: Integer): IXMLDOMNode; safecall; function Get_length: Integer; safecall; function nextNode: IXMLDOMNode; safecall; procedure reset; safecall; function Get__newEnum: IUnknown; safecall; property item[index: Integer]: IXMLDOMNode read Get_item; default; property length: Integer read Get_length; property _newEnum: IUnknown read Get__newEnum; end; // *********************************************************************// // DispIntf: IXMLDOMNodeListDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF82-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNodeListDisp = dispinterface ['{2933BF82-7B36-11D2-B20E-00C04F983E60}'] property item[index: Integer]: IXMLDOMNode readonly dispid 0; default; property length: Integer readonly dispid 74; function nextNode: IXMLDOMNode; dispid 76; procedure reset; dispid 77; property _newEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IXMLDOMNamedNodeMap // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF83-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNamedNodeMap = interface(IDispatch) ['{2933BF83-7B36-11D2-B20E-00C04F983E60}'] function getNamedItem(const name: WideString): IXMLDOMNode; safecall; function setNamedItem(const newItem: IXMLDOMNode): IXMLDOMNode; safecall; function removeNamedItem(const name: WideString): IXMLDOMNode; safecall; function Get_item(index: Integer): IXMLDOMNode; safecall; function Get_length: Integer; safecall; function getQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall; function removeQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall; function nextNode: IXMLDOMNode; safecall; procedure reset; safecall; function Get__newEnum: IUnknown; safecall; property item[index: Integer]: IXMLDOMNode read Get_item; default; property length: Integer read Get_length; property _newEnum: IUnknown read Get__newEnum; end; // *********************************************************************// // DispIntf: IXMLDOMNamedNodeMapDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF83-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNamedNodeMapDisp = dispinterface ['{2933BF83-7B36-11D2-B20E-00C04F983E60}'] function getNamedItem(const name: WideString): IXMLDOMNode; dispid 83; function setNamedItem(const newItem: IXMLDOMNode): IXMLDOMNode; dispid 84; function removeNamedItem(const name: WideString): IXMLDOMNode; dispid 85; property item[index: Integer]: IXMLDOMNode readonly dispid 0; default; property length: Integer readonly dispid 74; function getQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; dispid 87; function removeQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; dispid 88; function nextNode: IXMLDOMNode; dispid 89; procedure reset; dispid 90; property _newEnum: IUnknown readonly dispid -4; end; // *********************************************************************// // Interface: IXMLDOMDocument // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF81-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMDocument = interface(IXMLDOMNode) ['{2933BF81-7B36-11D2-B20E-00C04F983E60}'] function Get_doctype: IXMLDOMDocumentType; safecall; function Get_implementation_: IXMLDOMImplementation; safecall; function Get_documentElement: IXMLDOMElement; safecall; procedure Set_documentElement(const DOMElement: IXMLDOMElement); safecall; function createElement(const tagName: WideString): IXMLDOMElement; safecall; function createDocumentFragment: IXMLDOMDocumentFragment; safecall; function createTextNode(const data: WideString): IXMLDOMText; safecall; function createComment(const data: WideString): IXMLDOMComment; safecall; function createCDATASection(const data: WideString): IXMLDOMCDATASection; safecall; function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; safecall; function createAttribute(const name: WideString): IXMLDOMAttribute; safecall; function createEntityReference(const name: WideString): IXMLDOMEntityReference; safecall; function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; safecall; function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall; function nodeFromID(const idString: WideString): IXMLDOMNode; safecall; function load(xmlSource: OleVariant): WordBool; safecall; function Get_readyState: Integer; safecall; function Get_parseError: IXMLDOMParseError; safecall; function Get_url: WideString; safecall; function Get_async: WordBool; safecall; procedure Set_async(isAsync: WordBool); safecall; procedure abort; safecall; function loadXML(const bstrXML: WideString): WordBool; safecall; procedure save(desination: OleVariant); safecall; function Get_validateOnParse: WordBool; safecall; procedure Set_validateOnParse(isValidating: WordBool); safecall; function Get_resolveExternals: WordBool; safecall; procedure Set_resolveExternals(isResolving: WordBool); safecall; function Get_preserveWhiteSpace: WordBool; safecall; procedure Set_preserveWhiteSpace(isPreserving: WordBool); safecall; procedure Set_onreadystatechange(Param1: OleVariant); safecall; procedure Set_ondataavailable(Param1: OleVariant); safecall; procedure Set_ontransformnode(Param1: OleVariant); safecall; property doctype: IXMLDOMDocumentType read Get_doctype; property implementation_: IXMLDOMImplementation read Get_implementation_; property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement; property readyState: Integer read Get_readyState; property parseError: IXMLDOMParseError read Get_parseError; property url: WideString read Get_url; property async: WordBool read Get_async write Set_async; property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse; property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals; property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace; property onreadystatechange: OleVariant write Set_onreadystatechange; property ondataavailable: OleVariant write Set_ondataavailable; property ontransformnode: OleVariant write Set_ontransformnode; end; // *********************************************************************// // DispIntf: IXMLDOMDocumentDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF81-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMDocumentDisp = dispinterface ['{2933BF81-7B36-11D2-B20E-00C04F983E60}'] property doctype: IXMLDOMDocumentType readonly dispid 38; property implementation_: IXMLDOMImplementation readonly dispid 39; property documentElement: IXMLDOMElement dispid 40; function createElement(const tagName: WideString): IXMLDOMElement; dispid 41; function createDocumentFragment: IXMLDOMDocumentFragment; dispid 42; function createTextNode(const data: WideString): IXMLDOMText; dispid 43; function createComment(const data: WideString): IXMLDOMComment; dispid 44; function createCDATASection(const data: WideString): IXMLDOMCDATASection; dispid 45; function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; dispid 46; function createAttribute(const name: WideString): IXMLDOMAttribute; dispid 47; function createEntityReference(const name: WideString): IXMLDOMEntityReference; dispid 49; function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; dispid 50; function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; dispid 54; function nodeFromID(const idString: WideString): IXMLDOMNode; dispid 56; function load(xmlSource: OleVariant): WordBool; dispid 58; property readyState: Integer readonly dispid -525; property parseError: IXMLDOMParseError readonly dispid 59; property url: WideString readonly dispid 60; property async: WordBool dispid 61; procedure abort; dispid 62; function loadXML(const bstrXML: WideString): WordBool; dispid 63; procedure save(desination: OleVariant); dispid 64; property validateOnParse: WordBool dispid 65; property resolveExternals: WordBool dispid 66; property preserveWhiteSpace: WordBool dispid 67; property onreadystatechange: OleVariant writeonly dispid 68; property ondataavailable: OleVariant writeonly dispid 69; property ontransformnode: OleVariant writeonly dispid 70; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMDocumentType // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8B-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMDocumentType = interface(IXMLDOMNode) ['{2933BF8B-7B36-11D2-B20E-00C04F983E60}'] function Get_name: WideString; safecall; function Get_entities: IXMLDOMNamedNodeMap; safecall; function Get_notations: IXMLDOMNamedNodeMap; safecall; property name: WideString read Get_name; property entities: IXMLDOMNamedNodeMap read Get_entities; property notations: IXMLDOMNamedNodeMap read Get_notations; end; // *********************************************************************// // DispIntf: IXMLDOMDocumentTypeDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8B-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMDocumentTypeDisp = dispinterface ['{2933BF8B-7B36-11D2-B20E-00C04F983E60}'] property name: WideString readonly dispid 131; property entities: IXMLDOMNamedNodeMap readonly dispid 132; property notations: IXMLDOMNamedNodeMap readonly dispid 133; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMElement // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF86-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMElement = interface(IXMLDOMNode) ['{2933BF86-7B36-11D2-B20E-00C04F983E60}'] function Get_tagName: WideString; safecall; function getAttribute(const name: WideString): OleVariant; safecall; procedure setAttribute(const name: WideString; value: OleVariant); safecall; procedure removeAttribute(const name: WideString); safecall; function getAttributeNode(const name: WideString): IXMLDOMAttribute; safecall; function setAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; safecall; function removeAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; safecall; function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; safecall; procedure normalize; safecall; property tagName: WideString read Get_tagName; end; // *********************************************************************// // DispIntf: IXMLDOMElementDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF86-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMElementDisp = dispinterface ['{2933BF86-7B36-11D2-B20E-00C04F983E60}'] property tagName: WideString readonly dispid 97; function getAttribute(const name: WideString): OleVariant; dispid 99; procedure setAttribute(const name: WideString; value: OleVariant); dispid 100; procedure removeAttribute(const name: WideString); dispid 101; function getAttributeNode(const name: WideString): IXMLDOMAttribute; dispid 102; function setAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; dispid 103; function removeAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; dispid 104; function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; dispid 105; procedure normalize; dispid 106; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMAttribute // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF85-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMAttribute = interface(IXMLDOMNode) ['{2933BF85-7B36-11D2-B20E-00C04F983E60}'] function Get_name: WideString; safecall; function Get_value: OleVariant; safecall; procedure Set_value(attributeValue: OleVariant); safecall; property name: WideString read Get_name; property value: OleVariant read Get_value write Set_value; end; // *********************************************************************// // DispIntf: IXMLDOMAttributeDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF85-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMAttributeDisp = dispinterface ['{2933BF85-7B36-11D2-B20E-00C04F983E60}'] property name: WideString readonly dispid 118; property value: OleVariant dispid 120; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMDocumentFragment // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {3EFAA413-272F-11D2-836F-0000F87A7782} // *********************************************************************// IXMLDOMDocumentFragment = interface(IXMLDOMNode) ['{3EFAA413-272F-11D2-836F-0000F87A7782}'] end; // *********************************************************************// // DispIntf: IXMLDOMDocumentFragmentDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {3EFAA413-272F-11D2-836F-0000F87A7782} // *********************************************************************// IXMLDOMDocumentFragmentDisp = dispinterface ['{3EFAA413-272F-11D2-836F-0000F87A7782}'] property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMCharacterData // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF84-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMCharacterData = interface(IXMLDOMNode) ['{2933BF84-7B36-11D2-B20E-00C04F983E60}'] function Get_data: WideString; safecall; procedure Set_data(const data: WideString); safecall; function Get_length: Integer; safecall; function substringData(offset: Integer; count: Integer): WideString; safecall; procedure appendData(const data: WideString); safecall; procedure insertData(offset: Integer; const data: WideString); safecall; procedure deleteData(offset: Integer; count: Integer); safecall; procedure replaceData(offset: Integer; count: Integer; const data: WideString); safecall; property data: WideString read Get_data write Set_data; property length: Integer read Get_length; end; // *********************************************************************// // DispIntf: IXMLDOMCharacterDataDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF84-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMCharacterDataDisp = dispinterface ['{2933BF84-7B36-11D2-B20E-00C04F983E60}'] property data: WideString dispid 109; property length: Integer readonly dispid 110; function substringData(offset: Integer; count: Integer): WideString; dispid 111; procedure appendData(const data: WideString); dispid 112; procedure insertData(offset: Integer; const data: WideString); dispid 113; procedure deleteData(offset: Integer; count: Integer); dispid 114; procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMText // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF87-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMText = interface(IXMLDOMCharacterData) ['{2933BF87-7B36-11D2-B20E-00C04F983E60}'] function splitText(offset: Integer): IXMLDOMText; safecall; end; // *********************************************************************// // DispIntf: IXMLDOMTextDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF87-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMTextDisp = dispinterface ['{2933BF87-7B36-11D2-B20E-00C04F983E60}'] function splitText(offset: Integer): IXMLDOMText; dispid 123; property data: WideString dispid 109; property length: Integer readonly dispid 110; function substringData(offset: Integer; count: Integer): WideString; dispid 111; procedure appendData(const data: WideString); dispid 112; procedure insertData(offset: Integer; const data: WideString); dispid 113; procedure deleteData(offset: Integer; count: Integer); dispid 114; procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMComment // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF88-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMComment = interface(IXMLDOMCharacterData) ['{2933BF88-7B36-11D2-B20E-00C04F983E60}'] end; // *********************************************************************// // DispIntf: IXMLDOMCommentDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF88-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMCommentDisp = dispinterface ['{2933BF88-7B36-11D2-B20E-00C04F983E60}'] property data: WideString dispid 109; property length: Integer readonly dispid 110; function substringData(offset: Integer; count: Integer): WideString; dispid 111; procedure appendData(const data: WideString); dispid 112; procedure insertData(offset: Integer; const data: WideString); dispid 113; procedure deleteData(offset: Integer; count: Integer); dispid 114; procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMCDATASection // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8A-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMCDATASection = interface(IXMLDOMText) ['{2933BF8A-7B36-11D2-B20E-00C04F983E60}'] end; // *********************************************************************// // DispIntf: IXMLDOMCDATASectionDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8A-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMCDATASectionDisp = dispinterface ['{2933BF8A-7B36-11D2-B20E-00C04F983E60}'] function splitText(offset: Integer): IXMLDOMText; dispid 123; property data: WideString dispid 109; property length: Integer readonly dispid 110; function substringData(offset: Integer; count: Integer): WideString; dispid 111; procedure appendData(const data: WideString); dispid 112; procedure insertData(offset: Integer; const data: WideString); dispid 113; procedure deleteData(offset: Integer; count: Integer); dispid 114; procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMProcessingInstruction // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF89-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMProcessingInstruction = interface(IXMLDOMNode) ['{2933BF89-7B36-11D2-B20E-00C04F983E60}'] function Get_target: WideString; safecall; function Get_data: WideString; safecall; procedure Set_data(const value: WideString); safecall; property target: WideString read Get_target; property data: WideString read Get_data write Set_data; end; // *********************************************************************// // DispIntf: IXMLDOMProcessingInstructionDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF89-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMProcessingInstructionDisp = dispinterface ['{2933BF89-7B36-11D2-B20E-00C04F983E60}'] property target: WideString readonly dispid 127; property data: WideString dispid 128; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMEntityReference // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8E-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMEntityReference = interface(IXMLDOMNode) ['{2933BF8E-7B36-11D2-B20E-00C04F983E60}'] end; // *********************************************************************// // DispIntf: IXMLDOMEntityReferenceDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8E-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMEntityReferenceDisp = dispinterface ['{2933BF8E-7B36-11D2-B20E-00C04F983E60}'] property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMParseError // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {3EFAA426-272F-11D2-836F-0000F87A7782} // *********************************************************************// IXMLDOMParseError = interface(IDispatch) ['{3EFAA426-272F-11D2-836F-0000F87A7782}'] function Get_errorCode: Integer; safecall; function Get_url: WideString; safecall; function Get_reason: WideString; safecall; function Get_srcText: WideString; safecall; function Get_line: Integer; safecall; function Get_linepos: Integer; safecall; function Get_filepos: Integer; safecall; property errorCode: Integer read Get_errorCode; property url: WideString read Get_url; property reason: WideString read Get_reason; property srcText: WideString read Get_srcText; property line: Integer read Get_line; property linepos: Integer read Get_linepos; property filepos: Integer read Get_filepos; end; // *********************************************************************// // DispIntf: IXMLDOMParseErrorDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {3EFAA426-272F-11D2-836F-0000F87A7782} // *********************************************************************// IXMLDOMParseErrorDisp = dispinterface ['{3EFAA426-272F-11D2-836F-0000F87A7782}'] property errorCode: Integer readonly dispid 0; property url: WideString readonly dispid 179; property reason: WideString readonly dispid 180; property srcText: WideString readonly dispid 181; property line: Integer readonly dispid 182; property linepos: Integer readonly dispid 183; property filepos: Integer readonly dispid 184; end; // *********************************************************************// // Interface: IXMLDOMNotation // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8C-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNotation = interface(IXMLDOMNode) ['{2933BF8C-7B36-11D2-B20E-00C04F983E60}'] function Get_publicId: OleVariant; safecall; function Get_systemId: OleVariant; safecall; property publicId: OleVariant read Get_publicId; property systemId: OleVariant read Get_systemId; end; // *********************************************************************// // DispIntf: IXMLDOMNotationDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8C-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMNotationDisp = dispinterface ['{2933BF8C-7B36-11D2-B20E-00C04F983E60}'] property publicId: OleVariant readonly dispid 136; property systemId: OleVariant readonly dispid 137; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXMLDOMEntity // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8D-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMEntity = interface(IXMLDOMNode) ['{2933BF8D-7B36-11D2-B20E-00C04F983E60}'] function Get_publicId: OleVariant; safecall; function Get_systemId: OleVariant; safecall; function Get_notationName: WideString; safecall; property publicId: OleVariant read Get_publicId; property systemId: OleVariant read Get_systemId; property notationName: WideString read Get_notationName; end; // *********************************************************************// // DispIntf: IXMLDOMEntityDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {2933BF8D-7B36-11D2-B20E-00C04F983E60} // *********************************************************************// IXMLDOMEntityDisp = dispinterface ['{2933BF8D-7B36-11D2-B20E-00C04F983E60}'] property publicId: OleVariant readonly dispid 140; property systemId: OleVariant readonly dispid 141; property notationName: WideString readonly dispid 142; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // Interface: IXTLRuntime // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {3EFAA425-272F-11D2-836F-0000F87A7782} // *********************************************************************// IXTLRuntime = interface(IXMLDOMNode) ['{3EFAA425-272F-11D2-836F-0000F87A7782}'] function uniqueID(const pNode: IXMLDOMNode): Integer; safecall; function depth(const pNode: IXMLDOMNode): Integer; safecall; function childNumber(const pNode: IXMLDOMNode): Integer; safecall; function ancestorChildNumber(const bstrNodeName: WideString; const pNode: IXMLDOMNode): Integer; safecall; function absoluteChildNumber(const pNode: IXMLDOMNode): Integer; safecall; function formatIndex(lIndex: Integer; const bstrFormat: WideString): WideString; safecall; function formatNumber(dblNumber: Double; const bstrFormat: WideString): WideString; safecall; function formatDate(varDate: OleVariant; const bstrFormat: WideString; varDestLocale: OleVariant): WideString; safecall; function formatTime(varTime: OleVariant; const bstrFormat: WideString; varDestLocale: OleVariant): WideString; safecall; end; // *********************************************************************// // DispIntf: IXTLRuntimeDisp // Flags: (4544) Dual NonExtensible OleAutomation Dispatchable // GUID: {3EFAA425-272F-11D2-836F-0000F87A7782} // *********************************************************************// IXTLRuntimeDisp = dispinterface ['{3EFAA425-272F-11D2-836F-0000F87A7782}'] function uniqueID(const pNode: IXMLDOMNode): Integer; dispid 187; function depth(const pNode: IXMLDOMNode): Integer; dispid 188; function childNumber(const pNode: IXMLDOMNode): Integer; dispid 189; function ancestorChildNumber(const bstrNodeName: WideString; const pNode: IXMLDOMNode): Integer; dispid 190; function absoluteChildNumber(const pNode: IXMLDOMNode): Integer; dispid 191; function formatIndex(lIndex: Integer; const bstrFormat: WideString): WideString; dispid 192; function formatNumber(dblNumber: Double; const bstrFormat: WideString): WideString; dispid 193; function formatDate(varDate: OleVariant; const bstrFormat: WideString; varDestLocale: OleVariant): WideString; dispid 194; function formatTime(varTime: OleVariant; const bstrFormat: WideString; varDestLocale: OleVariant): WideString; dispid 195; property nodeName: WideString readonly dispid 2; property nodeValue: OleVariant dispid 3; property nodeType: DOMNodeType readonly dispid 4; property parentNode: IXMLDOMNode readonly dispid 6; property childNodes: IXMLDOMNodeList readonly dispid 7; property firstChild: IXMLDOMNode readonly dispid 8; property lastChild: IXMLDOMNode readonly dispid 9; property previousSibling: IXMLDOMNode readonly dispid 10; property nextSibling: IXMLDOMNode readonly dispid 11; property attributes: IXMLDOMNamedNodeMap readonly dispid 12; function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13; function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14; function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15; function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16; function hasChildNodes: WordBool; dispid 17; property ownerDocument: IXMLDOMDocument readonly dispid 18; function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19; property nodeTypeString: WideString readonly dispid 21; property text: WideString dispid 24; property specified: WordBool readonly dispid 22; property definition: IXMLDOMNode readonly dispid 23; property nodeTypedValue: OleVariant dispid 25; function dataType: OleVariant; dispid 26; property xml: WideString readonly dispid 27; function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28; function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29; function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30; property parsed: WordBool readonly dispid 31; property namespaceURI: WideString readonly dispid 32; property prefix: WideString readonly dispid 33; property baseName: WideString readonly dispid 34; procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35; end; // *********************************************************************// // DispIntf: XMLDOMDocumentEvents // Flags: (4112) Hidden Dispatchable // GUID: {3EFAA427-272F-11D2-836F-0000F87A7782} // *********************************************************************// XMLDOMDocumentEvents = dispinterface ['{3EFAA427-272F-11D2-836F-0000F87A7782}'] procedure ondataavailable; dispid 198; procedure onreadystatechange; dispid -609; end; // *********************************************************************// // Interface: IXMLHttpRequest // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {ED8C108D-4349-11D2-91A4-00C04F7969E8} // *********************************************************************// IXMLHttpRequest = interface(IDispatch) ['{ED8C108D-4349-11D2-91A4-00C04F7969E8}'] procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant); safecall; procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString); safecall; function getResponseHeader(const bstrHeader: WideString): WideString; safecall; function getAllResponseHeaders: WideString; safecall; procedure send(varBody: OleVariant); safecall; procedure abort; safecall; function Get_status: Integer; safecall; function Get_statusText: WideString; safecall; function Get_responseXML: IDispatch; safecall; function Get_responseText: WideString; safecall; function Get_responseBody: OleVariant; safecall; function Get_responseStream: OleVariant; safecall; function Get_readyState: Integer; safecall; procedure Set_onreadystatechange(const Param1: IDispatch); safecall; property status: Integer read Get_status; property statusText: WideString read Get_statusText; property responseXML: IDispatch read Get_responseXML; property responseText: WideString read Get_responseText; property responseBody: OleVariant read Get_responseBody; property responseStream: OleVariant read Get_responseStream; property readyState: Integer read Get_readyState; property onreadystatechange: IDispatch write Set_onreadystatechange; end; // *********************************************************************// // DispIntf: IXMLHttpRequestDisp // Flags: (4416) Dual OleAutomation Dispatchable // GUID: {ED8C108D-4349-11D2-91A4-00C04F7969E8} // *********************************************************************// IXMLHttpRequestDisp = dispinterface ['{ED8C108D-4349-11D2-91A4-00C04F7969E8}'] procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant); dispid 1; procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString); dispid 2; function getResponseHeader(const bstrHeader: WideString): WideString; dispid 3; function getAllResponseHeaders: WideString; dispid 4; procedure send(varBody: OleVariant); dispid 5; procedure abort; dispid 6; property status: Integer readonly dispid 7; property statusText: WideString readonly dispid 8; property responseXML: IDispatch readonly dispid 9; property responseText: WideString readonly dispid 10; property responseBody: OleVariant readonly dispid 11; property responseStream: OleVariant readonly dispid 12; property readyState: Integer readonly dispid 13; property onreadystatechange: IDispatch writeonly dispid 14; end; // *********************************************************************// // Interface: IXMLDSOControl // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {310AFA62-0575-11D2-9CA9-0060B0EC3D39} // *********************************************************************// IXMLDSOControl = interface(IDispatch) ['{310AFA62-0575-11D2-9CA9-0060B0EC3D39}'] function Get_XMLDocument: IXMLDOMDocument; safecall; procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument); safecall; function Get_JavaDSOCompatible: Integer; safecall; procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer); safecall; function Get_readyState: Integer; safecall; property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument; property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible; property readyState: Integer read Get_readyState; end; // *********************************************************************// // DispIntf: IXMLDSOControlDisp // Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable // GUID: {310AFA62-0575-11D2-9CA9-0060B0EC3D39} // *********************************************************************// IXMLDSOControlDisp = dispinterface ['{310AFA62-0575-11D2-9CA9-0060B0EC3D39}'] property XMLDocument: IXMLDOMDocument dispid 65537; property JavaDSOCompatible: Integer dispid 65538; property readyState: Integer readonly dispid -525; end; // *********************************************************************// // Interface: IXMLElementCollection // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {65725580-9B5D-11D0-9BFE-00C04FC99C8E} // *********************************************************************// IXMLElementCollection = interface(IDispatch) ['{65725580-9B5D-11D0-9BFE-00C04FC99C8E}'] procedure Set_length(p: Integer); safecall; function Get_length: Integer; safecall; function Get__newEnum: IUnknown; safecall; function item(var1: OleVariant; var2: OleVariant): IDispatch; safecall; property length: Integer read Get_length write Set_length; property _newEnum: IUnknown read Get__newEnum; end; // *********************************************************************// // DispIntf: IXMLElementCollectionDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {65725580-9B5D-11D0-9BFE-00C04FC99C8E} // *********************************************************************// IXMLElementCollectionDisp = dispinterface ['{65725580-9B5D-11D0-9BFE-00C04FC99C8E}'] property length: Integer dispid 65537; property _newEnum: IUnknown readonly dispid -4; function item(var1: OleVariant; var2: OleVariant): IDispatch; dispid 65539; end; // *********************************************************************// // Interface: IXMLDocument // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {F52E2B61-18A1-11D1-B105-00805F49916B} // *********************************************************************// IXMLDocument = interface(IDispatch) ['{F52E2B61-18A1-11D1-B105-00805F49916B}'] function Get_root: IXMLElement; safecall; function Get_fileSize: WideString; safecall; function Get_fileModifiedDate: WideString; safecall; function Get_fileUpdatedDate: WideString; safecall; function Get_url: WideString; safecall; procedure Set_url(const p: WideString); safecall; function Get_mimeType: WideString; safecall; function Get_readyState: Integer; safecall; function Get_charset: WideString; safecall; procedure Set_charset(const p: WideString); safecall; function Get_version: WideString; safecall; function Get_doctype: WideString; safecall; function Get_dtdURL: WideString; safecall; function createElement(vType: OleVariant; var1: OleVariant): IXMLElement; safecall; property root: IXMLElement read Get_root; property fileSize: WideString read Get_fileSize; property fileModifiedDate: WideString read Get_fileModifiedDate; property fileUpdatedDate: WideString read Get_fileUpdatedDate; property url: WideString read Get_url write Set_url; property mimeType: WideString read Get_mimeType; property readyState: Integer read Get_readyState; property charset: WideString read Get_charset write Set_charset; property version: WideString read Get_version; property doctype: WideString read Get_doctype; property dtdURL: WideString read Get_dtdURL; end; // *********************************************************************// // DispIntf: IXMLDocumentDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {F52E2B61-18A1-11D1-B105-00805F49916B} // *********************************************************************// IXMLDocumentDisp = dispinterface ['{F52E2B61-18A1-11D1-B105-00805F49916B}'] property root: IXMLElement readonly dispid 65637; property fileSize: WideString readonly dispid 65638; property fileModifiedDate: WideString readonly dispid 65639; property fileUpdatedDate: WideString readonly dispid 65640; property url: WideString dispid 65641; property mimeType: WideString readonly dispid 65642; property readyState: Integer readonly dispid 65643; property charset: WideString dispid 65645; property version: WideString readonly dispid 65646; property doctype: WideString readonly dispid 65647; property dtdURL: WideString readonly dispid 65648; function createElement(vType: OleVariant; var1: OleVariant): IXMLElement; dispid 65644; end; // *********************************************************************// // Interface: IXMLElement // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {3F7F31AC-E15F-11D0-9C25-00C04FC99C8E} // *********************************************************************// IXMLElement = interface(IDispatch) ['{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}'] function Get_tagName: WideString; safecall; procedure Set_tagName(const p: WideString); safecall; function Get_parent: IXMLElement; safecall; procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall; function getAttribute(const strPropertyName: WideString): OleVariant; safecall; procedure removeAttribute(const strPropertyName: WideString); safecall; function Get_children: IXMLElementCollection; safecall; function Get_type_: Integer; safecall; function Get_text: WideString; safecall; procedure Set_text(const p: WideString); safecall; procedure addChild(const pChildElem: IXMLElement; lIndex: Integer; lReserved: Integer); safecall; procedure removeChild(const pChildElem: IXMLElement); safecall; property tagName: WideString read Get_tagName write Set_tagName; property parent: IXMLElement read Get_parent; property children: IXMLElementCollection read Get_children; property type_: Integer read Get_type_; property text: WideString read Get_text write Set_text; end; // *********************************************************************// // DispIntf: IXMLElementDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {3F7F31AC-E15F-11D0-9C25-00C04FC99C8E} // *********************************************************************// IXMLElementDisp = dispinterface ['{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}'] property tagName: WideString dispid 65737; property parent: IXMLElement readonly dispid 65738; procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); dispid 65739; function getAttribute(const strPropertyName: WideString): OleVariant; dispid 65740; procedure removeAttribute(const strPropertyName: WideString); dispid 65741; property children: IXMLElementCollection readonly dispid 65742; property type_: Integer readonly dispid 65743; property text: WideString dispid 65744; procedure addChild(const pChildElem: IXMLElement; lIndex: Integer; lReserved: Integer); dispid 65745; procedure removeChild(const pChildElem: IXMLElement); dispid 65746; end; // *********************************************************************// // Interface: IXMLDocument2 // Flags: (4112) Hidden Dispatchable // GUID: {2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9} // *********************************************************************// IXMLDocument2 = interface(IDispatch) ['{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}'] function Get_root(out p: IXMLElement2): HResult; stdcall; function Get_fileSize(out p: WideString): HResult; stdcall; function Get_fileModifiedDate(out p: WideString): HResult; stdcall; function Get_fileUpdatedDate(out p: WideString): HResult; stdcall; function Get_url(out p: WideString): HResult; stdcall; function Set_url(const p: WideString): HResult; stdcall; function Get_mimeType(out p: WideString): HResult; stdcall; function Get_readyState(out pl: Integer): HResult; stdcall; function Get_charset(out p: WideString): HResult; stdcall; function Set_charset(const p: WideString): HResult; stdcall; function Get_version(out p: WideString): HResult; stdcall; function Get_doctype(out p: WideString): HResult; stdcall; function Get_dtdURL(out p: WideString): HResult; stdcall; function createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult; stdcall; function Get_async(out pf: WordBool): HResult; stdcall; function Set_async(pf: WordBool): HResult; stdcall; end; // *********************************************************************// // Interface: IXMLElement2 // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9} // *********************************************************************// IXMLElement2 = interface(IDispatch) ['{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}'] function Get_tagName: WideString; safecall; procedure Set_tagName(const p: WideString); safecall; function Get_parent: IXMLElement2; safecall; procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall; function getAttribute(const strPropertyName: WideString): OleVariant; safecall; procedure removeAttribute(const strPropertyName: WideString); safecall; function Get_children: IXMLElementCollection; safecall; function Get_type_: Integer; safecall; function Get_text: WideString; safecall; procedure Set_text(const p: WideString); safecall; procedure addChild(const pChildElem: IXMLElement2; lIndex: Integer; lReserved: Integer); safecall; procedure removeChild(const pChildElem: IXMLElement2); safecall; function Get_attributes: IXMLElementCollection; safecall; property tagName: WideString read Get_tagName write Set_tagName; property parent: IXMLElement2 read Get_parent; property children: IXMLElementCollection read Get_children; property type_: Integer read Get_type_; property text: WideString read Get_text write Set_text; property attributes: IXMLElementCollection read Get_attributes; end; // *********************************************************************// // DispIntf: IXMLElement2Disp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9} // *********************************************************************// IXMLElement2Disp = dispinterface ['{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}'] property tagName: WideString dispid 65737; property parent: IXMLElement2 readonly dispid 65738; procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); dispid 65739; function getAttribute(const strPropertyName: WideString): OleVariant; dispid 65740; procedure removeAttribute(const strPropertyName: WideString); dispid 65741; property children: IXMLElementCollection readonly dispid 65742; property type_: Integer readonly dispid 65743; property text: WideString dispid 65744; procedure addChild(const pChildElem: IXMLElement2; lIndex: Integer; lReserved: Integer); dispid 65745; procedure removeChild(const pChildElem: IXMLElement2); dispid 65746; property attributes: IXMLElementCollection readonly dispid 65747; end; // *********************************************************************// // Interface: IXMLAttribute // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {D4D4A0FC-3B73-11D1-B2B4-00C04FB92596} // *********************************************************************// IXMLAttribute = interface(IDispatch) ['{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}'] function Get_name: WideString; safecall; function Get_value: WideString; safecall; property name: WideString read Get_name; property value: WideString read Get_value; end; // *********************************************************************// // DispIntf: IXMLAttributeDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {D4D4A0FC-3B73-11D1-B2B4-00C04FB92596} // *********************************************************************// IXMLAttributeDisp = dispinterface ['{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}'] property name: WideString readonly dispid 65937; property value: WideString readonly dispid 65938; end; // *********************************************************************// // Interface: IXMLError // Flags: (16) Hidden // GUID: {948C5AD3-C58D-11D0-9C0B-00C04FC99C8E} // *********************************************************************// IXMLError = interface(IUnknown) ['{948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}'] function GetErrorInfo(var pErrorReturn: _xml_error): HResult; stdcall; end; // *********************************************************************// // The Class CoDOMDocument provides a Create and CreateRemote method to // create instances of the default interface IXMLDOMDocument exposed by // the CoClass DOMDocument. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDOMDocument = class class function Create: IXMLDOMDocument; class function CreateRemote(const MachineName: string): IXMLDOMDocument; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDOMDocument // Help String : W3C-DOM XML Document // Default Interface: IXMLDOMDocument // Def. Intf. DISP? : No // Event Interface: XMLDOMDocumentEvents // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDOMDocumentProperties= class; {$ENDIF} TDOMDocument = class(TOleServer) private FOnondataavailable: TNotifyEvent; FOnonreadystatechange: TNotifyEvent; FIntf: IXMLDOMDocument; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDOMDocumentProperties; function GetServerProperties: TDOMDocumentProperties; {$ENDIF} function GetDefaultInterface: IXMLDOMDocument; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_doctype: IXMLDOMDocumentType; function Get_implementation_: IXMLDOMImplementation; function Get_documentElement: IXMLDOMElement; procedure Set_documentElement(const DOMElement: IXMLDOMElement); function Get_readyState: Integer; function Get_parseError: IXMLDOMParseError; function Get_url: WideString; function Get_async: WordBool; procedure Set_async(isAsync: WordBool); function Get_validateOnParse: WordBool; procedure Set_validateOnParse(isValidating: WordBool); function Get_resolveExternals: WordBool; procedure Set_resolveExternals(isResolving: WordBool); function Get_preserveWhiteSpace: WordBool; procedure Set_preserveWhiteSpace(isPreserving: WordBool); procedure Set_onreadystatechange(Param1: OleVariant); procedure Set_ondataavailable(Param1: OleVariant); procedure Set_ontransformnode(Param1: OleVariant); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IXMLDOMDocument); procedure Disconnect; override; function createElement(const tagName: WideString): IXMLDOMElement; function createDocumentFragment: IXMLDOMDocumentFragment; function createTextNode(const data: WideString): IXMLDOMText; function createComment(const data: WideString): IXMLDOMComment; function createCDATASection(const data: WideString): IXMLDOMCDATASection; function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; function createAttribute(const name: WideString): IXMLDOMAttribute; function createEntityReference(const name: WideString): IXMLDOMEntityReference; function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; function nodeFromID(const idString: WideString): IXMLDOMNode; function load(xmlSource: OleVariant): WordBool; procedure abort; function loadXML(const bstrXML: WideString): WordBool; procedure save(desination: OleVariant); property DefaultInterface: IXMLDOMDocument read GetDefaultInterface; property doctype: IXMLDOMDocumentType read Get_doctype; property implementation_: IXMLDOMImplementation read Get_implementation_; property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement; property readyState: Integer read Get_readyState; property parseError: IXMLDOMParseError read Get_parseError; property url: WideString read Get_url; property onreadystatechange: OleVariant write Set_onreadystatechange; property ondataavailable: OleVariant write Set_ondataavailable; property ontransformnode: OleVariant write Set_ontransformnode; property async: WordBool read Get_async write Set_async; property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse; property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals; property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDOMDocumentProperties read GetServerProperties; {$ENDIF} property Onondataavailable: TNotifyEvent read FOnondataavailable write FOnondataavailable; property Ononreadystatechange: TNotifyEvent read FOnonreadystatechange write FOnonreadystatechange; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDOMDocument // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDOMDocumentProperties = class(TPersistent) private FServer: TDOMDocument; function GetDefaultInterface: IXMLDOMDocument; constructor Create(AServer: TDOMDocument); protected function Get_doctype: IXMLDOMDocumentType; function Get_implementation_: IXMLDOMImplementation; function Get_documentElement: IXMLDOMElement; procedure Set_documentElement(const DOMElement: IXMLDOMElement); function Get_readyState: Integer; function Get_parseError: IXMLDOMParseError; function Get_url: WideString; function Get_async: WordBool; procedure Set_async(isAsync: WordBool); function Get_validateOnParse: WordBool; procedure Set_validateOnParse(isValidating: WordBool); function Get_resolveExternals: WordBool; procedure Set_resolveExternals(isResolving: WordBool); function Get_preserveWhiteSpace: WordBool; procedure Set_preserveWhiteSpace(isPreserving: WordBool); procedure Set_onreadystatechange(Param1: OleVariant); procedure Set_ondataavailable(Param1: OleVariant); procedure Set_ontransformnode(Param1: OleVariant); public property DefaultInterface: IXMLDOMDocument read GetDefaultInterface; published property async: WordBool read Get_async write Set_async; property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse; property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals; property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace; end; {$ENDIF} // *********************************************************************// // The Class CoDOMFreeThreadedDocument provides a Create and CreateRemote method to // create instances of the default interface IXMLDOMDocument exposed by // the CoClass DOMFreeThreadedDocument. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoDOMFreeThreadedDocument = class class function Create: IXMLDOMDocument; class function CreateRemote(const MachineName: string): IXMLDOMDocument; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TDOMFreeThreadedDocument // Help String : W3C-DOM XML Document (Apartment) // Default Interface: IXMLDOMDocument // Def. Intf. DISP? : No // Event Interface: XMLDOMDocumentEvents // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TDOMFreeThreadedDocumentProperties= class; {$ENDIF} TDOMFreeThreadedDocument = class(TOleServer) private FOnondataavailable: TNotifyEvent; FOnonreadystatechange: TNotifyEvent; FIntf: IXMLDOMDocument; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TDOMFreeThreadedDocumentProperties; function GetServerProperties: TDOMFreeThreadedDocumentProperties; {$ENDIF} function GetDefaultInterface: IXMLDOMDocument; protected procedure InitServerData; override; procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override; function Get_doctype: IXMLDOMDocumentType; function Get_implementation_: IXMLDOMImplementation; function Get_documentElement: IXMLDOMElement; procedure Set_documentElement(const DOMElement: IXMLDOMElement); function Get_readyState: Integer; function Get_parseError: IXMLDOMParseError; function Get_url: WideString; function Get_async: WordBool; procedure Set_async(isAsync: WordBool); function Get_validateOnParse: WordBool; procedure Set_validateOnParse(isValidating: WordBool); function Get_resolveExternals: WordBool; procedure Set_resolveExternals(isResolving: WordBool); function Get_preserveWhiteSpace: WordBool; procedure Set_preserveWhiteSpace(isPreserving: WordBool); procedure Set_onreadystatechange(Param1: OleVariant); procedure Set_ondataavailable(Param1: OleVariant); procedure Set_ontransformnode(Param1: OleVariant); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IXMLDOMDocument); procedure Disconnect; override; function createElement(const tagName: WideString): IXMLDOMElement; function createDocumentFragment: IXMLDOMDocumentFragment; function createTextNode(const data: WideString): IXMLDOMText; function createComment(const data: WideString): IXMLDOMComment; function createCDATASection(const data: WideString): IXMLDOMCDATASection; function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; function createAttribute(const name: WideString): IXMLDOMAttribute; function createEntityReference(const name: WideString): IXMLDOMEntityReference; function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; function nodeFromID(const idString: WideString): IXMLDOMNode; function load(xmlSource: OleVariant): WordBool; procedure abort; function loadXML(const bstrXML: WideString): WordBool; procedure save(desination: OleVariant); property DefaultInterface: IXMLDOMDocument read GetDefaultInterface; property doctype: IXMLDOMDocumentType read Get_doctype; property implementation_: IXMLDOMImplementation read Get_implementation_; property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement; property readyState: Integer read Get_readyState; property parseError: IXMLDOMParseError read Get_parseError; property url: WideString read Get_url; property onreadystatechange: OleVariant write Set_onreadystatechange; property ondataavailable: OleVariant write Set_ondataavailable; property ontransformnode: OleVariant write Set_ontransformnode; property async: WordBool read Get_async write Set_async; property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse; property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals; property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TDOMFreeThreadedDocumentProperties read GetServerProperties; {$ENDIF} property Onondataavailable: TNotifyEvent read FOnondataavailable write FOnondataavailable; property Ononreadystatechange: TNotifyEvent read FOnonreadystatechange write FOnonreadystatechange; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TDOMFreeThreadedDocument // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TDOMFreeThreadedDocumentProperties = class(TPersistent) private FServer: TDOMFreeThreadedDocument; function GetDefaultInterface: IXMLDOMDocument; constructor Create(AServer: TDOMFreeThreadedDocument); protected function Get_doctype: IXMLDOMDocumentType; function Get_implementation_: IXMLDOMImplementation; function Get_documentElement: IXMLDOMElement; procedure Set_documentElement(const DOMElement: IXMLDOMElement); function Get_readyState: Integer; function Get_parseError: IXMLDOMParseError; function Get_url: WideString; function Get_async: WordBool; procedure Set_async(isAsync: WordBool); function Get_validateOnParse: WordBool; procedure Set_validateOnParse(isValidating: WordBool); function Get_resolveExternals: WordBool; procedure Set_resolveExternals(isResolving: WordBool); function Get_preserveWhiteSpace: WordBool; procedure Set_preserveWhiteSpace(isPreserving: WordBool); procedure Set_onreadystatechange(Param1: OleVariant); procedure Set_ondataavailable(Param1: OleVariant); procedure Set_ontransformnode(Param1: OleVariant); public property DefaultInterface: IXMLDOMDocument read GetDefaultInterface; published property async: WordBool read Get_async write Set_async; property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse; property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals; property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace; end; {$ENDIF} // *********************************************************************// // The Class CoXMLHTTPRequest provides a Create and CreateRemote method to // create instances of the default interface IXMLHttpRequest exposed by // the CoClass XMLHTTPRequest. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoXMLHTTPRequest = class class function Create: IXMLHttpRequest; class function CreateRemote(const MachineName: string): IXMLHttpRequest; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TXMLHTTPRequest // Help String : XML HTTP Request class. // Default Interface: IXMLHttpRequest // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TXMLHTTPRequestProperties= class; {$ENDIF} TXMLHTTPRequest = class(TOleServer) private FIntf: IXMLHttpRequest; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TXMLHTTPRequestProperties; function GetServerProperties: TXMLHTTPRequestProperties; {$ENDIF} function GetDefaultInterface: IXMLHttpRequest; protected procedure InitServerData; override; function Get_status: Integer; function Get_statusText: WideString; function Get_responseXML: IDispatch; function Get_responseText: WideString; function Get_responseBody: OleVariant; function Get_responseStream: OleVariant; function Get_readyState: Integer; procedure Set_onreadystatechange(const Param1: IDispatch); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IXMLHttpRequest); procedure Disconnect; override; procedure open(const bstrMethod: WideString; const bstrUrl: WideString); overload; procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); overload; procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant; bstrUser: OleVariant); overload; procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant); overload; procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString); function getResponseHeader(const bstrHeader: WideString): WideString; function getAllResponseHeaders: WideString; procedure send; overload; procedure send(varBody: OleVariant); overload; procedure abort; property DefaultInterface: IXMLHttpRequest read GetDefaultInterface; property status: Integer read Get_status; property statusText: WideString read Get_statusText; property responseXML: IDispatch read Get_responseXML; property responseText: WideString read Get_responseText; property responseBody: OleVariant read Get_responseBody; property responseStream: OleVariant read Get_responseStream; property readyState: Integer read Get_readyState; property onreadystatechange: IDispatch write Set_onreadystatechange; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TXMLHTTPRequestProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TXMLHTTPRequest // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TXMLHTTPRequestProperties = class(TPersistent) private FServer: TXMLHTTPRequest; function GetDefaultInterface: IXMLHttpRequest; constructor Create(AServer: TXMLHTTPRequest); protected function Get_status: Integer; function Get_statusText: WideString; function Get_responseXML: IDispatch; function Get_responseText: WideString; function Get_responseBody: OleVariant; function Get_responseStream: OleVariant; function Get_readyState: Integer; procedure Set_onreadystatechange(const Param1: IDispatch); public property DefaultInterface: IXMLHttpRequest read GetDefaultInterface; published end; {$ENDIF} // *********************************************************************// // The Class CoXMLDSOControl provides a Create and CreateRemote method to // create instances of the default interface IXMLDSOControl exposed by // the CoClass XMLDSOControl. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoXMLDSOControl = class class function Create: IXMLDSOControl; class function CreateRemote(const MachineName: string): IXMLDSOControl; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TXMLDSOControl // Help String : XML Data Source Object // Default Interface: IXMLDSOControl // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TXMLDSOControlProperties= class; {$ENDIF} TXMLDSOControl = class(TOleServer) private FIntf: IXMLDSOControl; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TXMLDSOControlProperties; function GetServerProperties: TXMLDSOControlProperties; {$ENDIF} function GetDefaultInterface: IXMLDSOControl; protected procedure InitServerData; override; function Get_XMLDocument: IXMLDOMDocument; procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument); function Get_JavaDSOCompatible: Integer; procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer); function Get_readyState: Integer; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IXMLDSOControl); procedure Disconnect; override; property DefaultInterface: IXMLDSOControl read GetDefaultInterface; property readyState: Integer read Get_readyState; property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument; property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TXMLDSOControlProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TXMLDSOControl // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TXMLDSOControlProperties = class(TPersistent) private FServer: TXMLDSOControl; function GetDefaultInterface: IXMLDSOControl; constructor Create(AServer: TXMLDSOControl); protected function Get_XMLDocument: IXMLDOMDocument; procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument); function Get_JavaDSOCompatible: Integer; procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer); function Get_readyState: Integer; public property DefaultInterface: IXMLDSOControl read GetDefaultInterface; published property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument; property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible; end; {$ENDIF} // *********************************************************************// // The Class CoXMLDocument provides a Create and CreateRemote method to // create instances of the default interface IXMLDocument2 exposed by // the CoClass XMLDocument. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoXMLDocument = class class function Create: IXMLDocument2; class function CreateRemote(const MachineName: string): IXMLDocument2; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TXMLDocument // Help String : XMLDocument extends IXML Document. It is obsolete. You should use DOMDocument. This object should not be confused with the XMLDocument property on the XML data island. // Default Interface: IXMLDocument2 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} TXMLDocumentProperties= class; {$ENDIF} TXMLDocument = class(TOleServer) private FIntf: IXMLDocument2; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps: TXMLDocumentProperties; function GetServerProperties: TXMLDocumentProperties; {$ENDIF} function GetDefaultInterface: IXMLDocument2; protected procedure InitServerData; override; function Get_root(out p: IXMLElement2): HResult; function Get_url(out p: WideString): HResult; function Set_url(const p: WideString): HResult; function Get_readyState(out pl: Integer): HResult; function Get_charset(out p: WideString): HResult; function Set_charset(const p: WideString): HResult; function Get_version(out p: WideString): HResult; function Get_doctype(out p: WideString): HResult; function Get_async(out pf: WordBool): HResult; function Set_async(pf: WordBool): HResult; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IXMLDocument2); procedure Disconnect; override; function createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult; property DefaultInterface: IXMLDocument2 read GetDefaultInterface; published {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} property Server: TXMLDocumentProperties read GetServerProperties; {$ENDIF} end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} // *********************************************************************// // OLE Server Properties Proxy Class // Server Object : TXMLDocument // (This object is used by the IDE's Property Inspector to allow editing // of the properties of this server) // *********************************************************************// TXMLDocumentProperties = class(TPersistent) private FServer: TXMLDocument; function GetDefaultInterface: IXMLDocument2; constructor Create(AServer: TXMLDocument); protected function Get_root(out p: IXMLElement2): HResult; function Get_url(out p: WideString): HResult; function Set_url(const p: WideString): HResult; function Get_readyState(out pl: Integer): HResult; function Get_charset(out p: WideString): HResult; function Set_charset(const p: WideString): HResult; function Get_version(out p: WideString): HResult; function Get_doctype(out p: WideString): HResult; function Get_async(out pf: WordBool): HResult; function Set_async(pf: WordBool): HResult; public property DefaultInterface: IXMLDocument2 read GetDefaultInterface; published end; {$ENDIF} procedure Register; implementation uses ComObj; class function CoDOMDocument.Create: IXMLDOMDocument; begin Result := CreateComObject(CLASS_DOMDocument) as IXMLDOMDocument; end; class function CoDOMDocument.CreateRemote(const MachineName: string): IXMLDOMDocument; begin Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument) as IXMLDOMDocument; end; procedure TDOMDocument.InitServerData; const CServerData: TServerData = ( ClassID: '{2933BF90-7B36-11D2-B20E-00C04F983E60}'; IntfIID: '{2933BF81-7B36-11D2-B20E-00C04F983E60}'; EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDOMDocument.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IXMLDOMDocument; end; end; procedure TDOMDocument.ConnectTo(svrIntf: IXMLDOMDocument); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TDOMDocument.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TDOMDocument.GetDefaultInterface: IXMLDOMDocument; 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 TDOMDocument.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDOMDocumentProperties.Create(Self); {$ENDIF} end; destructor TDOMDocument.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDOMDocument.GetServerProperties: TDOMDocumentProperties; begin Result := FProps; end; {$ENDIF} procedure TDOMDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 198: if Assigned(FOnondataavailable) then FOnondataavailable(Self); -609: if Assigned(FOnonreadystatechange) then FOnonreadystatechange(Self); end; {case DispID} end; function TDOMDocument.Get_doctype: IXMLDOMDocumentType; begin Result := DefaultInterface.Get_doctype; end; function TDOMDocument.Get_implementation_: IXMLDOMImplementation; begin Result := DefaultInterface.Get_implementation_; end; function TDOMDocument.Get_documentElement: IXMLDOMElement; begin Result := DefaultInterface.Get_documentElement; end; procedure TDOMDocument.Set_documentElement(const DOMElement: IXMLDOMElement); begin DefaultInterface.Set_documentElement(DOMElement); end; function TDOMDocument.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; function TDOMDocument.Get_parseError: IXMLDOMParseError; begin Result := DefaultInterface.Get_parseError; end; function TDOMDocument.Get_url: WideString; begin Result := DefaultInterface.Get_url; end; function TDOMDocument.Get_async: WordBool; begin Result := DefaultInterface.Get_async; end; procedure TDOMDocument.Set_async(isAsync: WordBool); begin DefaultInterface.Set_async(isAsync); end; function TDOMDocument.Get_validateOnParse: WordBool; begin Result := DefaultInterface.Get_validateOnParse; end; procedure TDOMDocument.Set_validateOnParse(isValidating: WordBool); begin DefaultInterface.Set_validateOnParse(isValidating); end; function TDOMDocument.Get_resolveExternals: WordBool; begin Result := DefaultInterface.Get_resolveExternals; end; procedure TDOMDocument.Set_resolveExternals(isResolving: WordBool); begin DefaultInterface.Set_resolveExternals(isResolving); end; function TDOMDocument.Get_preserveWhiteSpace: WordBool; begin Result := DefaultInterface.Get_preserveWhiteSpace; end; procedure TDOMDocument.Set_preserveWhiteSpace(isPreserving: WordBool); begin DefaultInterface.Set_preserveWhiteSpace(isPreserving); end; procedure TDOMDocument.Set_onreadystatechange(Param1: OleVariant); begin DefaultInterface.Set_onreadystatechange(Param1); end; procedure TDOMDocument.Set_ondataavailable(Param1: OleVariant); begin DefaultInterface.Set_ondataavailable(Param1); end; procedure TDOMDocument.Set_ontransformnode(Param1: OleVariant); begin DefaultInterface.Set_ontransformnode(Param1); end; function TDOMDocument.createElement(const tagName: WideString): IXMLDOMElement; begin Result := DefaultInterface.createElement(tagName); end; function TDOMDocument.createDocumentFragment: IXMLDOMDocumentFragment; begin Result := DefaultInterface.createDocumentFragment; end; function TDOMDocument.createTextNode(const data: WideString): IXMLDOMText; begin Result := DefaultInterface.createTextNode(data); end; function TDOMDocument.createComment(const data: WideString): IXMLDOMComment; begin Result := DefaultInterface.createComment(data); end; function TDOMDocument.createCDATASection(const data: WideString): IXMLDOMCDATASection; begin Result := DefaultInterface.createCDATASection(data); end; function TDOMDocument.createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; begin Result := DefaultInterface.createProcessingInstruction(target, data); end; function TDOMDocument.createAttribute(const name: WideString): IXMLDOMAttribute; begin Result := DefaultInterface.createAttribute(name); end; function TDOMDocument.createEntityReference(const name: WideString): IXMLDOMEntityReference; begin Result := DefaultInterface.createEntityReference(name); end; function TDOMDocument.getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; begin Result := DefaultInterface.getElementsByTagName(tagName); end; function TDOMDocument.createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; begin Result := DefaultInterface.createNode(type_, name, namespaceURI); end; function TDOMDocument.nodeFromID(const idString: WideString): IXMLDOMNode; begin Result := DefaultInterface.nodeFromID(idString); end; function TDOMDocument.load(xmlSource: OleVariant): WordBool; begin Result := DefaultInterface.load(xmlSource); end; procedure TDOMDocument.abort; begin DefaultInterface.abort; end; function TDOMDocument.loadXML(const bstrXML: WideString): WordBool; begin Result := DefaultInterface.loadXML(bstrXML); end; procedure TDOMDocument.save(desination: OleVariant); begin DefaultInterface.save(desination); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDOMDocumentProperties.Create(AServer: TDOMDocument); begin inherited Create; FServer := AServer; end; function TDOMDocumentProperties.GetDefaultInterface: IXMLDOMDocument; begin Result := FServer.DefaultInterface; end; function TDOMDocumentProperties.Get_doctype: IXMLDOMDocumentType; begin Result := DefaultInterface.Get_doctype; end; function TDOMDocumentProperties.Get_implementation_: IXMLDOMImplementation; begin Result := DefaultInterface.Get_implementation_; end; function TDOMDocumentProperties.Get_documentElement: IXMLDOMElement; begin Result := DefaultInterface.Get_documentElement; end; procedure TDOMDocumentProperties.Set_documentElement(const DOMElement: IXMLDOMElement); begin DefaultInterface.Set_documentElement(DOMElement); end; function TDOMDocumentProperties.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; function TDOMDocumentProperties.Get_parseError: IXMLDOMParseError; begin Result := DefaultInterface.Get_parseError; end; function TDOMDocumentProperties.Get_url: WideString; begin Result := DefaultInterface.Get_url; end; function TDOMDocumentProperties.Get_async: WordBool; begin Result := DefaultInterface.Get_async; end; procedure TDOMDocumentProperties.Set_async(isAsync: WordBool); begin DefaultInterface.Set_async(isAsync); end; function TDOMDocumentProperties.Get_validateOnParse: WordBool; begin Result := DefaultInterface.Get_validateOnParse; end; procedure TDOMDocumentProperties.Set_validateOnParse(isValidating: WordBool); begin DefaultInterface.Set_validateOnParse(isValidating); end; function TDOMDocumentProperties.Get_resolveExternals: WordBool; begin Result := DefaultInterface.Get_resolveExternals; end; procedure TDOMDocumentProperties.Set_resolveExternals(isResolving: WordBool); begin DefaultInterface.Set_resolveExternals(isResolving); end; function TDOMDocumentProperties.Get_preserveWhiteSpace: WordBool; begin Result := DefaultInterface.Get_preserveWhiteSpace; end; procedure TDOMDocumentProperties.Set_preserveWhiteSpace(isPreserving: WordBool); begin DefaultInterface.Set_preserveWhiteSpace(isPreserving); end; procedure TDOMDocumentProperties.Set_onreadystatechange(Param1: OleVariant); begin DefaultInterface.Set_onreadystatechange(Param1); end; procedure TDOMDocumentProperties.Set_ondataavailable(Param1: OleVariant); begin DefaultInterface.Set_ondataavailable(Param1); end; procedure TDOMDocumentProperties.Set_ontransformnode(Param1: OleVariant); begin DefaultInterface.Set_ontransformnode(Param1); end; {$ENDIF} class function CoDOMFreeThreadedDocument.Create: IXMLDOMDocument; begin Result := CreateComObject(CLASS_DOMFreeThreadedDocument) as IXMLDOMDocument; end; class function CoDOMFreeThreadedDocument.CreateRemote(const MachineName: string): IXMLDOMDocument; begin Result := CreateRemoteComObject(MachineName, CLASS_DOMFreeThreadedDocument) as IXMLDOMDocument; end; procedure TDOMFreeThreadedDocument.InitServerData; const CServerData: TServerData = ( ClassID: '{2933BF91-7B36-11D2-B20E-00C04F983E60}'; IntfIID: '{2933BF81-7B36-11D2-B20E-00C04F983E60}'; EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}'; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TDOMFreeThreadedDocument.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; ConnectEvents(punk); Fintf:= punk as IXMLDOMDocument; end; end; procedure TDOMFreeThreadedDocument.ConnectTo(svrIntf: IXMLDOMDocument); begin Disconnect; FIntf := svrIntf; ConnectEvents(FIntf); end; procedure TDOMFreeThreadedDocument.DisConnect; begin if Fintf <> nil then begin DisconnectEvents(FIntf); FIntf := nil; end; end; function TDOMFreeThreadedDocument.GetDefaultInterface: IXMLDOMDocument; 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 TDOMFreeThreadedDocument.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TDOMFreeThreadedDocumentProperties.Create(Self); {$ENDIF} end; destructor TDOMFreeThreadedDocument.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TDOMFreeThreadedDocument.GetServerProperties: TDOMFreeThreadedDocumentProperties; begin Result := FProps; end; {$ENDIF} procedure TDOMFreeThreadedDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray); begin case DispID of -1: Exit; // DISPID_UNKNOWN 198: if Assigned(FOnondataavailable) then FOnondataavailable(Self); -609: if Assigned(FOnonreadystatechange) then FOnonreadystatechange(Self); end; {case DispID} end; function TDOMFreeThreadedDocument.Get_doctype: IXMLDOMDocumentType; begin Result := DefaultInterface.Get_doctype; end; function TDOMFreeThreadedDocument.Get_implementation_: IXMLDOMImplementation; begin Result := DefaultInterface.Get_implementation_; end; function TDOMFreeThreadedDocument.Get_documentElement: IXMLDOMElement; begin Result := DefaultInterface.Get_documentElement; end; procedure TDOMFreeThreadedDocument.Set_documentElement(const DOMElement: IXMLDOMElement); begin DefaultInterface.Set_documentElement(DOMElement); end; function TDOMFreeThreadedDocument.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; function TDOMFreeThreadedDocument.Get_parseError: IXMLDOMParseError; begin Result := DefaultInterface.Get_parseError; end; function TDOMFreeThreadedDocument.Get_url: WideString; begin Result := DefaultInterface.Get_url; end; function TDOMFreeThreadedDocument.Get_async: WordBool; begin Result := DefaultInterface.Get_async; end; procedure TDOMFreeThreadedDocument.Set_async(isAsync: WordBool); begin DefaultInterface.Set_async(isAsync); end; function TDOMFreeThreadedDocument.Get_validateOnParse: WordBool; begin Result := DefaultInterface.Get_validateOnParse; end; procedure TDOMFreeThreadedDocument.Set_validateOnParse(isValidating: WordBool); begin DefaultInterface.Set_validateOnParse(isValidating); end; function TDOMFreeThreadedDocument.Get_resolveExternals: WordBool; begin Result := DefaultInterface.Get_resolveExternals; end; procedure TDOMFreeThreadedDocument.Set_resolveExternals(isResolving: WordBool); begin DefaultInterface.Set_resolveExternals(isResolving); end; function TDOMFreeThreadedDocument.Get_preserveWhiteSpace: WordBool; begin Result := DefaultInterface.Get_preserveWhiteSpace; end; procedure TDOMFreeThreadedDocument.Set_preserveWhiteSpace(isPreserving: WordBool); begin DefaultInterface.Set_preserveWhiteSpace(isPreserving); end; procedure TDOMFreeThreadedDocument.Set_onreadystatechange(Param1: OleVariant); begin DefaultInterface.Set_onreadystatechange(Param1); end; procedure TDOMFreeThreadedDocument.Set_ondataavailable(Param1: OleVariant); begin DefaultInterface.Set_ondataavailable(Param1); end; procedure TDOMFreeThreadedDocument.Set_ontransformnode(Param1: OleVariant); begin DefaultInterface.Set_ontransformnode(Param1); end; function TDOMFreeThreadedDocument.createElement(const tagName: WideString): IXMLDOMElement; begin Result := DefaultInterface.createElement(tagName); end; function TDOMFreeThreadedDocument.createDocumentFragment: IXMLDOMDocumentFragment; begin Result := DefaultInterface.createDocumentFragment; end; function TDOMFreeThreadedDocument.createTextNode(const data: WideString): IXMLDOMText; begin Result := DefaultInterface.createTextNode(data); end; function TDOMFreeThreadedDocument.createComment(const data: WideString): IXMLDOMComment; begin Result := DefaultInterface.createComment(data); end; function TDOMFreeThreadedDocument.createCDATASection(const data: WideString): IXMLDOMCDATASection; begin Result := DefaultInterface.createCDATASection(data); end; function TDOMFreeThreadedDocument.createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; begin Result := DefaultInterface.createProcessingInstruction(target, data); end; function TDOMFreeThreadedDocument.createAttribute(const name: WideString): IXMLDOMAttribute; begin Result := DefaultInterface.createAttribute(name); end; function TDOMFreeThreadedDocument.createEntityReference(const name: WideString): IXMLDOMEntityReference; begin Result := DefaultInterface.createEntityReference(name); end; function TDOMFreeThreadedDocument.getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; begin Result := DefaultInterface.getElementsByTagName(tagName); end; function TDOMFreeThreadedDocument.createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; begin Result := DefaultInterface.createNode(type_, name, namespaceURI); end; function TDOMFreeThreadedDocument.nodeFromID(const idString: WideString): IXMLDOMNode; begin Result := DefaultInterface.nodeFromID(idString); end; function TDOMFreeThreadedDocument.load(xmlSource: OleVariant): WordBool; begin Result := DefaultInterface.load(xmlSource); end; procedure TDOMFreeThreadedDocument.abort; begin DefaultInterface.abort; end; function TDOMFreeThreadedDocument.loadXML(const bstrXML: WideString): WordBool; begin Result := DefaultInterface.loadXML(bstrXML); end; procedure TDOMFreeThreadedDocument.save(desination: OleVariant); begin DefaultInterface.save(desination); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TDOMFreeThreadedDocumentProperties.Create(AServer: TDOMFreeThreadedDocument); begin inherited Create; FServer := AServer; end; function TDOMFreeThreadedDocumentProperties.GetDefaultInterface: IXMLDOMDocument; begin Result := FServer.DefaultInterface; end; function TDOMFreeThreadedDocumentProperties.Get_doctype: IXMLDOMDocumentType; begin Result := DefaultInterface.Get_doctype; end; function TDOMFreeThreadedDocumentProperties.Get_implementation_: IXMLDOMImplementation; begin Result := DefaultInterface.Get_implementation_; end; function TDOMFreeThreadedDocumentProperties.Get_documentElement: IXMLDOMElement; begin Result := DefaultInterface.Get_documentElement; end; procedure TDOMFreeThreadedDocumentProperties.Set_documentElement(const DOMElement: IXMLDOMElement); begin DefaultInterface.Set_documentElement(DOMElement); end; function TDOMFreeThreadedDocumentProperties.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; function TDOMFreeThreadedDocumentProperties.Get_parseError: IXMLDOMParseError; begin Result := DefaultInterface.Get_parseError; end; function TDOMFreeThreadedDocumentProperties.Get_url: WideString; begin Result := DefaultInterface.Get_url; end; function TDOMFreeThreadedDocumentProperties.Get_async: WordBool; begin Result := DefaultInterface.Get_async; end; procedure TDOMFreeThreadedDocumentProperties.Set_async(isAsync: WordBool); begin DefaultInterface.Set_async(isAsync); end; function TDOMFreeThreadedDocumentProperties.Get_validateOnParse: WordBool; begin Result := DefaultInterface.Get_validateOnParse; end; procedure TDOMFreeThreadedDocumentProperties.Set_validateOnParse(isValidating: WordBool); begin DefaultInterface.Set_validateOnParse(isValidating); end; function TDOMFreeThreadedDocumentProperties.Get_resolveExternals: WordBool; begin Result := DefaultInterface.Get_resolveExternals; end; procedure TDOMFreeThreadedDocumentProperties.Set_resolveExternals(isResolving: WordBool); begin DefaultInterface.Set_resolveExternals(isResolving); end; function TDOMFreeThreadedDocumentProperties.Get_preserveWhiteSpace: WordBool; begin Result := DefaultInterface.Get_preserveWhiteSpace; end; procedure TDOMFreeThreadedDocumentProperties.Set_preserveWhiteSpace(isPreserving: WordBool); begin DefaultInterface.Set_preserveWhiteSpace(isPreserving); end; procedure TDOMFreeThreadedDocumentProperties.Set_onreadystatechange(Param1: OleVariant); begin DefaultInterface.Set_onreadystatechange(Param1); end; procedure TDOMFreeThreadedDocumentProperties.Set_ondataavailable(Param1: OleVariant); begin DefaultInterface.Set_ondataavailable(Param1); end; procedure TDOMFreeThreadedDocumentProperties.Set_ontransformnode(Param1: OleVariant); begin DefaultInterface.Set_ontransformnode(Param1); end; {$ENDIF} class function CoXMLHTTPRequest.Create: IXMLHttpRequest; begin Result := CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest; end; class function CoXMLHTTPRequest.CreateRemote(const MachineName: string): IXMLHttpRequest; begin Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTPRequest) as IXMLHttpRequest; end; procedure TXMLHTTPRequest.InitServerData; const CServerData: TServerData = ( ClassID: '{ED8C108E-4349-11D2-91A4-00C04F7969E8}'; IntfIID: '{ED8C108D-4349-11D2-91A4-00C04F7969E8}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TXMLHTTPRequest.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IXMLHttpRequest; end; end; procedure TXMLHTTPRequest.ConnectTo(svrIntf: IXMLHttpRequest); begin Disconnect; FIntf := svrIntf; end; procedure TXMLHTTPRequest.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TXMLHTTPRequest.GetDefaultInterface: IXMLHttpRequest; 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 TXMLHTTPRequest.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TXMLHTTPRequestProperties.Create(Self); {$ENDIF} end; destructor TXMLHTTPRequest.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TXMLHTTPRequest.GetServerProperties: TXMLHTTPRequestProperties; begin Result := FProps; end; {$ENDIF} function TXMLHTTPRequest.Get_status: Integer; begin Result := DefaultInterface.Get_status; end; function TXMLHTTPRequest.Get_statusText: WideString; begin Result := DefaultInterface.Get_statusText; end; function TXMLHTTPRequest.Get_responseXML: IDispatch; begin Result := DefaultInterface.Get_responseXML; end; function TXMLHTTPRequest.Get_responseText: WideString; begin Result := DefaultInterface.Get_responseText; end; function TXMLHTTPRequest.Get_responseBody: OleVariant; begin Result := DefaultInterface.Get_responseBody; end; function TXMLHTTPRequest.Get_responseStream: OleVariant; begin Result := DefaultInterface.Get_responseStream; end; function TXMLHTTPRequest.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; procedure TXMLHTTPRequest.Set_onreadystatechange(const Param1: IDispatch); begin DefaultInterface.Set_onreadystatechange(Param1); end; procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString); begin DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam); end; procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); begin DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam); end; procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant; bstrUser: OleVariant); begin DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam); end; procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant); begin DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword); end; procedure TXMLHTTPRequest.setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString); begin DefaultInterface.setRequestHeader(bstrHeader, bstrValue); end; function TXMLHTTPRequest.getResponseHeader(const bstrHeader: WideString): WideString; begin Result := DefaultInterface.getResponseHeader(bstrHeader); end; function TXMLHTTPRequest.getAllResponseHeaders: WideString; begin Result := DefaultInterface.getAllResponseHeaders; end; procedure TXMLHTTPRequest.send; begin DefaultInterface.send(EmptyParam); end; procedure TXMLHTTPRequest.send(varBody: OleVariant); begin DefaultInterface.send(varBody); end; procedure TXMLHTTPRequest.abort; begin DefaultInterface.abort; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TXMLHTTPRequestProperties.Create(AServer: TXMLHTTPRequest); begin inherited Create; FServer := AServer; end; function TXMLHTTPRequestProperties.GetDefaultInterface: IXMLHttpRequest; begin Result := FServer.DefaultInterface; end; function TXMLHTTPRequestProperties.Get_status: Integer; begin Result := DefaultInterface.Get_status; end; function TXMLHTTPRequestProperties.Get_statusText: WideString; begin Result := DefaultInterface.Get_statusText; end; function TXMLHTTPRequestProperties.Get_responseXML: IDispatch; begin Result := DefaultInterface.Get_responseXML; end; function TXMLHTTPRequestProperties.Get_responseText: WideString; begin Result := DefaultInterface.Get_responseText; end; function TXMLHTTPRequestProperties.Get_responseBody: OleVariant; begin Result := DefaultInterface.Get_responseBody; end; function TXMLHTTPRequestProperties.Get_responseStream: OleVariant; begin Result := DefaultInterface.Get_responseStream; end; function TXMLHTTPRequestProperties.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; procedure TXMLHTTPRequestProperties.Set_onreadystatechange(const Param1: IDispatch); begin DefaultInterface.Set_onreadystatechange(Param1); end; {$ENDIF} class function CoXMLDSOControl.Create: IXMLDSOControl; begin Result := CreateComObject(CLASS_XMLDSOControl) as IXMLDSOControl; end; class function CoXMLDSOControl.CreateRemote(const MachineName: string): IXMLDSOControl; begin Result := CreateRemoteComObject(MachineName, CLASS_XMLDSOControl) as IXMLDSOControl; end; procedure TXMLDSOControl.InitServerData; const CServerData: TServerData = ( ClassID: '{550DDA30-0541-11D2-9CA9-0060B0EC3D39}'; IntfIID: '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TXMLDSOControl.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IXMLDSOControl; end; end; procedure TXMLDSOControl.ConnectTo(svrIntf: IXMLDSOControl); begin Disconnect; FIntf := svrIntf; end; procedure TXMLDSOControl.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TXMLDSOControl.GetDefaultInterface: IXMLDSOControl; 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 TXMLDSOControl.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TXMLDSOControlProperties.Create(Self); {$ENDIF} end; destructor TXMLDSOControl.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TXMLDSOControl.GetServerProperties: TXMLDSOControlProperties; begin Result := FProps; end; {$ENDIF} function TXMLDSOControl.Get_XMLDocument: IXMLDOMDocument; begin Result := DefaultInterface.Get_XMLDocument; end; procedure TXMLDSOControl.Set_XMLDocument(const ppDoc: IXMLDOMDocument); begin DefaultInterface.Set_XMLDocument(ppDoc); end; function TXMLDSOControl.Get_JavaDSOCompatible: Integer; begin Result := DefaultInterface.Get_JavaDSOCompatible; end; procedure TXMLDSOControl.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer); begin DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible); end; function TXMLDSOControl.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TXMLDSOControlProperties.Create(AServer: TXMLDSOControl); begin inherited Create; FServer := AServer; end; function TXMLDSOControlProperties.GetDefaultInterface: IXMLDSOControl; begin Result := FServer.DefaultInterface; end; function TXMLDSOControlProperties.Get_XMLDocument: IXMLDOMDocument; begin Result := DefaultInterface.Get_XMLDocument; end; procedure TXMLDSOControlProperties.Set_XMLDocument(const ppDoc: IXMLDOMDocument); begin DefaultInterface.Set_XMLDocument(ppDoc); end; function TXMLDSOControlProperties.Get_JavaDSOCompatible: Integer; begin Result := DefaultInterface.Get_JavaDSOCompatible; end; procedure TXMLDSOControlProperties.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer); begin DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible); end; function TXMLDSOControlProperties.Get_readyState: Integer; begin Result := DefaultInterface.Get_readyState; end; {$ENDIF} class function CoXMLDocument.Create: IXMLDocument2; begin Result := CreateComObject(CLASS_XMLDocument) as IXMLDocument2; end; class function CoXMLDocument.CreateRemote(const MachineName: string): IXMLDocument2; begin Result := CreateRemoteComObject(MachineName, CLASS_XMLDocument) as IXMLDocument2; end; procedure TXMLDocument.InitServerData; const CServerData: TServerData = ( ClassID: '{CFC399AF-D876-11D0-9C10-00C04FC99C8E}'; IntfIID: '{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TXMLDocument.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IXMLDocument2; end; end; procedure TXMLDocument.ConnectTo(svrIntf: IXMLDocument2); begin Disconnect; FIntf := svrIntf; end; procedure TXMLDocument.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TXMLDocument.GetDefaultInterface: IXMLDocument2; 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 TXMLDocument.Create(AOwner: TComponent); begin inherited Create(AOwner); {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps := TXMLDocumentProperties.Create(Self); {$ENDIF} end; destructor TXMLDocument.Destroy; begin {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} FProps.Free; {$ENDIF} inherited Destroy; end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} function TXMLDocument.GetServerProperties: TXMLDocumentProperties; begin Result := FProps; end; {$ENDIF} function TXMLDocument.Get_root(out p: IXMLElement2): HResult; begin Result := DefaultInterface.Get_root(p); end; function TXMLDocument.Get_url(out p: WideString): HResult; begin Result := DefaultInterface.Get_url(p); end; function TXMLDocument.Set_url(const p: WideString): HResult; begin Result := DefaultInterface.Set_url(p); end; function TXMLDocument.Get_readyState(out pl: Integer): HResult; begin Result := DefaultInterface.Get_readyState(pl); end; function TXMLDocument.Get_charset(out p: WideString): HResult; begin Result := DefaultInterface.Get_charset(p); end; function TXMLDocument.Set_charset(const p: WideString): HResult; begin Result := DefaultInterface.Set_charset(p); end; function TXMLDocument.Get_version(out p: WideString): HResult; begin Result := DefaultInterface.Get_version(p); end; function TXMLDocument.Get_doctype(out p: WideString): HResult; begin Result := DefaultInterface.Get_doctype(p); end; function TXMLDocument.Get_async(out pf: WordBool): HResult; begin Result := DefaultInterface.Get_async(pf); end; function TXMLDocument.Set_async(pf: WordBool): HResult; begin Result := DefaultInterface.Set_async(pf); end; function TXMLDocument.createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult; begin Result := DefaultInterface.createElement(vType, var1, ppElem); end; {$IFDEF LIVE_SERVER_AT_DESIGN_TIME} constructor TXMLDocumentProperties.Create(AServer: TXMLDocument); begin inherited Create; FServer := AServer; end; function TXMLDocumentProperties.GetDefaultInterface: IXMLDocument2; begin Result := FServer.DefaultInterface; end; function TXMLDocumentProperties.Get_root(out p: IXMLElement2): HResult; begin Result := DefaultInterface.Get_root(p); end; function TXMLDocumentProperties.Get_url(out p: WideString): HResult; begin Result := DefaultInterface.Get_url(p); end; function TXMLDocumentProperties.Set_url(const p: WideString): HResult; begin Result := DefaultInterface.Set_url(p); end; function TXMLDocumentProperties.Get_readyState(out pl: Integer): HResult; begin Result := DefaultInterface.Get_readyState(pl); end; function TXMLDocumentProperties.Get_charset(out p: WideString): HResult; begin Result := DefaultInterface.Get_charset(p); end; function TXMLDocumentProperties.Set_charset(const p: WideString): HResult; begin Result := DefaultInterface.Set_charset(p); end; function TXMLDocumentProperties.Get_version(out p: WideString): HResult; begin Result := DefaultInterface.Get_version(p); end; function TXMLDocumentProperties.Get_doctype(out p: WideString): HResult; begin Result := DefaultInterface.Get_doctype(p); end; function TXMLDocumentProperties.Get_async(out pf: WordBool): HResult; begin Result := DefaultInterface.Get_async(pf); end; function TXMLDocumentProperties.Set_async(pf: WordBool): HResult; begin Result := DefaultInterface.Set_async(pf); end; {$ENDIF} procedure Register; begin RegisterComponents('ActiveX',[TDOMDocument, TDOMFreeThreadedDocument, TXMLHTTPRequest, TXMLDSOControl, TXMLDocument]); end; end.