Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

MSXML_TLB.pas@ 1328

Last change on this file since 1328 was 476, checked in by Kevin Toppenberg, 16 years ago
New WorldVistA Config Utility
File size: 154.0 KB

Line
1	unit MSXML_TLB;
2
3	// ************************************************************************ //
4	// WARNING
5	// -------
6	// The types declared in this file were generated from data read from a
7	// Type Library. If this type library is explicitly or indirectly (via
8	// another type library referring to this type library) re-imported, or the
9	// 'Refresh' command of the Type Library Editor activated while editing the
10	// Type Library, the contents of this file will be regenerated and all
11	// manual modifications will be lost.
12	// ************************************************************************ //
13
14	// PASTLWTR : $Revision: 1.88.1.0.1.0 $
15	// File generated on 11/14/2000 5:05:14 PM from Type Library described below.
16
17	// *************************************************************************//
18	// NOTE:
19	// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties
20	// which return objects that may need to be explicitly created via a function
21	// call prior to any access via the property. These items have been disabled
22	// in order to prevent accidental use from within the object inspector. You
23	// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively
24	// removing them from the $IFDEF blocks. However, such items must still be
25	// programmatically created via a method of the appropriate CoClass before
26	// they can be used.
27	// ************************************************************************ //
28	// Type Lib: C:\WINNT\System32\msxml.dll (1)
29	// IID\LCID: {D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}\0
30	// Helpfile:
31	// DepndLst:
32	// (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
33	// (2) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
34	// Errors:
35	// Hint: Parameter 'type' of IXMLDOMNode.nodeType changed to 'type_'
36	// Hint: Member 'implementation' of 'IXMLDOMDocument' changed to 'implementation_'
37	// Hint: Parameter 'type' of IXMLDOMDocument.createNode changed to 'type_'
38	// Hint: Member 'type' of 'IXMLElement' changed to 'type_'
39	// Hint: Member 'type' of 'IXMLElement2' changed to 'type_'
40	// Error creating palette bitmap of (TDOMDocument) : No Server registered for this CoClass
41	// Error creating palette bitmap of (TDOMFreeThreadedDocument) : No Server registered for this CoClass
42	// Error creating palette bitmap of (TXMLHTTPRequest) : No Server registered for this CoClass
43	// Error creating palette bitmap of (TXMLDSOControl) : No Server registered for this CoClass
44	// Error creating palette bitmap of (TXMLDocument) : No Server registered for this CoClass
45	// ************************************************************************ //
46	{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
47	interface
48
49	uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
50
51	// *********************************************************************//
52	// GUIDS declared in the TypeLibrary. Following prefixes are used:
53	// Type Libraries : LIBID_xxxx
54	// CoClasses : CLASS_xxxx
55	// DISPInterfaces : DIID_xxxx
56	// Non-DISP interfaces: IID_xxxx
57	// *********************************************************************//
58	const
59	// TypeLibrary Major and minor versions
60	MSXMLMajorVersion = 2;
61	MSXMLMinorVersion = 0;
62
63	LIBID_MSXML: TGUID = '{D63E0CE2-A0A2-11D0-9C02-00C04FC99C8E}';
64
65	IID_IXMLDOMImplementation: TGUID = '{2933BF8F-7B36-11D2-B20E-00C04F983E60}';
66	IID_IXMLDOMNode: TGUID = '{2933BF80-7B36-11D2-B20E-00C04F983E60}';
67	IID_IXMLDOMNodeList: TGUID = '{2933BF82-7B36-11D2-B20E-00C04F983E60}';
68	IID_IXMLDOMNamedNodeMap: TGUID = '{2933BF83-7B36-11D2-B20E-00C04F983E60}';
69	IID_IXMLDOMDocument: TGUID = '{2933BF81-7B36-11D2-B20E-00C04F983E60}';
70	IID_IXMLDOMDocumentType: TGUID = '{2933BF8B-7B36-11D2-B20E-00C04F983E60}';
71	IID_IXMLDOMElement: TGUID = '{2933BF86-7B36-11D2-B20E-00C04F983E60}';
72	IID_IXMLDOMAttribute: TGUID = '{2933BF85-7B36-11D2-B20E-00C04F983E60}';
73	IID_IXMLDOMDocumentFragment: TGUID = '{3EFAA413-272F-11D2-836F-0000F87A7782}';
74	IID_IXMLDOMCharacterData: TGUID = '{2933BF84-7B36-11D2-B20E-00C04F983E60}';
75	IID_IXMLDOMText: TGUID = '{2933BF87-7B36-11D2-B20E-00C04F983E60}';
76	IID_IXMLDOMComment: TGUID = '{2933BF88-7B36-11D2-B20E-00C04F983E60}';
77	IID_IXMLDOMCDATASection: TGUID = '{2933BF8A-7B36-11D2-B20E-00C04F983E60}';
78	IID_IXMLDOMProcessingInstruction: TGUID = '{2933BF89-7B36-11D2-B20E-00C04F983E60}';
79	IID_IXMLDOMEntityReference: TGUID = '{2933BF8E-7B36-11D2-B20E-00C04F983E60}';
80	IID_IXMLDOMParseError: TGUID = '{3EFAA426-272F-11D2-836F-0000F87A7782}';
81	IID_IXMLDOMNotation: TGUID = '{2933BF8C-7B36-11D2-B20E-00C04F983E60}';
82	IID_IXMLDOMEntity: TGUID = '{2933BF8D-7B36-11D2-B20E-00C04F983E60}';
83	IID_IXTLRuntime: TGUID = '{3EFAA425-272F-11D2-836F-0000F87A7782}';
84	DIID_XMLDOMDocumentEvents: TGUID = '{3EFAA427-272F-11D2-836F-0000F87A7782}';
85	CLASS_DOMDocument: TGUID = '{2933BF90-7B36-11D2-B20E-00C04F983E60}';
86	CLASS_DOMFreeThreadedDocument: TGUID = '{2933BF91-7B36-11D2-B20E-00C04F983E60}';
87	IID_IXMLHttpRequest: TGUID = '{ED8C108D-4349-11D2-91A4-00C04F7969E8}';
88	CLASS_XMLHTTPRequest: TGUID = '{ED8C108E-4349-11D2-91A4-00C04F7969E8}';
89	IID_IXMLDSOControl: TGUID = '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}';
90	CLASS_XMLDSOControl: TGUID = '{550DDA30-0541-11D2-9CA9-0060B0EC3D39}';
91	IID_IXMLElementCollection: TGUID = '{65725580-9B5D-11D0-9BFE-00C04FC99C8E}';
92	IID_IXMLDocument: TGUID = '{F52E2B61-18A1-11D1-B105-00805F49916B}';
93	IID_IXMLElement: TGUID = '{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}';
94	IID_IXMLDocument2: TGUID = '{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}';
95	IID_IXMLElement2: TGUID = '{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}';
96	IID_IXMLAttribute: TGUID = '{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}';
97	IID_IXMLError: TGUID = '{948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}';
98	CLASS_XMLDocument: TGUID = '{CFC399AF-D876-11D0-9C10-00C04FC99C8E}';
99
100	// *********************************************************************//
101	// Declaration of Enumerations defined in Type Library
102	// *********************************************************************//
103	// Constants for enum tagDOMNodeType
104	type
105	tagDOMNodeType = TOleEnum;
106	const
107	NODE_INVALID = $00000000;
108	NODE_ELEMENT = $00000001;
109	NODE_ATTRIBUTE = $00000002;
110	NODE_TEXT = $00000003;
111	NODE_CDATA_SECTION = $00000004;
112	NODE_ENTITY_REFERENCE = $00000005;
113	NODE_ENTITY = $00000006;
114	NODE_PROCESSING_INSTRUCTION = $00000007;
115	NODE_COMMENT = $00000008;
116	NODE_DOCUMENT = $00000009;
117	NODE_DOCUMENT_TYPE = $0000000A;
118	NODE_DOCUMENT_FRAGMENT = $0000000B;
119	NODE_NOTATION = $0000000C;
120
121	// Constants for enum tagXMLEMEM_TYPE
122	type
123	tagXMLEMEM_TYPE = TOleEnum;
124	const
125	XMLELEMTYPE_ELEMENT = $00000000;
126	XMLELEMTYPE_TEXT = $00000001;
127	XMLELEMTYPE_COMMENT = $00000002;
128	XMLELEMTYPE_DOCUMENT = $00000003;
129	XMLELEMTYPE_DTD = $00000004;
130	XMLELEMTYPE_PI = $00000005;
131	XMLELEMTYPE_OTHER = $00000006;
132
133	type
134
135	// *********************************************************************//
136	// Forward declaration of types defined in TypeLibrary
137	// *********************************************************************//
138	IXMLDOMImplementation = interface;
139	IXMLDOMImplementationDisp = dispinterface;
140	IXMLDOMNode = interface;
141	IXMLDOMNodeDisp = dispinterface;
142	IXMLDOMNodeList = interface;
143	IXMLDOMNodeListDisp = dispinterface;
144	IXMLDOMNamedNodeMap = interface;
145	IXMLDOMNamedNodeMapDisp = dispinterface;
146	IXMLDOMDocument = interface;
147	IXMLDOMDocumentDisp = dispinterface;
148	IXMLDOMDocumentType = interface;
149	IXMLDOMDocumentTypeDisp = dispinterface;
150	IXMLDOMElement = interface;
151	IXMLDOMElementDisp = dispinterface;
152	IXMLDOMAttribute = interface;
153	IXMLDOMAttributeDisp = dispinterface;
154	IXMLDOMDocumentFragment = interface;
155	IXMLDOMDocumentFragmentDisp = dispinterface;
156	IXMLDOMCharacterData = interface;
157	IXMLDOMCharacterDataDisp = dispinterface;
158	IXMLDOMText = interface;
159	IXMLDOMTextDisp = dispinterface;
160	IXMLDOMComment = interface;
161	IXMLDOMCommentDisp = dispinterface;
162	IXMLDOMCDATASection = interface;
163	IXMLDOMCDATASectionDisp = dispinterface;
164	IXMLDOMProcessingInstruction = interface;
165	IXMLDOMProcessingInstructionDisp = dispinterface;
166	IXMLDOMEntityReference = interface;
167	IXMLDOMEntityReferenceDisp = dispinterface;
168	IXMLDOMParseError = interface;
169	IXMLDOMParseErrorDisp = dispinterface;
170	IXMLDOMNotation = interface;
171	IXMLDOMNotationDisp = dispinterface;
172	IXMLDOMEntity = interface;
173	IXMLDOMEntityDisp = dispinterface;
174	IXTLRuntime = interface;
175	IXTLRuntimeDisp = dispinterface;
176	XMLDOMDocumentEvents = dispinterface;
177	IXMLHttpRequest = interface;
178	IXMLHttpRequestDisp = dispinterface;
179	IXMLDSOControl = interface;
180	IXMLDSOControlDisp = dispinterface;
181	IXMLElementCollection = interface;
182	IXMLElementCollectionDisp = dispinterface;
183	IXMLDocument = interface;
184	IXMLDocumentDisp = dispinterface;
185	IXMLElement = interface;
186	IXMLElementDisp = dispinterface;
187	IXMLDocument2 = interface;
188	IXMLElement2 = interface;
189	IXMLElement2Disp = dispinterface;
190	IXMLAttribute = interface;
191	IXMLAttributeDisp = dispinterface;
192	IXMLError = interface;
193
194	// *********************************************************************//
195	// Declaration of CoClasses defined in Type Library
196	// (NOTE: Here we map each CoClass to its Default Interface)
197	// *********************************************************************//
198	DOMDocument = IXMLDOMDocument;
199	DOMFreeThreadedDocument = IXMLDOMDocument;
200	XMLHTTPRequest = IXMLHttpRequest;
201	XMLDSOControl = IXMLDSOControl;
202	XMLDocument = IXMLDocument2;
203
204
205	// *********************************************************************//
206	// Declaration of structures, unions and aliases.
207	// *********************************************************************//
208	PUserType1 = ^_xml_error; {*}
209
210	DOMNodeType = tagDOMNodeType;
211
212	_xml_error = packed record
213	_nLine: SYSUINT;
214	_pchBuf: WideString;
215	_cchBuf: SYSUINT;
216	_ich: SYSUINT;
217	_pszFound: WideString;
218	_pszExpected: WideString;
219	_reserved1: LongWord;
220	_reserved2: LongWord;
221	end;
222
223	XMLELEM_TYPE = tagXMLEMEM_TYPE;
224
225	// *********************************************************************//
226	// Interface: IXMLDOMImplementation
227	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
228	// GUID: {2933BF8F-7B36-11D2-B20E-00C04F983E60}
229	// *********************************************************************//
230	IXMLDOMImplementation = interface(IDispatch)
231	['{2933BF8F-7B36-11D2-B20E-00C04F983E60}']
232	function hasFeature(const feature: WideString; const version: WideString): WordBool; safecall;
233	end;
234
235	// *********************************************************************//
236	// DispIntf: IXMLDOMImplementationDisp
237	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
238	// GUID: {2933BF8F-7B36-11D2-B20E-00C04F983E60}
239	// *********************************************************************//
240	IXMLDOMImplementationDisp = dispinterface
241	['{2933BF8F-7B36-11D2-B20E-00C04F983E60}']
242	function hasFeature(const feature: WideString; const version: WideString): WordBool; dispid 145;
243	end;
244
245	// *********************************************************************//
246	// Interface: IXMLDOMNode
247	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
248	// GUID: {2933BF80-7B36-11D2-B20E-00C04F983E60}
249	// *********************************************************************//
250	IXMLDOMNode = interface(IDispatch)
251	['{2933BF80-7B36-11D2-B20E-00C04F983E60}']
252	function Get_nodeName: WideString; safecall;
253	function Get_nodeValue: OleVariant; safecall;
254	procedure Set_nodeValue(value: OleVariant); safecall;
255	function Get_nodeType: DOMNodeType; safecall;
256	function Get_parentNode: IXMLDOMNode; safecall;
257	function Get_childNodes: IXMLDOMNodeList; safecall;
258	function Get_firstChild: IXMLDOMNode; safecall;
259	function Get_lastChild: IXMLDOMNode; safecall;
260	function Get_previousSibling: IXMLDOMNode; safecall;
261	function Get_nextSibling: IXMLDOMNode; safecall;
262	function Get_attributes: IXMLDOMNamedNodeMap; safecall;
263	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; safecall;
264	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; safecall;
265	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; safecall;
266	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; safecall;
267	function hasChildNodes: WordBool; safecall;
268	function Get_ownerDocument: IXMLDOMDocument; safecall;
269	function cloneNode(deep: WordBool): IXMLDOMNode; safecall;
270	function Get_nodeTypeString: WideString; safecall;
271	function Get_text: WideString; safecall;
272	procedure Set_text(const text: WideString); safecall;
273	function Get_specified: WordBool; safecall;
274	function Get_definition: IXMLDOMNode; safecall;
275	function Get_nodeTypedValue: OleVariant; safecall;
276	procedure Set_nodeTypedValue(typedValue: OleVariant); safecall;
277	function Get_dataType: OleVariant; safecall;
278	procedure Set_dataType(const dataTypeName: WideString); safecall;
279	function Get_xml: WideString; safecall;
280	function transformNode(const stylesheet: IXMLDOMNode): WideString; safecall;
281	function selectNodes(const queryString: WideString): IXMLDOMNodeList; safecall;
282	function selectSingleNode(const queryString: WideString): IXMLDOMNode; safecall;
283	function Get_parsed: WordBool; safecall;
284	function Get_namespaceURI: WideString; safecall;
285	function Get_prefix: WideString; safecall;
286	function Get_baseName: WideString; safecall;
287	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); safecall;
288	property nodeName: WideString read Get_nodeName;
289	property nodeValue: OleVariant read Get_nodeValue write Set_nodeValue;
290	property nodeType: DOMNodeType read Get_nodeType;
291	property parentNode: IXMLDOMNode read Get_parentNode;
292	property childNodes: IXMLDOMNodeList read Get_childNodes;
293	property firstChild: IXMLDOMNode read Get_firstChild;
294	property lastChild: IXMLDOMNode read Get_lastChild;
295	property previousSibling: IXMLDOMNode read Get_previousSibling;
296	property nextSibling: IXMLDOMNode read Get_nextSibling;
297	property attributes: IXMLDOMNamedNodeMap read Get_attributes;
298	property ownerDocument: IXMLDOMDocument read Get_ownerDocument;
299	property nodeTypeString: WideString read Get_nodeTypeString;
300	property text: WideString read Get_text write Set_text;
301	property specified: WordBool read Get_specified;
302	property definition: IXMLDOMNode read Get_definition;
303	property nodeTypedValue: OleVariant read Get_nodeTypedValue write Set_nodeTypedValue;
304	property xml: WideString read Get_xml;
305	property parsed: WordBool read Get_parsed;
306	property namespaceURI: WideString read Get_namespaceURI;
307	property prefix: WideString read Get_prefix;
308	property baseName: WideString read Get_baseName;
309	end;
310
311	// *********************************************************************//
312	// DispIntf: IXMLDOMNodeDisp
313	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
314	// GUID: {2933BF80-7B36-11D2-B20E-00C04F983E60}
315	// *********************************************************************//
316	IXMLDOMNodeDisp = dispinterface
317	['{2933BF80-7B36-11D2-B20E-00C04F983E60}']
318	property nodeName: WideString readonly dispid 2;
319	property nodeValue: OleVariant dispid 3;
320	property nodeType: DOMNodeType readonly dispid 4;
321	property parentNode: IXMLDOMNode readonly dispid 6;
322	property childNodes: IXMLDOMNodeList readonly dispid 7;
323	property firstChild: IXMLDOMNode readonly dispid 8;
324	property lastChild: IXMLDOMNode readonly dispid 9;
325	property previousSibling: IXMLDOMNode readonly dispid 10;
326	property nextSibling: IXMLDOMNode readonly dispid 11;
327	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
328	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
329	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
330	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
331	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
332	function hasChildNodes: WordBool; dispid 17;
333	property ownerDocument: IXMLDOMDocument readonly dispid 18;
334	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
335	property nodeTypeString: WideString readonly dispid 21;
336	property text: WideString dispid 24;
337	property specified: WordBool readonly dispid 22;
338	property definition: IXMLDOMNode readonly dispid 23;
339	property nodeTypedValue: OleVariant dispid 25;
340	function dataType: OleVariant; dispid 26;
341	property xml: WideString readonly dispid 27;
342	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
343	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
344	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
345	property parsed: WordBool readonly dispid 31;
346	property namespaceURI: WideString readonly dispid 32;
347	property prefix: WideString readonly dispid 33;
348	property baseName: WideString readonly dispid 34;
349	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
350	end;
351
352	// *********************************************************************//
353	// Interface: IXMLDOMNodeList
354	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
355	// GUID: {2933BF82-7B36-11D2-B20E-00C04F983E60}
356	// *********************************************************************//
357	IXMLDOMNodeList = interface(IDispatch)
358	['{2933BF82-7B36-11D2-B20E-00C04F983E60}']
359	function Get_item(index: Integer): IXMLDOMNode; safecall;
360	function Get_length: Integer; safecall;
361	function nextNode: IXMLDOMNode; safecall;
362	procedure reset; safecall;
363	function Get__newEnum: IUnknown; safecall;
364	property item[index: Integer]: IXMLDOMNode read Get_item; default;
365	property length: Integer read Get_length;
366	property _newEnum: IUnknown read Get__newEnum;
367	end;
368
369	// *********************************************************************//
370	// DispIntf: IXMLDOMNodeListDisp
371	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
372	// GUID: {2933BF82-7B36-11D2-B20E-00C04F983E60}
373	// *********************************************************************//
374	IXMLDOMNodeListDisp = dispinterface
375	['{2933BF82-7B36-11D2-B20E-00C04F983E60}']
376	property item[index: Integer]: IXMLDOMNode readonly dispid 0; default;
377	property length: Integer readonly dispid 74;
378	function nextNode: IXMLDOMNode; dispid 76;
379	procedure reset; dispid 77;
380	property _newEnum: IUnknown readonly dispid -4;
381	end;
382
383	// *********************************************************************//
384	// Interface: IXMLDOMNamedNodeMap
385	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
386	// GUID: {2933BF83-7B36-11D2-B20E-00C04F983E60}
387	// *********************************************************************//
388	IXMLDOMNamedNodeMap = interface(IDispatch)
389	['{2933BF83-7B36-11D2-B20E-00C04F983E60}']
390	function getNamedItem(const name: WideString): IXMLDOMNode; safecall;
391	function setNamedItem(const newItem: IXMLDOMNode): IXMLDOMNode; safecall;
392	function removeNamedItem(const name: WideString): IXMLDOMNode; safecall;
393	function Get_item(index: Integer): IXMLDOMNode; safecall;
394	function Get_length: Integer; safecall;
395	function getQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall;
396	function removeQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall;
397	function nextNode: IXMLDOMNode; safecall;
398	procedure reset; safecall;
399	function Get__newEnum: IUnknown; safecall;
400	property item[index: Integer]: IXMLDOMNode read Get_item; default;
401	property length: Integer read Get_length;
402	property _newEnum: IUnknown read Get__newEnum;
403	end;
404
405	// *********************************************************************//
406	// DispIntf: IXMLDOMNamedNodeMapDisp
407	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
408	// GUID: {2933BF83-7B36-11D2-B20E-00C04F983E60}
409	// *********************************************************************//
410	IXMLDOMNamedNodeMapDisp = dispinterface
411	['{2933BF83-7B36-11D2-B20E-00C04F983E60}']
412	function getNamedItem(const name: WideString): IXMLDOMNode; dispid 83;
413	function setNamedItem(const newItem: IXMLDOMNode): IXMLDOMNode; dispid 84;
414	function removeNamedItem(const name: WideString): IXMLDOMNode; dispid 85;
415	property item[index: Integer]: IXMLDOMNode readonly dispid 0; default;
416	property length: Integer readonly dispid 74;
417	function getQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; dispid 87;
418	function removeQualifiedItem(const baseName: WideString; const namespaceURI: WideString): IXMLDOMNode; dispid 88;
419	function nextNode: IXMLDOMNode; dispid 89;
420	procedure reset; dispid 90;
421	property _newEnum: IUnknown readonly dispid -4;
422	end;
423
424	// *********************************************************************//
425	// Interface: IXMLDOMDocument
426	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
427	// GUID: {2933BF81-7B36-11D2-B20E-00C04F983E60}
428	// *********************************************************************//
429	IXMLDOMDocument = interface(IXMLDOMNode)
430	['{2933BF81-7B36-11D2-B20E-00C04F983E60}']
431	function Get_doctype: IXMLDOMDocumentType; safecall;
432	function Get_implementation_: IXMLDOMImplementation; safecall;
433	function Get_documentElement: IXMLDOMElement; safecall;
434	procedure Set_documentElement(const DOMElement: IXMLDOMElement); safecall;
435	function createElement(const tagName: WideString): IXMLDOMElement; safecall;
436	function createDocumentFragment: IXMLDOMDocumentFragment; safecall;
437	function createTextNode(const data: WideString): IXMLDOMText; safecall;
438	function createComment(const data: WideString): IXMLDOMComment; safecall;
439	function createCDATASection(const data: WideString): IXMLDOMCDATASection; safecall;
440	function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; safecall;
441	function createAttribute(const name: WideString): IXMLDOMAttribute; safecall;
442	function createEntityReference(const name: WideString): IXMLDOMEntityReference; safecall;
443	function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; safecall;
444	function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; safecall;
445	function nodeFromID(const idString: WideString): IXMLDOMNode; safecall;
446	function load(xmlSource: OleVariant): WordBool; safecall;
447	function Get_readyState: Integer; safecall;
448	function Get_parseError: IXMLDOMParseError; safecall;
449	function Get_url: WideString; safecall;
450	function Get_async: WordBool; safecall;
451	procedure Set_async(isAsync: WordBool); safecall;
452	procedure abort; safecall;
453	function loadXML(const bstrXML: WideString): WordBool; safecall;
454	procedure save(desination: OleVariant); safecall;
455	function Get_validateOnParse: WordBool; safecall;
456	procedure Set_validateOnParse(isValidating: WordBool); safecall;
457	function Get_resolveExternals: WordBool; safecall;
458	procedure Set_resolveExternals(isResolving: WordBool); safecall;
459	function Get_preserveWhiteSpace: WordBool; safecall;
460	procedure Set_preserveWhiteSpace(isPreserving: WordBool); safecall;
461	procedure Set_onreadystatechange(Param1: OleVariant); safecall;
462	procedure Set_ondataavailable(Param1: OleVariant); safecall;
463	procedure Set_ontransformnode(Param1: OleVariant); safecall;
464	property doctype: IXMLDOMDocumentType read Get_doctype;
465	property implementation_: IXMLDOMImplementation read Get_implementation_;
466	property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement;
467	property readyState: Integer read Get_readyState;
468	property parseError: IXMLDOMParseError read Get_parseError;
469	property url: WideString read Get_url;
470	property async: WordBool read Get_async write Set_async;
471	property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
472	property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
473	property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
474	property onreadystatechange: OleVariant write Set_onreadystatechange;
475	property ondataavailable: OleVariant write Set_ondataavailable;
476	property ontransformnode: OleVariant write Set_ontransformnode;
477	end;
478
479	// *********************************************************************//
480	// DispIntf: IXMLDOMDocumentDisp
481	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
482	// GUID: {2933BF81-7B36-11D2-B20E-00C04F983E60}
483	// *********************************************************************//
484	IXMLDOMDocumentDisp = dispinterface
485	['{2933BF81-7B36-11D2-B20E-00C04F983E60}']
486	property doctype: IXMLDOMDocumentType readonly dispid 38;
487	property implementation_: IXMLDOMImplementation readonly dispid 39;
488	property documentElement: IXMLDOMElement dispid 40;
489	function createElement(const tagName: WideString): IXMLDOMElement; dispid 41;
490	function createDocumentFragment: IXMLDOMDocumentFragment; dispid 42;
491	function createTextNode(const data: WideString): IXMLDOMText; dispid 43;
492	function createComment(const data: WideString): IXMLDOMComment; dispid 44;
493	function createCDATASection(const data: WideString): IXMLDOMCDATASection; dispid 45;
494	function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction; dispid 46;
495	function createAttribute(const name: WideString): IXMLDOMAttribute; dispid 47;
496	function createEntityReference(const name: WideString): IXMLDOMEntityReference; dispid 49;
497	function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; dispid 50;
498	function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode; dispid 54;
499	function nodeFromID(const idString: WideString): IXMLDOMNode; dispid 56;
500	function load(xmlSource: OleVariant): WordBool; dispid 58;
501	property readyState: Integer readonly dispid -525;
502	property parseError: IXMLDOMParseError readonly dispid 59;
503	property url: WideString readonly dispid 60;
504	property async: WordBool dispid 61;
505	procedure abort; dispid 62;
506	function loadXML(const bstrXML: WideString): WordBool; dispid 63;
507	procedure save(desination: OleVariant); dispid 64;
508	property validateOnParse: WordBool dispid 65;
509	property resolveExternals: WordBool dispid 66;
510	property preserveWhiteSpace: WordBool dispid 67;
511	property onreadystatechange: OleVariant writeonly dispid 68;
512	property ondataavailable: OleVariant writeonly dispid 69;
513	property ontransformnode: OleVariant writeonly dispid 70;
514	property nodeName: WideString readonly dispid 2;
515	property nodeValue: OleVariant dispid 3;
516	property nodeType: DOMNodeType readonly dispid 4;
517	property parentNode: IXMLDOMNode readonly dispid 6;
518	property childNodes: IXMLDOMNodeList readonly dispid 7;
519	property firstChild: IXMLDOMNode readonly dispid 8;
520	property lastChild: IXMLDOMNode readonly dispid 9;
521	property previousSibling: IXMLDOMNode readonly dispid 10;
522	property nextSibling: IXMLDOMNode readonly dispid 11;
523	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
524	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
525	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
526	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
527	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
528	function hasChildNodes: WordBool; dispid 17;
529	property ownerDocument: IXMLDOMDocument readonly dispid 18;
530	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
531	property nodeTypeString: WideString readonly dispid 21;
532	property text: WideString dispid 24;
533	property specified: WordBool readonly dispid 22;
534	property definition: IXMLDOMNode readonly dispid 23;
535	property nodeTypedValue: OleVariant dispid 25;
536	function dataType: OleVariant; dispid 26;
537	property xml: WideString readonly dispid 27;
538	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
539	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
540	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
541	property parsed: WordBool readonly dispid 31;
542	property namespaceURI: WideString readonly dispid 32;
543	property prefix: WideString readonly dispid 33;
544	property baseName: WideString readonly dispid 34;
545	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
546	end;
547
548	// *********************************************************************//
549	// Interface: IXMLDOMDocumentType
550	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
551	// GUID: {2933BF8B-7B36-11D2-B20E-00C04F983E60}
552	// *********************************************************************//
553	IXMLDOMDocumentType = interface(IXMLDOMNode)
554	['{2933BF8B-7B36-11D2-B20E-00C04F983E60}']
555	function Get_name: WideString; safecall;
556	function Get_entities: IXMLDOMNamedNodeMap; safecall;
557	function Get_notations: IXMLDOMNamedNodeMap; safecall;
558	property name: WideString read Get_name;
559	property entities: IXMLDOMNamedNodeMap read Get_entities;
560	property notations: IXMLDOMNamedNodeMap read Get_notations;
561	end;
562
563	// *********************************************************************//
564	// DispIntf: IXMLDOMDocumentTypeDisp
565	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
566	// GUID: {2933BF8B-7B36-11D2-B20E-00C04F983E60}
567	// *********************************************************************//
568	IXMLDOMDocumentTypeDisp = dispinterface
569	['{2933BF8B-7B36-11D2-B20E-00C04F983E60}']
570	property name: WideString readonly dispid 131;
571	property entities: IXMLDOMNamedNodeMap readonly dispid 132;
572	property notations: IXMLDOMNamedNodeMap readonly dispid 133;
573	property nodeName: WideString readonly dispid 2;
574	property nodeValue: OleVariant dispid 3;
575	property nodeType: DOMNodeType readonly dispid 4;
576	property parentNode: IXMLDOMNode readonly dispid 6;
577	property childNodes: IXMLDOMNodeList readonly dispid 7;
578	property firstChild: IXMLDOMNode readonly dispid 8;
579	property lastChild: IXMLDOMNode readonly dispid 9;
580	property previousSibling: IXMLDOMNode readonly dispid 10;
581	property nextSibling: IXMLDOMNode readonly dispid 11;
582	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
583	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
584	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
585	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
586	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
587	function hasChildNodes: WordBool; dispid 17;
588	property ownerDocument: IXMLDOMDocument readonly dispid 18;
589	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
590	property nodeTypeString: WideString readonly dispid 21;
591	property text: WideString dispid 24;
592	property specified: WordBool readonly dispid 22;
593	property definition: IXMLDOMNode readonly dispid 23;
594	property nodeTypedValue: OleVariant dispid 25;
595	function dataType: OleVariant; dispid 26;
596	property xml: WideString readonly dispid 27;
597	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
598	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
599	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
600	property parsed: WordBool readonly dispid 31;
601	property namespaceURI: WideString readonly dispid 32;
602	property prefix: WideString readonly dispid 33;
603	property baseName: WideString readonly dispid 34;
604	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
605	end;
606
607	// *********************************************************************//
608	// Interface: IXMLDOMElement
609	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
610	// GUID: {2933BF86-7B36-11D2-B20E-00C04F983E60}
611	// *********************************************************************//
612	IXMLDOMElement = interface(IXMLDOMNode)
613	['{2933BF86-7B36-11D2-B20E-00C04F983E60}']
614	function Get_tagName: WideString; safecall;
615	function getAttribute(const name: WideString): OleVariant; safecall;
616	procedure setAttribute(const name: WideString; value: OleVariant); safecall;
617	procedure removeAttribute(const name: WideString); safecall;
618	function getAttributeNode(const name: WideString): IXMLDOMAttribute; safecall;
619	function setAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; safecall;
620	function removeAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; safecall;
621	function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; safecall;
622	procedure normalize; safecall;
623	property tagName: WideString read Get_tagName;
624	end;
625
626	// *********************************************************************//
627	// DispIntf: IXMLDOMElementDisp
628	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
629	// GUID: {2933BF86-7B36-11D2-B20E-00C04F983E60}
630	// *********************************************************************//
631	IXMLDOMElementDisp = dispinterface
632	['{2933BF86-7B36-11D2-B20E-00C04F983E60}']
633	property tagName: WideString readonly dispid 97;
634	function getAttribute(const name: WideString): OleVariant; dispid 99;
635	procedure setAttribute(const name: WideString; value: OleVariant); dispid 100;
636	procedure removeAttribute(const name: WideString); dispid 101;
637	function getAttributeNode(const name: WideString): IXMLDOMAttribute; dispid 102;
638	function setAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; dispid 103;
639	function removeAttributeNode(const DOMAttribute: IXMLDOMAttribute): IXMLDOMAttribute; dispid 104;
640	function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList; dispid 105;
641	procedure normalize; dispid 106;
642	property nodeName: WideString readonly dispid 2;
643	property nodeValue: OleVariant dispid 3;
644	property nodeType: DOMNodeType readonly dispid 4;
645	property parentNode: IXMLDOMNode readonly dispid 6;
646	property childNodes: IXMLDOMNodeList readonly dispid 7;
647	property firstChild: IXMLDOMNode readonly dispid 8;
648	property lastChild: IXMLDOMNode readonly dispid 9;
649	property previousSibling: IXMLDOMNode readonly dispid 10;
650	property nextSibling: IXMLDOMNode readonly dispid 11;
651	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
652	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
653	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
654	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
655	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
656	function hasChildNodes: WordBool; dispid 17;
657	property ownerDocument: IXMLDOMDocument readonly dispid 18;
658	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
659	property nodeTypeString: WideString readonly dispid 21;
660	property text: WideString dispid 24;
661	property specified: WordBool readonly dispid 22;
662	property definition: IXMLDOMNode readonly dispid 23;
663	property nodeTypedValue: OleVariant dispid 25;
664	function dataType: OleVariant; dispid 26;
665	property xml: WideString readonly dispid 27;
666	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
667	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
668	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
669	property parsed: WordBool readonly dispid 31;
670	property namespaceURI: WideString readonly dispid 32;
671	property prefix: WideString readonly dispid 33;
672	property baseName: WideString readonly dispid 34;
673	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
674	end;
675
676	// *********************************************************************//
677	// Interface: IXMLDOMAttribute
678	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
679	// GUID: {2933BF85-7B36-11D2-B20E-00C04F983E60}
680	// *********************************************************************//
681	IXMLDOMAttribute = interface(IXMLDOMNode)
682	['{2933BF85-7B36-11D2-B20E-00C04F983E60}']
683	function Get_name: WideString; safecall;
684	function Get_value: OleVariant; safecall;
685	procedure Set_value(attributeValue: OleVariant); safecall;
686	property name: WideString read Get_name;
687	property value: OleVariant read Get_value write Set_value;
688	end;
689
690	// *********************************************************************//
691	// DispIntf: IXMLDOMAttributeDisp
692	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
693	// GUID: {2933BF85-7B36-11D2-B20E-00C04F983E60}
694	// *********************************************************************//
695	IXMLDOMAttributeDisp = dispinterface
696	['{2933BF85-7B36-11D2-B20E-00C04F983E60}']
697	property name: WideString readonly dispid 118;
698	property value: OleVariant dispid 120;
699	property nodeName: WideString readonly dispid 2;
700	property nodeValue: OleVariant dispid 3;
701	property nodeType: DOMNodeType readonly dispid 4;
702	property parentNode: IXMLDOMNode readonly dispid 6;
703	property childNodes: IXMLDOMNodeList readonly dispid 7;
704	property firstChild: IXMLDOMNode readonly dispid 8;
705	property lastChild: IXMLDOMNode readonly dispid 9;
706	property previousSibling: IXMLDOMNode readonly dispid 10;
707	property nextSibling: IXMLDOMNode readonly dispid 11;
708	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
709	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
710	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
711	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
712	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
713	function hasChildNodes: WordBool; dispid 17;
714	property ownerDocument: IXMLDOMDocument readonly dispid 18;
715	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
716	property nodeTypeString: WideString readonly dispid 21;
717	property text: WideString dispid 24;
718	property specified: WordBool readonly dispid 22;
719	property definition: IXMLDOMNode readonly dispid 23;
720	property nodeTypedValue: OleVariant dispid 25;
721	function dataType: OleVariant; dispid 26;
722	property xml: WideString readonly dispid 27;
723	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
724	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
725	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
726	property parsed: WordBool readonly dispid 31;
727	property namespaceURI: WideString readonly dispid 32;
728	property prefix: WideString readonly dispid 33;
729	property baseName: WideString readonly dispid 34;
730	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
731	end;
732
733	// *********************************************************************//
734	// Interface: IXMLDOMDocumentFragment
735	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
736	// GUID: {3EFAA413-272F-11D2-836F-0000F87A7782}
737	// *********************************************************************//
738	IXMLDOMDocumentFragment = interface(IXMLDOMNode)
739	['{3EFAA413-272F-11D2-836F-0000F87A7782}']
740	end;
741
742	// *********************************************************************//
743	// DispIntf: IXMLDOMDocumentFragmentDisp
744	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
745	// GUID: {3EFAA413-272F-11D2-836F-0000F87A7782}
746	// *********************************************************************//
747	IXMLDOMDocumentFragmentDisp = dispinterface
748	['{3EFAA413-272F-11D2-836F-0000F87A7782}']
749	property nodeName: WideString readonly dispid 2;
750	property nodeValue: OleVariant dispid 3;
751	property nodeType: DOMNodeType readonly dispid 4;
752	property parentNode: IXMLDOMNode readonly dispid 6;
753	property childNodes: IXMLDOMNodeList readonly dispid 7;
754	property firstChild: IXMLDOMNode readonly dispid 8;
755	property lastChild: IXMLDOMNode readonly dispid 9;
756	property previousSibling: IXMLDOMNode readonly dispid 10;
757	property nextSibling: IXMLDOMNode readonly dispid 11;
758	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
759	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
760	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
761	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
762	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
763	function hasChildNodes: WordBool; dispid 17;
764	property ownerDocument: IXMLDOMDocument readonly dispid 18;
765	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
766	property nodeTypeString: WideString readonly dispid 21;
767	property text: WideString dispid 24;
768	property specified: WordBool readonly dispid 22;
769	property definition: IXMLDOMNode readonly dispid 23;
770	property nodeTypedValue: OleVariant dispid 25;
771	function dataType: OleVariant; dispid 26;
772	property xml: WideString readonly dispid 27;
773	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
774	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
775	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
776	property parsed: WordBool readonly dispid 31;
777	property namespaceURI: WideString readonly dispid 32;
778	property prefix: WideString readonly dispid 33;
779	property baseName: WideString readonly dispid 34;
780	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
781	end;
782
783	// *********************************************************************//
784	// Interface: IXMLDOMCharacterData
785	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
786	// GUID: {2933BF84-7B36-11D2-B20E-00C04F983E60}
787	// *********************************************************************//
788	IXMLDOMCharacterData = interface(IXMLDOMNode)
789	['{2933BF84-7B36-11D2-B20E-00C04F983E60}']
790	function Get_data: WideString; safecall;
791	procedure Set_data(const data: WideString); safecall;
792	function Get_length: Integer; safecall;
793	function substringData(offset: Integer; count: Integer): WideString; safecall;
794	procedure appendData(const data: WideString); safecall;
795	procedure insertData(offset: Integer; const data: WideString); safecall;
796	procedure deleteData(offset: Integer; count: Integer); safecall;
797	procedure replaceData(offset: Integer; count: Integer; const data: WideString); safecall;
798	property data: WideString read Get_data write Set_data;
799	property length: Integer read Get_length;
800	end;
801
802	// *********************************************************************//
803	// DispIntf: IXMLDOMCharacterDataDisp
804	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
805	// GUID: {2933BF84-7B36-11D2-B20E-00C04F983E60}
806	// *********************************************************************//
807	IXMLDOMCharacterDataDisp = dispinterface
808	['{2933BF84-7B36-11D2-B20E-00C04F983E60}']
809	property data: WideString dispid 109;
810	property length: Integer readonly dispid 110;
811	function substringData(offset: Integer; count: Integer): WideString; dispid 111;
812	procedure appendData(const data: WideString); dispid 112;
813	procedure insertData(offset: Integer; const data: WideString); dispid 113;
814	procedure deleteData(offset: Integer; count: Integer); dispid 114;
815	procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115;
816	property nodeName: WideString readonly dispid 2;
817	property nodeValue: OleVariant dispid 3;
818	property nodeType: DOMNodeType readonly dispid 4;
819	property parentNode: IXMLDOMNode readonly dispid 6;
820	property childNodes: IXMLDOMNodeList readonly dispid 7;
821	property firstChild: IXMLDOMNode readonly dispid 8;
822	property lastChild: IXMLDOMNode readonly dispid 9;
823	property previousSibling: IXMLDOMNode readonly dispid 10;
824	property nextSibling: IXMLDOMNode readonly dispid 11;
825	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
826	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
827	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
828	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
829	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
830	function hasChildNodes: WordBool; dispid 17;
831	property ownerDocument: IXMLDOMDocument readonly dispid 18;
832	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
833	property nodeTypeString: WideString readonly dispid 21;
834	property text: WideString dispid 24;
835	property specified: WordBool readonly dispid 22;
836	property definition: IXMLDOMNode readonly dispid 23;
837	property nodeTypedValue: OleVariant dispid 25;
838	function dataType: OleVariant; dispid 26;
839	property xml: WideString readonly dispid 27;
840	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
841	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
842	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
843	property parsed: WordBool readonly dispid 31;
844	property namespaceURI: WideString readonly dispid 32;
845	property prefix: WideString readonly dispid 33;
846	property baseName: WideString readonly dispid 34;
847	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
848	end;
849
850	// *********************************************************************//
851	// Interface: IXMLDOMText
852	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
853	// GUID: {2933BF87-7B36-11D2-B20E-00C04F983E60}
854	// *********************************************************************//
855	IXMLDOMText = interface(IXMLDOMCharacterData)
856	['{2933BF87-7B36-11D2-B20E-00C04F983E60}']
857	function splitText(offset: Integer): IXMLDOMText; safecall;
858	end;
859
860	// *********************************************************************//
861	// DispIntf: IXMLDOMTextDisp
862	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
863	// GUID: {2933BF87-7B36-11D2-B20E-00C04F983E60}
864	// *********************************************************************//
865	IXMLDOMTextDisp = dispinterface
866	['{2933BF87-7B36-11D2-B20E-00C04F983E60}']
867	function splitText(offset: Integer): IXMLDOMText; dispid 123;
868	property data: WideString dispid 109;
869	property length: Integer readonly dispid 110;
870	function substringData(offset: Integer; count: Integer): WideString; dispid 111;
871	procedure appendData(const data: WideString); dispid 112;
872	procedure insertData(offset: Integer; const data: WideString); dispid 113;
873	procedure deleteData(offset: Integer; count: Integer); dispid 114;
874	procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115;
875	property nodeName: WideString readonly dispid 2;
876	property nodeValue: OleVariant dispid 3;
877	property nodeType: DOMNodeType readonly dispid 4;
878	property parentNode: IXMLDOMNode readonly dispid 6;
879	property childNodes: IXMLDOMNodeList readonly dispid 7;
880	property firstChild: IXMLDOMNode readonly dispid 8;
881	property lastChild: IXMLDOMNode readonly dispid 9;
882	property previousSibling: IXMLDOMNode readonly dispid 10;
883	property nextSibling: IXMLDOMNode readonly dispid 11;
884	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
885	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
886	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
887	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
888	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
889	function hasChildNodes: WordBool; dispid 17;
890	property ownerDocument: IXMLDOMDocument readonly dispid 18;
891	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
892	property nodeTypeString: WideString readonly dispid 21;
893	property text: WideString dispid 24;
894	property specified: WordBool readonly dispid 22;
895	property definition: IXMLDOMNode readonly dispid 23;
896	property nodeTypedValue: OleVariant dispid 25;
897	function dataType: OleVariant; dispid 26;
898	property xml: WideString readonly dispid 27;
899	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
900	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
901	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
902	property parsed: WordBool readonly dispid 31;
903	property namespaceURI: WideString readonly dispid 32;
904	property prefix: WideString readonly dispid 33;
905	property baseName: WideString readonly dispid 34;
906	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
907	end;
908
909	// *********************************************************************//
910	// Interface: IXMLDOMComment
911	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
912	// GUID: {2933BF88-7B36-11D2-B20E-00C04F983E60}
913	// *********************************************************************//
914	IXMLDOMComment = interface(IXMLDOMCharacterData)
915	['{2933BF88-7B36-11D2-B20E-00C04F983E60}']
916	end;
917
918	// *********************************************************************//
919	// DispIntf: IXMLDOMCommentDisp
920	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
921	// GUID: {2933BF88-7B36-11D2-B20E-00C04F983E60}
922	// *********************************************************************//
923	IXMLDOMCommentDisp = dispinterface
924	['{2933BF88-7B36-11D2-B20E-00C04F983E60}']
925	property data: WideString dispid 109;
926	property length: Integer readonly dispid 110;
927	function substringData(offset: Integer; count: Integer): WideString; dispid 111;
928	procedure appendData(const data: WideString); dispid 112;
929	procedure insertData(offset: Integer; const data: WideString); dispid 113;
930	procedure deleteData(offset: Integer; count: Integer); dispid 114;
931	procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115;
932	property nodeName: WideString readonly dispid 2;
933	property nodeValue: OleVariant dispid 3;
934	property nodeType: DOMNodeType readonly dispid 4;
935	property parentNode: IXMLDOMNode readonly dispid 6;
936	property childNodes: IXMLDOMNodeList readonly dispid 7;
937	property firstChild: IXMLDOMNode readonly dispid 8;
938	property lastChild: IXMLDOMNode readonly dispid 9;
939	property previousSibling: IXMLDOMNode readonly dispid 10;
940	property nextSibling: IXMLDOMNode readonly dispid 11;
941	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
942	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
943	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
944	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
945	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
946	function hasChildNodes: WordBool; dispid 17;
947	property ownerDocument: IXMLDOMDocument readonly dispid 18;
948	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
949	property nodeTypeString: WideString readonly dispid 21;
950	property text: WideString dispid 24;
951	property specified: WordBool readonly dispid 22;
952	property definition: IXMLDOMNode readonly dispid 23;
953	property nodeTypedValue: OleVariant dispid 25;
954	function dataType: OleVariant; dispid 26;
955	property xml: WideString readonly dispid 27;
956	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
957	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
958	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
959	property parsed: WordBool readonly dispid 31;
960	property namespaceURI: WideString readonly dispid 32;
961	property prefix: WideString readonly dispid 33;
962	property baseName: WideString readonly dispid 34;
963	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
964	end;
965
966	// *********************************************************************//
967	// Interface: IXMLDOMCDATASection
968	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
969	// GUID: {2933BF8A-7B36-11D2-B20E-00C04F983E60}
970	// *********************************************************************//
971	IXMLDOMCDATASection = interface(IXMLDOMText)
972	['{2933BF8A-7B36-11D2-B20E-00C04F983E60}']
973	end;
974
975	// *********************************************************************//
976	// DispIntf: IXMLDOMCDATASectionDisp
977	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
978	// GUID: {2933BF8A-7B36-11D2-B20E-00C04F983E60}
979	// *********************************************************************//
980	IXMLDOMCDATASectionDisp = dispinterface
981	['{2933BF8A-7B36-11D2-B20E-00C04F983E60}']
982	function splitText(offset: Integer): IXMLDOMText; dispid 123;
983	property data: WideString dispid 109;
984	property length: Integer readonly dispid 110;
985	function substringData(offset: Integer; count: Integer): WideString; dispid 111;
986	procedure appendData(const data: WideString); dispid 112;
987	procedure insertData(offset: Integer; const data: WideString); dispid 113;
988	procedure deleteData(offset: Integer; count: Integer); dispid 114;
989	procedure replaceData(offset: Integer; count: Integer; const data: WideString); dispid 115;
990	property nodeName: WideString readonly dispid 2;
991	property nodeValue: OleVariant dispid 3;
992	property nodeType: DOMNodeType readonly dispid 4;
993	property parentNode: IXMLDOMNode readonly dispid 6;
994	property childNodes: IXMLDOMNodeList readonly dispid 7;
995	property firstChild: IXMLDOMNode readonly dispid 8;
996	property lastChild: IXMLDOMNode readonly dispid 9;
997	property previousSibling: IXMLDOMNode readonly dispid 10;
998	property nextSibling: IXMLDOMNode readonly dispid 11;
999	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
1000	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
1001	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
1002	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
1003	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
1004	function hasChildNodes: WordBool; dispid 17;
1005	property ownerDocument: IXMLDOMDocument readonly dispid 18;
1006	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
1007	property nodeTypeString: WideString readonly dispid 21;
1008	property text: WideString dispid 24;
1009	property specified: WordBool readonly dispid 22;
1010	property definition: IXMLDOMNode readonly dispid 23;
1011	property nodeTypedValue: OleVariant dispid 25;
1012	function dataType: OleVariant; dispid 26;
1013	property xml: WideString readonly dispid 27;
1014	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
1015	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
1016	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
1017	property parsed: WordBool readonly dispid 31;
1018	property namespaceURI: WideString readonly dispid 32;
1019	property prefix: WideString readonly dispid 33;
1020	property baseName: WideString readonly dispid 34;
1021	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
1022	end;
1023
1024	// *********************************************************************//
1025	// Interface: IXMLDOMProcessingInstruction
1026	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1027	// GUID: {2933BF89-7B36-11D2-B20E-00C04F983E60}
1028	// *********************************************************************//
1029	IXMLDOMProcessingInstruction = interface(IXMLDOMNode)
1030	['{2933BF89-7B36-11D2-B20E-00C04F983E60}']
1031	function Get_target: WideString; safecall;
1032	function Get_data: WideString; safecall;
1033	procedure Set_data(const value: WideString); safecall;
1034	property target: WideString read Get_target;
1035	property data: WideString read Get_data write Set_data;
1036	end;
1037
1038	// *********************************************************************//
1039	// DispIntf: IXMLDOMProcessingInstructionDisp
1040	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1041	// GUID: {2933BF89-7B36-11D2-B20E-00C04F983E60}
1042	// *********************************************************************//
1043	IXMLDOMProcessingInstructionDisp = dispinterface
1044	['{2933BF89-7B36-11D2-B20E-00C04F983E60}']
1045	property target: WideString readonly dispid 127;
1046	property data: WideString dispid 128;
1047	property nodeName: WideString readonly dispid 2;
1048	property nodeValue: OleVariant dispid 3;
1049	property nodeType: DOMNodeType readonly dispid 4;
1050	property parentNode: IXMLDOMNode readonly dispid 6;
1051	property childNodes: IXMLDOMNodeList readonly dispid 7;
1052	property firstChild: IXMLDOMNode readonly dispid 8;
1053	property lastChild: IXMLDOMNode readonly dispid 9;
1054	property previousSibling: IXMLDOMNode readonly dispid 10;
1055	property nextSibling: IXMLDOMNode readonly dispid 11;
1056	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
1057	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
1058	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
1059	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
1060	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
1061	function hasChildNodes: WordBool; dispid 17;
1062	property ownerDocument: IXMLDOMDocument readonly dispid 18;
1063	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
1064	property nodeTypeString: WideString readonly dispid 21;
1065	property text: WideString dispid 24;
1066	property specified: WordBool readonly dispid 22;
1067	property definition: IXMLDOMNode readonly dispid 23;
1068	property nodeTypedValue: OleVariant dispid 25;
1069	function dataType: OleVariant; dispid 26;
1070	property xml: WideString readonly dispid 27;
1071	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
1072	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
1073	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
1074	property parsed: WordBool readonly dispid 31;
1075	property namespaceURI: WideString readonly dispid 32;
1076	property prefix: WideString readonly dispid 33;
1077	property baseName: WideString readonly dispid 34;
1078	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
1079	end;
1080
1081	// *********************************************************************//
1082	// Interface: IXMLDOMEntityReference
1083	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1084	// GUID: {2933BF8E-7B36-11D2-B20E-00C04F983E60}
1085	// *********************************************************************//
1086	IXMLDOMEntityReference = interface(IXMLDOMNode)
1087	['{2933BF8E-7B36-11D2-B20E-00C04F983E60}']
1088	end;
1089
1090	// *********************************************************************//
1091	// DispIntf: IXMLDOMEntityReferenceDisp
1092	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1093	// GUID: {2933BF8E-7B36-11D2-B20E-00C04F983E60}
1094	// *********************************************************************//
1095	IXMLDOMEntityReferenceDisp = dispinterface
1096	['{2933BF8E-7B36-11D2-B20E-00C04F983E60}']
1097	property nodeName: WideString readonly dispid 2;
1098	property nodeValue: OleVariant dispid 3;
1099	property nodeType: DOMNodeType readonly dispid 4;
1100	property parentNode: IXMLDOMNode readonly dispid 6;
1101	property childNodes: IXMLDOMNodeList readonly dispid 7;
1102	property firstChild: IXMLDOMNode readonly dispid 8;
1103	property lastChild: IXMLDOMNode readonly dispid 9;
1104	property previousSibling: IXMLDOMNode readonly dispid 10;
1105	property nextSibling: IXMLDOMNode readonly dispid 11;
1106	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
1107	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
1108	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
1109	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
1110	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
1111	function hasChildNodes: WordBool; dispid 17;
1112	property ownerDocument: IXMLDOMDocument readonly dispid 18;
1113	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
1114	property nodeTypeString: WideString readonly dispid 21;
1115	property text: WideString dispid 24;
1116	property specified: WordBool readonly dispid 22;
1117	property definition: IXMLDOMNode readonly dispid 23;
1118	property nodeTypedValue: OleVariant dispid 25;
1119	function dataType: OleVariant; dispid 26;
1120	property xml: WideString readonly dispid 27;
1121	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
1122	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
1123	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
1124	property parsed: WordBool readonly dispid 31;
1125	property namespaceURI: WideString readonly dispid 32;
1126	property prefix: WideString readonly dispid 33;
1127	property baseName: WideString readonly dispid 34;
1128	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
1129	end;
1130
1131	// *********************************************************************//
1132	// Interface: IXMLDOMParseError
1133	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1134	// GUID: {3EFAA426-272F-11D2-836F-0000F87A7782}
1135	// *********************************************************************//
1136	IXMLDOMParseError = interface(IDispatch)
1137	['{3EFAA426-272F-11D2-836F-0000F87A7782}']
1138	function Get_errorCode: Integer; safecall;
1139	function Get_url: WideString; safecall;
1140	function Get_reason: WideString; safecall;
1141	function Get_srcText: WideString; safecall;
1142	function Get_line: Integer; safecall;
1143	function Get_linepos: Integer; safecall;
1144	function Get_filepos: Integer; safecall;
1145	property errorCode: Integer read Get_errorCode;
1146	property url: WideString read Get_url;
1147	property reason: WideString read Get_reason;
1148	property srcText: WideString read Get_srcText;
1149	property line: Integer read Get_line;
1150	property linepos: Integer read Get_linepos;
1151	property filepos: Integer read Get_filepos;
1152	end;
1153
1154	// *********************************************************************//
1155	// DispIntf: IXMLDOMParseErrorDisp
1156	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1157	// GUID: {3EFAA426-272F-11D2-836F-0000F87A7782}
1158	// *********************************************************************//
1159	IXMLDOMParseErrorDisp = dispinterface
1160	['{3EFAA426-272F-11D2-836F-0000F87A7782}']
1161	property errorCode: Integer readonly dispid 0;
1162	property url: WideString readonly dispid 179;
1163	property reason: WideString readonly dispid 180;
1164	property srcText: WideString readonly dispid 181;
1165	property line: Integer readonly dispid 182;
1166	property linepos: Integer readonly dispid 183;
1167	property filepos: Integer readonly dispid 184;
1168	end;
1169
1170	// *********************************************************************//
1171	// Interface: IXMLDOMNotation
1172	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1173	// GUID: {2933BF8C-7B36-11D2-B20E-00C04F983E60}
1174	// *********************************************************************//
1175	IXMLDOMNotation = interface(IXMLDOMNode)
1176	['{2933BF8C-7B36-11D2-B20E-00C04F983E60}']
1177	function Get_publicId: OleVariant; safecall;
1178	function Get_systemId: OleVariant; safecall;
1179	property publicId: OleVariant read Get_publicId;
1180	property systemId: OleVariant read Get_systemId;
1181	end;
1182
1183	// *********************************************************************//
1184	// DispIntf: IXMLDOMNotationDisp
1185	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1186	// GUID: {2933BF8C-7B36-11D2-B20E-00C04F983E60}
1187	// *********************************************************************//
1188	IXMLDOMNotationDisp = dispinterface
1189	['{2933BF8C-7B36-11D2-B20E-00C04F983E60}']
1190	property publicId: OleVariant readonly dispid 136;
1191	property systemId: OleVariant readonly dispid 137;
1192	property nodeName: WideString readonly dispid 2;
1193	property nodeValue: OleVariant dispid 3;
1194	property nodeType: DOMNodeType readonly dispid 4;
1195	property parentNode: IXMLDOMNode readonly dispid 6;
1196	property childNodes: IXMLDOMNodeList readonly dispid 7;
1197	property firstChild: IXMLDOMNode readonly dispid 8;
1198	property lastChild: IXMLDOMNode readonly dispid 9;
1199	property previousSibling: IXMLDOMNode readonly dispid 10;
1200	property nextSibling: IXMLDOMNode readonly dispid 11;
1201	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
1202	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
1203	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
1204	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
1205	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
1206	function hasChildNodes: WordBool; dispid 17;
1207	property ownerDocument: IXMLDOMDocument readonly dispid 18;
1208	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
1209	property nodeTypeString: WideString readonly dispid 21;
1210	property text: WideString dispid 24;
1211	property specified: WordBool readonly dispid 22;
1212	property definition: IXMLDOMNode readonly dispid 23;
1213	property nodeTypedValue: OleVariant dispid 25;
1214	function dataType: OleVariant; dispid 26;
1215	property xml: WideString readonly dispid 27;
1216	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
1217	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
1218	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
1219	property parsed: WordBool readonly dispid 31;
1220	property namespaceURI: WideString readonly dispid 32;
1221	property prefix: WideString readonly dispid 33;
1222	property baseName: WideString readonly dispid 34;
1223	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
1224	end;
1225
1226	// *********************************************************************//
1227	// Interface: IXMLDOMEntity
1228	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1229	// GUID: {2933BF8D-7B36-11D2-B20E-00C04F983E60}
1230	// *********************************************************************//
1231	IXMLDOMEntity = interface(IXMLDOMNode)
1232	['{2933BF8D-7B36-11D2-B20E-00C04F983E60}']
1233	function Get_publicId: OleVariant; safecall;
1234	function Get_systemId: OleVariant; safecall;
1235	function Get_notationName: WideString; safecall;
1236	property publicId: OleVariant read Get_publicId;
1237	property systemId: OleVariant read Get_systemId;
1238	property notationName: WideString read Get_notationName;
1239	end;
1240
1241	// *********************************************************************//
1242	// DispIntf: IXMLDOMEntityDisp
1243	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1244	// GUID: {2933BF8D-7B36-11D2-B20E-00C04F983E60}
1245	// *********************************************************************//
1246	IXMLDOMEntityDisp = dispinterface
1247	['{2933BF8D-7B36-11D2-B20E-00C04F983E60}']
1248	property publicId: OleVariant readonly dispid 140;
1249	property systemId: OleVariant readonly dispid 141;
1250	property notationName: WideString readonly dispid 142;
1251	property nodeName: WideString readonly dispid 2;
1252	property nodeValue: OleVariant dispid 3;
1253	property nodeType: DOMNodeType readonly dispid 4;
1254	property parentNode: IXMLDOMNode readonly dispid 6;
1255	property childNodes: IXMLDOMNodeList readonly dispid 7;
1256	property firstChild: IXMLDOMNode readonly dispid 8;
1257	property lastChild: IXMLDOMNode readonly dispid 9;
1258	property previousSibling: IXMLDOMNode readonly dispid 10;
1259	property nextSibling: IXMLDOMNode readonly dispid 11;
1260	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
1261	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
1262	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
1263	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
1264	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
1265	function hasChildNodes: WordBool; dispid 17;
1266	property ownerDocument: IXMLDOMDocument readonly dispid 18;
1267	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
1268	property nodeTypeString: WideString readonly dispid 21;
1269	property text: WideString dispid 24;
1270	property specified: WordBool readonly dispid 22;
1271	property definition: IXMLDOMNode readonly dispid 23;
1272	property nodeTypedValue: OleVariant dispid 25;
1273	function dataType: OleVariant; dispid 26;
1274	property xml: WideString readonly dispid 27;
1275	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
1276	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
1277	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
1278	property parsed: WordBool readonly dispid 31;
1279	property namespaceURI: WideString readonly dispid 32;
1280	property prefix: WideString readonly dispid 33;
1281	property baseName: WideString readonly dispid 34;
1282	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
1283	end;
1284
1285	// *********************************************************************//
1286	// Interface: IXTLRuntime
1287	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1288	// GUID: {3EFAA425-272F-11D2-836F-0000F87A7782}
1289	// *********************************************************************//
1290	IXTLRuntime = interface(IXMLDOMNode)
1291	['{3EFAA425-272F-11D2-836F-0000F87A7782}']
1292	function uniqueID(const pNode: IXMLDOMNode): Integer; safecall;
1293	function depth(const pNode: IXMLDOMNode): Integer; safecall;
1294	function childNumber(const pNode: IXMLDOMNode): Integer; safecall;
1295	function ancestorChildNumber(const bstrNodeName: WideString; const pNode: IXMLDOMNode): Integer; safecall;
1296	function absoluteChildNumber(const pNode: IXMLDOMNode): Integer; safecall;
1297	function formatIndex(lIndex: Integer; const bstrFormat: WideString): WideString; safecall;
1298	function formatNumber(dblNumber: Double; const bstrFormat: WideString): WideString; safecall;
1299	function formatDate(varDate: OleVariant; const bstrFormat: WideString;
1300	varDestLocale: OleVariant): WideString; safecall;
1301	function formatTime(varTime: OleVariant; const bstrFormat: WideString;
1302	varDestLocale: OleVariant): WideString; safecall;
1303	end;
1304
1305	// *********************************************************************//
1306	// DispIntf: IXTLRuntimeDisp
1307	// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
1308	// GUID: {3EFAA425-272F-11D2-836F-0000F87A7782}
1309	// *********************************************************************//
1310	IXTLRuntimeDisp = dispinterface
1311	['{3EFAA425-272F-11D2-836F-0000F87A7782}']
1312	function uniqueID(const pNode: IXMLDOMNode): Integer; dispid 187;
1313	function depth(const pNode: IXMLDOMNode): Integer; dispid 188;
1314	function childNumber(const pNode: IXMLDOMNode): Integer; dispid 189;
1315	function ancestorChildNumber(const bstrNodeName: WideString; const pNode: IXMLDOMNode): Integer; dispid 190;
1316	function absoluteChildNumber(const pNode: IXMLDOMNode): Integer; dispid 191;
1317	function formatIndex(lIndex: Integer; const bstrFormat: WideString): WideString; dispid 192;
1318	function formatNumber(dblNumber: Double; const bstrFormat: WideString): WideString; dispid 193;
1319	function formatDate(varDate: OleVariant; const bstrFormat: WideString;
1320	varDestLocale: OleVariant): WideString; dispid 194;
1321	function formatTime(varTime: OleVariant; const bstrFormat: WideString;
1322	varDestLocale: OleVariant): WideString; dispid 195;
1323	property nodeName: WideString readonly dispid 2;
1324	property nodeValue: OleVariant dispid 3;
1325	property nodeType: DOMNodeType readonly dispid 4;
1326	property parentNode: IXMLDOMNode readonly dispid 6;
1327	property childNodes: IXMLDOMNodeList readonly dispid 7;
1328	property firstChild: IXMLDOMNode readonly dispid 8;
1329	property lastChild: IXMLDOMNode readonly dispid 9;
1330	property previousSibling: IXMLDOMNode readonly dispid 10;
1331	property nextSibling: IXMLDOMNode readonly dispid 11;
1332	property attributes: IXMLDOMNamedNodeMap readonly dispid 12;
1333	function insertBefore(const newChild: IXMLDOMNode; refChild: OleVariant): IXMLDOMNode; dispid 13;
1334	function replaceChild(const newChild: IXMLDOMNode; const oldChild: IXMLDOMNode): IXMLDOMNode; dispid 14;
1335	function removeChild(const childNode: IXMLDOMNode): IXMLDOMNode; dispid 15;
1336	function appendChild(const newChild: IXMLDOMNode): IXMLDOMNode; dispid 16;
1337	function hasChildNodes: WordBool; dispid 17;
1338	property ownerDocument: IXMLDOMDocument readonly dispid 18;
1339	function cloneNode(deep: WordBool): IXMLDOMNode; dispid 19;
1340	property nodeTypeString: WideString readonly dispid 21;
1341	property text: WideString dispid 24;
1342	property specified: WordBool readonly dispid 22;
1343	property definition: IXMLDOMNode readonly dispid 23;
1344	property nodeTypedValue: OleVariant dispid 25;
1345	function dataType: OleVariant; dispid 26;
1346	property xml: WideString readonly dispid 27;
1347	function transformNode(const stylesheet: IXMLDOMNode): WideString; dispid 28;
1348	function selectNodes(const queryString: WideString): IXMLDOMNodeList; dispid 29;
1349	function selectSingleNode(const queryString: WideString): IXMLDOMNode; dispid 30;
1350	property parsed: WordBool readonly dispid 31;
1351	property namespaceURI: WideString readonly dispid 32;
1352	property prefix: WideString readonly dispid 33;
1353	property baseName: WideString readonly dispid 34;
1354	procedure transformNodeToObject(const stylesheet: IXMLDOMNode; outputObject: OleVariant); dispid 35;
1355	end;
1356
1357	// *********************************************************************//
1358	// DispIntf: XMLDOMDocumentEvents
1359	// Flags: (4112) Hidden Dispatchable
1360	// GUID: {3EFAA427-272F-11D2-836F-0000F87A7782}
1361	// *********************************************************************//
1362	XMLDOMDocumentEvents = dispinterface
1363	['{3EFAA427-272F-11D2-836F-0000F87A7782}']
1364	procedure ondataavailable; dispid 198;
1365	procedure onreadystatechange; dispid -609;
1366	end;
1367
1368	// *********************************************************************//
1369	// Interface: IXMLHttpRequest
1370	// Flags: (4416) Dual OleAutomation Dispatchable
1371	// GUID: {ED8C108D-4349-11D2-91A4-00C04F7969E8}
1372	// *********************************************************************//
1373	IXMLHttpRequest = interface(IDispatch)
1374	['{ED8C108D-4349-11D2-91A4-00C04F7969E8}']
1375	procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
1376	bstrUser: OleVariant; bstrPassword: OleVariant); safecall;
1377	procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString); safecall;
1378	function getResponseHeader(const bstrHeader: WideString): WideString; safecall;
1379	function getAllResponseHeaders: WideString; safecall;
1380	procedure send(varBody: OleVariant); safecall;
1381	procedure abort; safecall;
1382	function Get_status: Integer; safecall;
1383	function Get_statusText: WideString; safecall;
1384	function Get_responseXML: IDispatch; safecall;
1385	function Get_responseText: WideString; safecall;
1386	function Get_responseBody: OleVariant; safecall;
1387	function Get_responseStream: OleVariant; safecall;
1388	function Get_readyState: Integer; safecall;
1389	procedure Set_onreadystatechange(const Param1: IDispatch); safecall;
1390	property status: Integer read Get_status;
1391	property statusText: WideString read Get_statusText;
1392	property responseXML: IDispatch read Get_responseXML;
1393	property responseText: WideString read Get_responseText;
1394	property responseBody: OleVariant read Get_responseBody;
1395	property responseStream: OleVariant read Get_responseStream;
1396	property readyState: Integer read Get_readyState;
1397	property onreadystatechange: IDispatch write Set_onreadystatechange;
1398	end;
1399
1400	// *********************************************************************//
1401	// DispIntf: IXMLHttpRequestDisp
1402	// Flags: (4416) Dual OleAutomation Dispatchable
1403	// GUID: {ED8C108D-4349-11D2-91A4-00C04F7969E8}
1404	// *********************************************************************//
1405	IXMLHttpRequestDisp = dispinterface
1406	['{ED8C108D-4349-11D2-91A4-00C04F7969E8}']
1407	procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
1408	bstrUser: OleVariant; bstrPassword: OleVariant); dispid 1;
1409	procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString); dispid 2;
1410	function getResponseHeader(const bstrHeader: WideString): WideString; dispid 3;
1411	function getAllResponseHeaders: WideString; dispid 4;
1412	procedure send(varBody: OleVariant); dispid 5;
1413	procedure abort; dispid 6;
1414	property status: Integer readonly dispid 7;
1415	property statusText: WideString readonly dispid 8;
1416	property responseXML: IDispatch readonly dispid 9;
1417	property responseText: WideString readonly dispid 10;
1418	property responseBody: OleVariant readonly dispid 11;
1419	property responseStream: OleVariant readonly dispid 12;
1420	property readyState: Integer readonly dispid 13;
1421	property onreadystatechange: IDispatch writeonly dispid 14;
1422	end;
1423
1424	// *********************************************************************//
1425	// Interface: IXMLDSOControl
1426	// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
1427	// GUID: {310AFA62-0575-11D2-9CA9-0060B0EC3D39}
1428	// *********************************************************************//
1429	IXMLDSOControl = interface(IDispatch)
1430	['{310AFA62-0575-11D2-9CA9-0060B0EC3D39}']
1431	function Get_XMLDocument: IXMLDOMDocument; safecall;
1432	procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument); safecall;
1433	function Get_JavaDSOCompatible: Integer; safecall;
1434	procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer); safecall;
1435	function Get_readyState: Integer; safecall;
1436	property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
1437	property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
1438	property readyState: Integer read Get_readyState;
1439	end;
1440
1441	// *********************************************************************//
1442	// DispIntf: IXMLDSOControlDisp
1443	// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
1444	// GUID: {310AFA62-0575-11D2-9CA9-0060B0EC3D39}
1445	// *********************************************************************//
1446	IXMLDSOControlDisp = dispinterface
1447	['{310AFA62-0575-11D2-9CA9-0060B0EC3D39}']
1448	property XMLDocument: IXMLDOMDocument dispid 65537;
1449	property JavaDSOCompatible: Integer dispid 65538;
1450	property readyState: Integer readonly dispid -525;
1451	end;
1452
1453	// *********************************************************************//
1454	// Interface: IXMLElementCollection
1455	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1456	// GUID: {65725580-9B5D-11D0-9BFE-00C04FC99C8E}
1457	// *********************************************************************//
1458	IXMLElementCollection = interface(IDispatch)
1459	['{65725580-9B5D-11D0-9BFE-00C04FC99C8E}']
1460	procedure Set_length(p: Integer); safecall;
1461	function Get_length: Integer; safecall;
1462	function Get__newEnum: IUnknown; safecall;
1463	function item(var1: OleVariant; var2: OleVariant): IDispatch; safecall;
1464	property length: Integer read Get_length write Set_length;
1465	property _newEnum: IUnknown read Get__newEnum;
1466	end;
1467
1468	// *********************************************************************//
1469	// DispIntf: IXMLElementCollectionDisp
1470	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1471	// GUID: {65725580-9B5D-11D0-9BFE-00C04FC99C8E}
1472	// *********************************************************************//
1473	IXMLElementCollectionDisp = dispinterface
1474	['{65725580-9B5D-11D0-9BFE-00C04FC99C8E}']
1475	property length: Integer dispid 65537;
1476	property _newEnum: IUnknown readonly dispid -4;
1477	function item(var1: OleVariant; var2: OleVariant): IDispatch; dispid 65539;
1478	end;
1479
1480	// *********************************************************************//
1481	// Interface: IXMLDocument
1482	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1483	// GUID: {F52E2B61-18A1-11D1-B105-00805F49916B}
1484	// *********************************************************************//
1485	IXMLDocument = interface(IDispatch)
1486	['{F52E2B61-18A1-11D1-B105-00805F49916B}']
1487	function Get_root: IXMLElement; safecall;
1488	function Get_fileSize: WideString; safecall;
1489	function Get_fileModifiedDate: WideString; safecall;
1490	function Get_fileUpdatedDate: WideString; safecall;
1491	function Get_url: WideString; safecall;
1492	procedure Set_url(const p: WideString); safecall;
1493	function Get_mimeType: WideString; safecall;
1494	function Get_readyState: Integer; safecall;
1495	function Get_charset: WideString; safecall;
1496	procedure Set_charset(const p: WideString); safecall;
1497	function Get_version: WideString; safecall;
1498	function Get_doctype: WideString; safecall;
1499	function Get_dtdURL: WideString; safecall;
1500	function createElement(vType: OleVariant; var1: OleVariant): IXMLElement; safecall;
1501	property root: IXMLElement read Get_root;
1502	property fileSize: WideString read Get_fileSize;
1503	property fileModifiedDate: WideString read Get_fileModifiedDate;
1504	property fileUpdatedDate: WideString read Get_fileUpdatedDate;
1505	property url: WideString read Get_url write Set_url;
1506	property mimeType: WideString read Get_mimeType;
1507	property readyState: Integer read Get_readyState;
1508	property charset: WideString read Get_charset write Set_charset;
1509	property version: WideString read Get_version;
1510	property doctype: WideString read Get_doctype;
1511	property dtdURL: WideString read Get_dtdURL;
1512	end;
1513
1514	// *********************************************************************//
1515	// DispIntf: IXMLDocumentDisp
1516	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1517	// GUID: {F52E2B61-18A1-11D1-B105-00805F49916B}
1518	// *********************************************************************//
1519	IXMLDocumentDisp = dispinterface
1520	['{F52E2B61-18A1-11D1-B105-00805F49916B}']
1521	property root: IXMLElement readonly dispid 65637;
1522	property fileSize: WideString readonly dispid 65638;
1523	property fileModifiedDate: WideString readonly dispid 65639;
1524	property fileUpdatedDate: WideString readonly dispid 65640;
1525	property url: WideString dispid 65641;
1526	property mimeType: WideString readonly dispid 65642;
1527	property readyState: Integer readonly dispid 65643;
1528	property charset: WideString dispid 65645;
1529	property version: WideString readonly dispid 65646;
1530	property doctype: WideString readonly dispid 65647;
1531	property dtdURL: WideString readonly dispid 65648;
1532	function createElement(vType: OleVariant; var1: OleVariant): IXMLElement; dispid 65644;
1533	end;
1534
1535	// *********************************************************************//
1536	// Interface: IXMLElement
1537	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1538	// GUID: {3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}
1539	// *********************************************************************//
1540	IXMLElement = interface(IDispatch)
1541	['{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}']
1542	function Get_tagName: WideString; safecall;
1543	procedure Set_tagName(const p: WideString); safecall;
1544	function Get_parent: IXMLElement; safecall;
1545	procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall;
1546	function getAttribute(const strPropertyName: WideString): OleVariant; safecall;
1547	procedure removeAttribute(const strPropertyName: WideString); safecall;
1548	function Get_children: IXMLElementCollection; safecall;
1549	function Get_type_: Integer; safecall;
1550	function Get_text: WideString; safecall;
1551	procedure Set_text(const p: WideString); safecall;
1552	procedure addChild(const pChildElem: IXMLElement; lIndex: Integer; lReserved: Integer); safecall;
1553	procedure removeChild(const pChildElem: IXMLElement); safecall;
1554	property tagName: WideString read Get_tagName write Set_tagName;
1555	property parent: IXMLElement read Get_parent;
1556	property children: IXMLElementCollection read Get_children;
1557	property type_: Integer read Get_type_;
1558	property text: WideString read Get_text write Set_text;
1559	end;
1560
1561	// *********************************************************************//
1562	// DispIntf: IXMLElementDisp
1563	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1564	// GUID: {3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}
1565	// *********************************************************************//
1566	IXMLElementDisp = dispinterface
1567	['{3F7F31AC-E15F-11D0-9C25-00C04FC99C8E}']
1568	property tagName: WideString dispid 65737;
1569	property parent: IXMLElement readonly dispid 65738;
1570	procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); dispid 65739;
1571	function getAttribute(const strPropertyName: WideString): OleVariant; dispid 65740;
1572	procedure removeAttribute(const strPropertyName: WideString); dispid 65741;
1573	property children: IXMLElementCollection readonly dispid 65742;
1574	property type_: Integer readonly dispid 65743;
1575	property text: WideString dispid 65744;
1576	procedure addChild(const pChildElem: IXMLElement; lIndex: Integer; lReserved: Integer); dispid 65745;
1577	procedure removeChild(const pChildElem: IXMLElement); dispid 65746;
1578	end;
1579
1580	// *********************************************************************//
1581	// Interface: IXMLDocument2
1582	// Flags: (4112) Hidden Dispatchable
1583	// GUID: {2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}
1584	// *********************************************************************//
1585	IXMLDocument2 = interface(IDispatch)
1586	['{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}']
1587	function Get_root(out p: IXMLElement2): HResult; stdcall;
1588	function Get_fileSize(out p: WideString): HResult; stdcall;
1589	function Get_fileModifiedDate(out p: WideString): HResult; stdcall;
1590	function Get_fileUpdatedDate(out p: WideString): HResult; stdcall;
1591	function Get_url(out p: WideString): HResult; stdcall;
1592	function Set_url(const p: WideString): HResult; stdcall;
1593	function Get_mimeType(out p: WideString): HResult; stdcall;
1594	function Get_readyState(out pl: Integer): HResult; stdcall;
1595	function Get_charset(out p: WideString): HResult; stdcall;
1596	function Set_charset(const p: WideString): HResult; stdcall;
1597	function Get_version(out p: WideString): HResult; stdcall;
1598	function Get_doctype(out p: WideString): HResult; stdcall;
1599	function Get_dtdURL(out p: WideString): HResult; stdcall;
1600	function createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult; stdcall;
1601	function Get_async(out pf: WordBool): HResult; stdcall;
1602	function Set_async(pf: WordBool): HResult; stdcall;
1603	end;
1604
1605	// *********************************************************************//
1606	// Interface: IXMLElement2
1607	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1608	// GUID: {2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}
1609	// *********************************************************************//
1610	IXMLElement2 = interface(IDispatch)
1611	['{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}']
1612	function Get_tagName: WideString; safecall;
1613	procedure Set_tagName(const p: WideString); safecall;
1614	function Get_parent: IXMLElement2; safecall;
1615	procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); safecall;
1616	function getAttribute(const strPropertyName: WideString): OleVariant; safecall;
1617	procedure removeAttribute(const strPropertyName: WideString); safecall;
1618	function Get_children: IXMLElementCollection; safecall;
1619	function Get_type_: Integer; safecall;
1620	function Get_text: WideString; safecall;
1621	procedure Set_text(const p: WideString); safecall;
1622	procedure addChild(const pChildElem: IXMLElement2; lIndex: Integer; lReserved: Integer); safecall;
1623	procedure removeChild(const pChildElem: IXMLElement2); safecall;
1624	function Get_attributes: IXMLElementCollection; safecall;
1625	property tagName: WideString read Get_tagName write Set_tagName;
1626	property parent: IXMLElement2 read Get_parent;
1627	property children: IXMLElementCollection read Get_children;
1628	property type_: Integer read Get_type_;
1629	property text: WideString read Get_text write Set_text;
1630	property attributes: IXMLElementCollection read Get_attributes;
1631	end;
1632
1633	// *********************************************************************//
1634	// DispIntf: IXMLElement2Disp
1635	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1636	// GUID: {2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}
1637	// *********************************************************************//
1638	IXMLElement2Disp = dispinterface
1639	['{2B8DE2FF-8D2D-11D1-B2FC-00C04FD915A9}']
1640	property tagName: WideString dispid 65737;
1641	property parent: IXMLElement2 readonly dispid 65738;
1642	procedure setAttribute(const strPropertyName: WideString; PropertyValue: OleVariant); dispid 65739;
1643	function getAttribute(const strPropertyName: WideString): OleVariant; dispid 65740;
1644	procedure removeAttribute(const strPropertyName: WideString); dispid 65741;
1645	property children: IXMLElementCollection readonly dispid 65742;
1646	property type_: Integer readonly dispid 65743;
1647	property text: WideString dispid 65744;
1648	procedure addChild(const pChildElem: IXMLElement2; lIndex: Integer; lReserved: Integer); dispid 65745;
1649	procedure removeChild(const pChildElem: IXMLElement2); dispid 65746;
1650	property attributes: IXMLElementCollection readonly dispid 65747;
1651	end;
1652
1653	// *********************************************************************//
1654	// Interface: IXMLAttribute
1655	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1656	// GUID: {D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}
1657	// *********************************************************************//
1658	IXMLAttribute = interface(IDispatch)
1659	['{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}']
1660	function Get_name: WideString; safecall;
1661	function Get_value: WideString; safecall;
1662	property name: WideString read Get_name;
1663	property value: WideString read Get_value;
1664	end;
1665
1666	// *********************************************************************//
1667	// DispIntf: IXMLAttributeDisp
1668	// Flags: (4432) Hidden Dual OleAutomation Dispatchable
1669	// GUID: {D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}
1670	// *********************************************************************//
1671	IXMLAttributeDisp = dispinterface
1672	['{D4D4A0FC-3B73-11D1-B2B4-00C04FB92596}']
1673	property name: WideString readonly dispid 65937;
1674	property value: WideString readonly dispid 65938;
1675	end;
1676
1677	// *********************************************************************//
1678	// Interface: IXMLError
1679	// Flags: (16) Hidden
1680	// GUID: {948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}
1681	// *********************************************************************//
1682	IXMLError = interface(IUnknown)
1683	['{948C5AD3-C58D-11D0-9C0B-00C04FC99C8E}']
1684	function GetErrorInfo(var pErrorReturn: _xml_error): HResult; stdcall;
1685	end;
1686
1687	// *********************************************************************//
1688	// The Class CoDOMDocument provides a Create and CreateRemote method to
1689	// create instances of the default interface IXMLDOMDocument exposed by
1690	// the CoClass DOMDocument. The functions are intended to be used by
1691	// clients wishing to automate the CoClass objects exposed by the
1692	// server of this typelibrary.
1693	// *********************************************************************//
1694	CoDOMDocument = class
1695	class function Create: IXMLDOMDocument;
1696	class function CreateRemote(const MachineName: string): IXMLDOMDocument;
1697	end;
1698
1699
1700	// *********************************************************************//
1701	// OLE Server Proxy class declaration
1702	// Server Object : TDOMDocument
1703	// Help String : W3C-DOM XML Document
1704	// Default Interface: IXMLDOMDocument
1705	// Def. Intf. DISP? : No
1706	// Event Interface: XMLDOMDocumentEvents
1707	// TypeFlags : (2) CanCreate
1708	// *********************************************************************//
1709	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1710	TDOMDocumentProperties= class;
1711	{$ENDIF}
1712	TDOMDocument = class(TOleServer)
1713	private
1714	FOnondataavailable: TNotifyEvent;
1715	FOnonreadystatechange: TNotifyEvent;
1716	FIntf: IXMLDOMDocument;
1717	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1718	FProps: TDOMDocumentProperties;
1719	function GetServerProperties: TDOMDocumentProperties;
1720	{$ENDIF}
1721	function GetDefaultInterface: IXMLDOMDocument;
1722	protected
1723	procedure InitServerData; override;
1724	procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
1725	function Get_doctype: IXMLDOMDocumentType;
1726	function Get_implementation_: IXMLDOMImplementation;
1727	function Get_documentElement: IXMLDOMElement;
1728	procedure Set_documentElement(const DOMElement: IXMLDOMElement);
1729	function Get_readyState: Integer;
1730	function Get_parseError: IXMLDOMParseError;
1731	function Get_url: WideString;
1732	function Get_async: WordBool;
1733	procedure Set_async(isAsync: WordBool);
1734	function Get_validateOnParse: WordBool;
1735	procedure Set_validateOnParse(isValidating: WordBool);
1736	function Get_resolveExternals: WordBool;
1737	procedure Set_resolveExternals(isResolving: WordBool);
1738	function Get_preserveWhiteSpace: WordBool;
1739	procedure Set_preserveWhiteSpace(isPreserving: WordBool);
1740	procedure Set_onreadystatechange(Param1: OleVariant);
1741	procedure Set_ondataavailable(Param1: OleVariant);
1742	procedure Set_ontransformnode(Param1: OleVariant);
1743	public
1744	constructor Create(AOwner: TComponent); override;
1745	destructor Destroy; override;
1746	procedure Connect; override;
1747	procedure ConnectTo(svrIntf: IXMLDOMDocument);
1748	procedure Disconnect; override;
1749	function createElement(const tagName: WideString): IXMLDOMElement;
1750	function createDocumentFragment: IXMLDOMDocumentFragment;
1751	function createTextNode(const data: WideString): IXMLDOMText;
1752	function createComment(const data: WideString): IXMLDOMComment;
1753	function createCDATASection(const data: WideString): IXMLDOMCDATASection;
1754	function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction;
1755	function createAttribute(const name: WideString): IXMLDOMAttribute;
1756	function createEntityReference(const name: WideString): IXMLDOMEntityReference;
1757	function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList;
1758	function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode;
1759	function nodeFromID(const idString: WideString): IXMLDOMNode;
1760	function load(xmlSource: OleVariant): WordBool;
1761	procedure abort;
1762	function loadXML(const bstrXML: WideString): WordBool;
1763	procedure save(desination: OleVariant);
1764	property DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
1765	property doctype: IXMLDOMDocumentType read Get_doctype;
1766	property implementation_: IXMLDOMImplementation read Get_implementation_;
1767	property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement;
1768	property readyState: Integer read Get_readyState;
1769	property parseError: IXMLDOMParseError read Get_parseError;
1770	property url: WideString read Get_url;
1771	property onreadystatechange: OleVariant write Set_onreadystatechange;
1772	property ondataavailable: OleVariant write Set_ondataavailable;
1773	property ontransformnode: OleVariant write Set_ontransformnode;
1774	property async: WordBool read Get_async write Set_async;
1775	property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
1776	property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
1777	property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
1778	published
1779	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1780	property Server: TDOMDocumentProperties read GetServerProperties;
1781	{$ENDIF}
1782	property Onondataavailable: TNotifyEvent read FOnondataavailable write FOnondataavailable;
1783	property Ononreadystatechange: TNotifyEvent read FOnonreadystatechange write FOnonreadystatechange;
1784	end;
1785
1786	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1787	// *********************************************************************//
1788	// OLE Server Properties Proxy Class
1789	// Server Object : TDOMDocument
1790	// (This object is used by the IDE's Property Inspector to allow editing
1791	// of the properties of this server)
1792	// *********************************************************************//
1793	TDOMDocumentProperties = class(TPersistent)
1794	private
1795	FServer: TDOMDocument;
1796	function GetDefaultInterface: IXMLDOMDocument;
1797	constructor Create(AServer: TDOMDocument);
1798	protected
1799	function Get_doctype: IXMLDOMDocumentType;
1800	function Get_implementation_: IXMLDOMImplementation;
1801	function Get_documentElement: IXMLDOMElement;
1802	procedure Set_documentElement(const DOMElement: IXMLDOMElement);
1803	function Get_readyState: Integer;
1804	function Get_parseError: IXMLDOMParseError;
1805	function Get_url: WideString;
1806	function Get_async: WordBool;
1807	procedure Set_async(isAsync: WordBool);
1808	function Get_validateOnParse: WordBool;
1809	procedure Set_validateOnParse(isValidating: WordBool);
1810	function Get_resolveExternals: WordBool;
1811	procedure Set_resolveExternals(isResolving: WordBool);
1812	function Get_preserveWhiteSpace: WordBool;
1813	procedure Set_preserveWhiteSpace(isPreserving: WordBool);
1814	procedure Set_onreadystatechange(Param1: OleVariant);
1815	procedure Set_ondataavailable(Param1: OleVariant);
1816	procedure Set_ontransformnode(Param1: OleVariant);
1817	public
1818	property DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
1819	published
1820	property async: WordBool read Get_async write Set_async;
1821	property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
1822	property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
1823	property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
1824	end;
1825	{$ENDIF}
1826
1827
1828	// *********************************************************************//
1829	// The Class CoDOMFreeThreadedDocument provides a Create and CreateRemote method to
1830	// create instances of the default interface IXMLDOMDocument exposed by
1831	// the CoClass DOMFreeThreadedDocument. The functions are intended to be used by
1832	// clients wishing to automate the CoClass objects exposed by the
1833	// server of this typelibrary.
1834	// *********************************************************************//
1835	CoDOMFreeThreadedDocument = class
1836	class function Create: IXMLDOMDocument;
1837	class function CreateRemote(const MachineName: string): IXMLDOMDocument;
1838	end;
1839
1840
1841	// *********************************************************************//
1842	// OLE Server Proxy class declaration
1843	// Server Object : TDOMFreeThreadedDocument
1844	// Help String : W3C-DOM XML Document (Apartment)
1845	// Default Interface: IXMLDOMDocument
1846	// Def. Intf. DISP? : No
1847	// Event Interface: XMLDOMDocumentEvents
1848	// TypeFlags : (2) CanCreate
1849	// *********************************************************************//
1850	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1851	TDOMFreeThreadedDocumentProperties= class;
1852	{$ENDIF}
1853	TDOMFreeThreadedDocument = class(TOleServer)
1854	private
1855	FOnondataavailable: TNotifyEvent;
1856	FOnonreadystatechange: TNotifyEvent;
1857	FIntf: IXMLDOMDocument;
1858	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1859	FProps: TDOMFreeThreadedDocumentProperties;
1860	function GetServerProperties: TDOMFreeThreadedDocumentProperties;
1861	{$ENDIF}
1862	function GetDefaultInterface: IXMLDOMDocument;
1863	protected
1864	procedure InitServerData; override;
1865	procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
1866	function Get_doctype: IXMLDOMDocumentType;
1867	function Get_implementation_: IXMLDOMImplementation;
1868	function Get_documentElement: IXMLDOMElement;
1869	procedure Set_documentElement(const DOMElement: IXMLDOMElement);
1870	function Get_readyState: Integer;
1871	function Get_parseError: IXMLDOMParseError;
1872	function Get_url: WideString;
1873	function Get_async: WordBool;
1874	procedure Set_async(isAsync: WordBool);
1875	function Get_validateOnParse: WordBool;
1876	procedure Set_validateOnParse(isValidating: WordBool);
1877	function Get_resolveExternals: WordBool;
1878	procedure Set_resolveExternals(isResolving: WordBool);
1879	function Get_preserveWhiteSpace: WordBool;
1880	procedure Set_preserveWhiteSpace(isPreserving: WordBool);
1881	procedure Set_onreadystatechange(Param1: OleVariant);
1882	procedure Set_ondataavailable(Param1: OleVariant);
1883	procedure Set_ontransformnode(Param1: OleVariant);
1884	public
1885	constructor Create(AOwner: TComponent); override;
1886	destructor Destroy; override;
1887	procedure Connect; override;
1888	procedure ConnectTo(svrIntf: IXMLDOMDocument);
1889	procedure Disconnect; override;
1890	function createElement(const tagName: WideString): IXMLDOMElement;
1891	function createDocumentFragment: IXMLDOMDocumentFragment;
1892	function createTextNode(const data: WideString): IXMLDOMText;
1893	function createComment(const data: WideString): IXMLDOMComment;
1894	function createCDATASection(const data: WideString): IXMLDOMCDATASection;
1895	function createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction;
1896	function createAttribute(const name: WideString): IXMLDOMAttribute;
1897	function createEntityReference(const name: WideString): IXMLDOMEntityReference;
1898	function getElementsByTagName(const tagName: WideString): IXMLDOMNodeList;
1899	function createNode(type_: OleVariant; const name: WideString; const namespaceURI: WideString): IXMLDOMNode;
1900	function nodeFromID(const idString: WideString): IXMLDOMNode;
1901	function load(xmlSource: OleVariant): WordBool;
1902	procedure abort;
1903	function loadXML(const bstrXML: WideString): WordBool;
1904	procedure save(desination: OleVariant);
1905	property DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
1906	property doctype: IXMLDOMDocumentType read Get_doctype;
1907	property implementation_: IXMLDOMImplementation read Get_implementation_;
1908	property documentElement: IXMLDOMElement read Get_documentElement write Set_documentElement;
1909	property readyState: Integer read Get_readyState;
1910	property parseError: IXMLDOMParseError read Get_parseError;
1911	property url: WideString read Get_url;
1912	property onreadystatechange: OleVariant write Set_onreadystatechange;
1913	property ondataavailable: OleVariant write Set_ondataavailable;
1914	property ontransformnode: OleVariant write Set_ontransformnode;
1915	property async: WordBool read Get_async write Set_async;
1916	property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
1917	property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
1918	property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
1919	published
1920	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1921	property Server: TDOMFreeThreadedDocumentProperties read GetServerProperties;
1922	{$ENDIF}
1923	property Onondataavailable: TNotifyEvent read FOnondataavailable write FOnondataavailable;
1924	property Ononreadystatechange: TNotifyEvent read FOnonreadystatechange write FOnonreadystatechange;
1925	end;
1926
1927	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1928	// *********************************************************************//
1929	// OLE Server Properties Proxy Class
1930	// Server Object : TDOMFreeThreadedDocument
1931	// (This object is used by the IDE's Property Inspector to allow editing
1932	// of the properties of this server)
1933	// *********************************************************************//
1934	TDOMFreeThreadedDocumentProperties = class(TPersistent)
1935	private
1936	FServer: TDOMFreeThreadedDocument;
1937	function GetDefaultInterface: IXMLDOMDocument;
1938	constructor Create(AServer: TDOMFreeThreadedDocument);
1939	protected
1940	function Get_doctype: IXMLDOMDocumentType;
1941	function Get_implementation_: IXMLDOMImplementation;
1942	function Get_documentElement: IXMLDOMElement;
1943	procedure Set_documentElement(const DOMElement: IXMLDOMElement);
1944	function Get_readyState: Integer;
1945	function Get_parseError: IXMLDOMParseError;
1946	function Get_url: WideString;
1947	function Get_async: WordBool;
1948	procedure Set_async(isAsync: WordBool);
1949	function Get_validateOnParse: WordBool;
1950	procedure Set_validateOnParse(isValidating: WordBool);
1951	function Get_resolveExternals: WordBool;
1952	procedure Set_resolveExternals(isResolving: WordBool);
1953	function Get_preserveWhiteSpace: WordBool;
1954	procedure Set_preserveWhiteSpace(isPreserving: WordBool);
1955	procedure Set_onreadystatechange(Param1: OleVariant);
1956	procedure Set_ondataavailable(Param1: OleVariant);
1957	procedure Set_ontransformnode(Param1: OleVariant);
1958	public
1959	property DefaultInterface: IXMLDOMDocument read GetDefaultInterface;
1960	published
1961	property async: WordBool read Get_async write Set_async;
1962	property validateOnParse: WordBool read Get_validateOnParse write Set_validateOnParse;
1963	property resolveExternals: WordBool read Get_resolveExternals write Set_resolveExternals;
1964	property preserveWhiteSpace: WordBool read Get_preserveWhiteSpace write Set_preserveWhiteSpace;
1965	end;
1966	{$ENDIF}
1967
1968
1969	// *********************************************************************//
1970	// The Class CoXMLHTTPRequest provides a Create and CreateRemote method to
1971	// create instances of the default interface IXMLHttpRequest exposed by
1972	// the CoClass XMLHTTPRequest. The functions are intended to be used by
1973	// clients wishing to automate the CoClass objects exposed by the
1974	// server of this typelibrary.
1975	// *********************************************************************//
1976	CoXMLHTTPRequest = class
1977	class function Create: IXMLHttpRequest;
1978	class function CreateRemote(const MachineName: string): IXMLHttpRequest;
1979	end;
1980
1981
1982	// *********************************************************************//
1983	// OLE Server Proxy class declaration
1984	// Server Object : TXMLHTTPRequest
1985	// Help String : XML HTTP Request class.
1986	// Default Interface: IXMLHttpRequest
1987	// Def. Intf. DISP? : No
1988	// Event Interface:
1989	// TypeFlags : (2) CanCreate
1990	// *********************************************************************//
1991	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1992	TXMLHTTPRequestProperties= class;
1993	{$ENDIF}
1994	TXMLHTTPRequest = class(TOleServer)
1995	private
1996	FIntf: IXMLHttpRequest;
1997	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
1998	FProps: TXMLHTTPRequestProperties;
1999	function GetServerProperties: TXMLHTTPRequestProperties;
2000	{$ENDIF}
2001	function GetDefaultInterface: IXMLHttpRequest;
2002	protected
2003	procedure InitServerData; override;
2004	function Get_status: Integer;
2005	function Get_statusText: WideString;
2006	function Get_responseXML: IDispatch;
2007	function Get_responseText: WideString;
2008	function Get_responseBody: OleVariant;
2009	function Get_responseStream: OleVariant;
2010	function Get_readyState: Integer;
2011	procedure Set_onreadystatechange(const Param1: IDispatch);
2012	public
2013	constructor Create(AOwner: TComponent); override;
2014	destructor Destroy; override;
2015	procedure Connect; override;
2016	procedure ConnectTo(svrIntf: IXMLHttpRequest);
2017	procedure Disconnect; override;
2018	procedure open(const bstrMethod: WideString; const bstrUrl: WideString); overload;
2019	procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant); overload;
2020	procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
2021	bstrUser: OleVariant); overload;
2022	procedure open(const bstrMethod: WideString; const bstrUrl: WideString; varAsync: OleVariant;
2023	bstrUser: OleVariant; bstrPassword: OleVariant); overload;
2024	procedure setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
2025	function getResponseHeader(const bstrHeader: WideString): WideString;
2026	function getAllResponseHeaders: WideString;
2027	procedure send; overload;
2028	procedure send(varBody: OleVariant); overload;
2029	procedure abort;
2030	property DefaultInterface: IXMLHttpRequest read GetDefaultInterface;
2031	property status: Integer read Get_status;
2032	property statusText: WideString read Get_statusText;
2033	property responseXML: IDispatch read Get_responseXML;
2034	property responseText: WideString read Get_responseText;
2035	property responseBody: OleVariant read Get_responseBody;
2036	property responseStream: OleVariant read Get_responseStream;
2037	property readyState: Integer read Get_readyState;
2038	property onreadystatechange: IDispatch write Set_onreadystatechange;
2039	published
2040	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2041	property Server: TXMLHTTPRequestProperties read GetServerProperties;
2042	{$ENDIF}
2043	end;
2044
2045	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2046	// *********************************************************************//
2047	// OLE Server Properties Proxy Class
2048	// Server Object : TXMLHTTPRequest
2049	// (This object is used by the IDE's Property Inspector to allow editing
2050	// of the properties of this server)
2051	// *********************************************************************//
2052	TXMLHTTPRequestProperties = class(TPersistent)
2053	private
2054	FServer: TXMLHTTPRequest;
2055	function GetDefaultInterface: IXMLHttpRequest;
2056	constructor Create(AServer: TXMLHTTPRequest);
2057	protected
2058	function Get_status: Integer;
2059	function Get_statusText: WideString;
2060	function Get_responseXML: IDispatch;
2061	function Get_responseText: WideString;
2062	function Get_responseBody: OleVariant;
2063	function Get_responseStream: OleVariant;
2064	function Get_readyState: Integer;
2065	procedure Set_onreadystatechange(const Param1: IDispatch);
2066	public
2067	property DefaultInterface: IXMLHttpRequest read GetDefaultInterface;
2068	published
2069	end;
2070	{$ENDIF}
2071
2072
2073	// *********************************************************************//
2074	// The Class CoXMLDSOControl provides a Create and CreateRemote method to
2075	// create instances of the default interface IXMLDSOControl exposed by
2076	// the CoClass XMLDSOControl. The functions are intended to be used by
2077	// clients wishing to automate the CoClass objects exposed by the
2078	// server of this typelibrary.
2079	// *********************************************************************//
2080	CoXMLDSOControl = class
2081	class function Create: IXMLDSOControl;
2082	class function CreateRemote(const MachineName: string): IXMLDSOControl;
2083	end;
2084
2085
2086	// *********************************************************************//
2087	// OLE Server Proxy class declaration
2088	// Server Object : TXMLDSOControl
2089	// Help String : XML Data Source Object
2090	// Default Interface: IXMLDSOControl
2091	// Def. Intf. DISP? : No
2092	// Event Interface:
2093	// TypeFlags : (2) CanCreate
2094	// *********************************************************************//
2095	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2096	TXMLDSOControlProperties= class;
2097	{$ENDIF}
2098	TXMLDSOControl = class(TOleServer)
2099	private
2100	FIntf: IXMLDSOControl;
2101	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2102	FProps: TXMLDSOControlProperties;
2103	function GetServerProperties: TXMLDSOControlProperties;
2104	{$ENDIF}
2105	function GetDefaultInterface: IXMLDSOControl;
2106	protected
2107	procedure InitServerData; override;
2108	function Get_XMLDocument: IXMLDOMDocument;
2109	procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
2110	function Get_JavaDSOCompatible: Integer;
2111	procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
2112	function Get_readyState: Integer;
2113	public
2114	constructor Create(AOwner: TComponent); override;
2115	destructor Destroy; override;
2116	procedure Connect; override;
2117	procedure ConnectTo(svrIntf: IXMLDSOControl);
2118	procedure Disconnect; override;
2119	property DefaultInterface: IXMLDSOControl read GetDefaultInterface;
2120	property readyState: Integer read Get_readyState;
2121	property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
2122	property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
2123	published
2124	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2125	property Server: TXMLDSOControlProperties read GetServerProperties;
2126	{$ENDIF}
2127	end;
2128
2129	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2130	// *********************************************************************//
2131	// OLE Server Properties Proxy Class
2132	// Server Object : TXMLDSOControl
2133	// (This object is used by the IDE's Property Inspector to allow editing
2134	// of the properties of this server)
2135	// *********************************************************************//
2136	TXMLDSOControlProperties = class(TPersistent)
2137	private
2138	FServer: TXMLDSOControl;
2139	function GetDefaultInterface: IXMLDSOControl;
2140	constructor Create(AServer: TXMLDSOControl);
2141	protected
2142	function Get_XMLDocument: IXMLDOMDocument;
2143	procedure Set_XMLDocument(const ppDoc: IXMLDOMDocument);
2144	function Get_JavaDSOCompatible: Integer;
2145	procedure Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
2146	function Get_readyState: Integer;
2147	public
2148	property DefaultInterface: IXMLDSOControl read GetDefaultInterface;
2149	published
2150	property XMLDocument: IXMLDOMDocument read Get_XMLDocument write Set_XMLDocument;
2151	property JavaDSOCompatible: Integer read Get_JavaDSOCompatible write Set_JavaDSOCompatible;
2152	end;
2153	{$ENDIF}
2154
2155
2156	// *********************************************************************//
2157	// The Class CoXMLDocument provides a Create and CreateRemote method to
2158	// create instances of the default interface IXMLDocument2 exposed by
2159	// the CoClass XMLDocument. The functions are intended to be used by
2160	// clients wishing to automate the CoClass objects exposed by the
2161	// server of this typelibrary.
2162	// *********************************************************************//
2163	CoXMLDocument = class
2164	class function Create: IXMLDocument2;
2165	class function CreateRemote(const MachineName: string): IXMLDocument2;
2166	end;
2167
2168
2169	// *********************************************************************//
2170	// OLE Server Proxy class declaration
2171	// Server Object : TXMLDocument
2172	// 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.
2173	// Default Interface: IXMLDocument2
2174	// Def. Intf. DISP? : No
2175	// Event Interface:
2176	// TypeFlags : (2) CanCreate
2177	// *********************************************************************//
2178	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2179	TXMLDocumentProperties= class;
2180	{$ENDIF}
2181	TXMLDocument = class(TOleServer)
2182	private
2183	FIntf: IXMLDocument2;
2184	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2185	FProps: TXMLDocumentProperties;
2186	function GetServerProperties: TXMLDocumentProperties;
2187	{$ENDIF}
2188	function GetDefaultInterface: IXMLDocument2;
2189	protected
2190	procedure InitServerData; override;
2191	function Get_root(out p: IXMLElement2): HResult;
2192	function Get_url(out p: WideString): HResult;
2193	function Set_url(const p: WideString): HResult;
2194	function Get_readyState(out pl: Integer): HResult;
2195	function Get_charset(out p: WideString): HResult;
2196	function Set_charset(const p: WideString): HResult;
2197	function Get_version(out p: WideString): HResult;
2198	function Get_doctype(out p: WideString): HResult;
2199	function Get_async(out pf: WordBool): HResult;
2200	function Set_async(pf: WordBool): HResult;
2201	public
2202	constructor Create(AOwner: TComponent); override;
2203	destructor Destroy; override;
2204	procedure Connect; override;
2205	procedure ConnectTo(svrIntf: IXMLDocument2);
2206	procedure Disconnect; override;
2207	function createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult;
2208	property DefaultInterface: IXMLDocument2 read GetDefaultInterface;
2209	published
2210	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2211	property Server: TXMLDocumentProperties read GetServerProperties;
2212	{$ENDIF}
2213	end;
2214
2215	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2216	// *********************************************************************//
2217	// OLE Server Properties Proxy Class
2218	// Server Object : TXMLDocument
2219	// (This object is used by the IDE's Property Inspector to allow editing
2220	// of the properties of this server)
2221	// *********************************************************************//
2222	TXMLDocumentProperties = class(TPersistent)
2223	private
2224	FServer: TXMLDocument;
2225	function GetDefaultInterface: IXMLDocument2;
2226	constructor Create(AServer: TXMLDocument);
2227	protected
2228	function Get_root(out p: IXMLElement2): HResult;
2229	function Get_url(out p: WideString): HResult;
2230	function Set_url(const p: WideString): HResult;
2231	function Get_readyState(out pl: Integer): HResult;
2232	function Get_charset(out p: WideString): HResult;
2233	function Set_charset(const p: WideString): HResult;
2234	function Get_version(out p: WideString): HResult;
2235	function Get_doctype(out p: WideString): HResult;
2236	function Get_async(out pf: WordBool): HResult;
2237	function Set_async(pf: WordBool): HResult;
2238	public
2239	property DefaultInterface: IXMLDocument2 read GetDefaultInterface;
2240	published
2241	end;
2242	{$ENDIF}
2243
2244
2245	procedure Register;
2246
2247	implementation
2248
2249	uses ComObj;
2250
2251	class function CoDOMDocument.Create: IXMLDOMDocument;
2252	begin
2253	Result := CreateComObject(CLASS_DOMDocument) as IXMLDOMDocument;
2254	end;
2255
2256	class function CoDOMDocument.CreateRemote(const MachineName: string): IXMLDOMDocument;
2257	begin
2258	Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument) as IXMLDOMDocument;
2259	end;
2260
2261	procedure TDOMDocument.InitServerData;
2262	const
2263	CServerData: TServerData = (
2264	ClassID: '{2933BF90-7B36-11D2-B20E-00C04F983E60}';
2265	IntfIID: '{2933BF81-7B36-11D2-B20E-00C04F983E60}';
2266	EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
2267	LicenseKey: nil;
2268	Version: 500);
2269	begin
2270	ServerData := @CServerData;
2271	end;
2272
2273	procedure TDOMDocument.Connect;
2274	var
2275	punk: IUnknown;
2276	begin
2277	if FIntf = nil then
2278	begin
2279	punk := GetServer;
2280	ConnectEvents(punk);
2281	Fintf:= punk as IXMLDOMDocument;
2282	end;
2283	end;
2284
2285	procedure TDOMDocument.ConnectTo(svrIntf: IXMLDOMDocument);
2286	begin
2287	Disconnect;
2288	FIntf := svrIntf;
2289	ConnectEvents(FIntf);
2290	end;
2291
2292	procedure TDOMDocument.DisConnect;
2293	begin
2294	if Fintf <> nil then
2295	begin
2296	DisconnectEvents(FIntf);
2297	FIntf := nil;
2298	end;
2299	end;
2300
2301	function TDOMDocument.GetDefaultInterface: IXMLDOMDocument;
2302	begin
2303	if FIntf = nil then
2304	Connect;
2305	Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
2306	Result := FIntf;
2307	end;
2308
2309	constructor TDOMDocument.Create(AOwner: TComponent);
2310	begin
2311	inherited Create(AOwner);
2312	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2313	FProps := TDOMDocumentProperties.Create(Self);
2314	{$ENDIF}
2315	end;
2316
2317	destructor TDOMDocument.Destroy;
2318	begin
2319	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2320	FProps.Free;
2321	{$ENDIF}
2322	inherited Destroy;
2323	end;
2324
2325	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2326	function TDOMDocument.GetServerProperties: TDOMDocumentProperties;
2327	begin
2328	Result := FProps;
2329	end;
2330	{$ENDIF}
2331
2332	procedure TDOMDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
2333	begin
2334	case DispID of
2335	-1: Exit; // DISPID_UNKNOWN
2336	198: if Assigned(FOnondataavailable) then
2337	FOnondataavailable(Self);
2338	-609: if Assigned(FOnonreadystatechange) then
2339	FOnonreadystatechange(Self);
2340	end; {case DispID}
2341	end;
2342
2343	function TDOMDocument.Get_doctype: IXMLDOMDocumentType;
2344	begin
2345	Result := DefaultInterface.Get_doctype;
2346	end;
2347
2348	function TDOMDocument.Get_implementation_: IXMLDOMImplementation;
2349	begin
2350	Result := DefaultInterface.Get_implementation_;
2351	end;
2352
2353	function TDOMDocument.Get_documentElement: IXMLDOMElement;
2354	begin
2355	Result := DefaultInterface.Get_documentElement;
2356	end;
2357
2358	procedure TDOMDocument.Set_documentElement(const DOMElement: IXMLDOMElement);
2359	begin
2360	DefaultInterface.Set_documentElement(DOMElement);
2361	end;
2362
2363	function TDOMDocument.Get_readyState: Integer;
2364	begin
2365	Result := DefaultInterface.Get_readyState;
2366	end;
2367
2368	function TDOMDocument.Get_parseError: IXMLDOMParseError;
2369	begin
2370	Result := DefaultInterface.Get_parseError;
2371	end;
2372
2373	function TDOMDocument.Get_url: WideString;
2374	begin
2375	Result := DefaultInterface.Get_url;
2376	end;
2377
2378	function TDOMDocument.Get_async: WordBool;
2379	begin
2380	Result := DefaultInterface.Get_async;
2381	end;
2382
2383	procedure TDOMDocument.Set_async(isAsync: WordBool);
2384	begin
2385	DefaultInterface.Set_async(isAsync);
2386	end;
2387
2388	function TDOMDocument.Get_validateOnParse: WordBool;
2389	begin
2390	Result := DefaultInterface.Get_validateOnParse;
2391	end;
2392
2393	procedure TDOMDocument.Set_validateOnParse(isValidating: WordBool);
2394	begin
2395	DefaultInterface.Set_validateOnParse(isValidating);
2396	end;
2397
2398	function TDOMDocument.Get_resolveExternals: WordBool;
2399	begin
2400	Result := DefaultInterface.Get_resolveExternals;
2401	end;
2402
2403	procedure TDOMDocument.Set_resolveExternals(isResolving: WordBool);
2404	begin
2405	DefaultInterface.Set_resolveExternals(isResolving);
2406	end;
2407
2408	function TDOMDocument.Get_preserveWhiteSpace: WordBool;
2409	begin
2410	Result := DefaultInterface.Get_preserveWhiteSpace;
2411	end;
2412
2413	procedure TDOMDocument.Set_preserveWhiteSpace(isPreserving: WordBool);
2414	begin
2415	DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2416	end;
2417
2418	procedure TDOMDocument.Set_onreadystatechange(Param1: OleVariant);
2419	begin
2420	DefaultInterface.Set_onreadystatechange(Param1);
2421	end;
2422
2423	procedure TDOMDocument.Set_ondataavailable(Param1: OleVariant);
2424	begin
2425	DefaultInterface.Set_ondataavailable(Param1);
2426	end;
2427
2428	procedure TDOMDocument.Set_ontransformnode(Param1: OleVariant);
2429	begin
2430	DefaultInterface.Set_ontransformnode(Param1);
2431	end;
2432
2433	function TDOMDocument.createElement(const tagName: WideString): IXMLDOMElement;
2434	begin
2435	Result := DefaultInterface.createElement(tagName);
2436	end;
2437
2438	function TDOMDocument.createDocumentFragment: IXMLDOMDocumentFragment;
2439	begin
2440	Result := DefaultInterface.createDocumentFragment;
2441	end;
2442
2443	function TDOMDocument.createTextNode(const data: WideString): IXMLDOMText;
2444	begin
2445	Result := DefaultInterface.createTextNode(data);
2446	end;
2447
2448	function TDOMDocument.createComment(const data: WideString): IXMLDOMComment;
2449	begin
2450	Result := DefaultInterface.createComment(data);
2451	end;
2452
2453	function TDOMDocument.createCDATASection(const data: WideString): IXMLDOMCDATASection;
2454	begin
2455	Result := DefaultInterface.createCDATASection(data);
2456	end;
2457
2458	function TDOMDocument.createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction;
2459	begin
2460	Result := DefaultInterface.createProcessingInstruction(target, data);
2461	end;
2462
2463	function TDOMDocument.createAttribute(const name: WideString): IXMLDOMAttribute;
2464	begin
2465	Result := DefaultInterface.createAttribute(name);
2466	end;
2467
2468	function TDOMDocument.createEntityReference(const name: WideString): IXMLDOMEntityReference;
2469	begin
2470	Result := DefaultInterface.createEntityReference(name);
2471	end;
2472
2473	function TDOMDocument.getElementsByTagName(const tagName: WideString): IXMLDOMNodeList;
2474	begin
2475	Result := DefaultInterface.getElementsByTagName(tagName);
2476	end;
2477
2478	function TDOMDocument.createNode(type_: OleVariant; const name: WideString;
2479	const namespaceURI: WideString): IXMLDOMNode;
2480	begin
2481	Result := DefaultInterface.createNode(type_, name, namespaceURI);
2482	end;
2483
2484	function TDOMDocument.nodeFromID(const idString: WideString): IXMLDOMNode;
2485	begin
2486	Result := DefaultInterface.nodeFromID(idString);
2487	end;
2488
2489	function TDOMDocument.load(xmlSource: OleVariant): WordBool;
2490	begin
2491	Result := DefaultInterface.load(xmlSource);
2492	end;
2493
2494	procedure TDOMDocument.abort;
2495	begin
2496	DefaultInterface.abort;
2497	end;
2498
2499	function TDOMDocument.loadXML(const bstrXML: WideString): WordBool;
2500	begin
2501	Result := DefaultInterface.loadXML(bstrXML);
2502	end;
2503
2504	procedure TDOMDocument.save(desination: OleVariant);
2505	begin
2506	DefaultInterface.save(desination);
2507	end;
2508
2509	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2510	constructor TDOMDocumentProperties.Create(AServer: TDOMDocument);
2511	begin
2512	inherited Create;
2513	FServer := AServer;
2514	end;
2515
2516	function TDOMDocumentProperties.GetDefaultInterface: IXMLDOMDocument;
2517	begin
2518	Result := FServer.DefaultInterface;
2519	end;
2520
2521	function TDOMDocumentProperties.Get_doctype: IXMLDOMDocumentType;
2522	begin
2523	Result := DefaultInterface.Get_doctype;
2524	end;
2525
2526	function TDOMDocumentProperties.Get_implementation_: IXMLDOMImplementation;
2527	begin
2528	Result := DefaultInterface.Get_implementation_;
2529	end;
2530
2531	function TDOMDocumentProperties.Get_documentElement: IXMLDOMElement;
2532	begin
2533	Result := DefaultInterface.Get_documentElement;
2534	end;
2535
2536	procedure TDOMDocumentProperties.Set_documentElement(const DOMElement: IXMLDOMElement);
2537	begin
2538	DefaultInterface.Set_documentElement(DOMElement);
2539	end;
2540
2541	function TDOMDocumentProperties.Get_readyState: Integer;
2542	begin
2543	Result := DefaultInterface.Get_readyState;
2544	end;
2545
2546	function TDOMDocumentProperties.Get_parseError: IXMLDOMParseError;
2547	begin
2548	Result := DefaultInterface.Get_parseError;
2549	end;
2550
2551	function TDOMDocumentProperties.Get_url: WideString;
2552	begin
2553	Result := DefaultInterface.Get_url;
2554	end;
2555
2556	function TDOMDocumentProperties.Get_async: WordBool;
2557	begin
2558	Result := DefaultInterface.Get_async;
2559	end;
2560
2561	procedure TDOMDocumentProperties.Set_async(isAsync: WordBool);
2562	begin
2563	DefaultInterface.Set_async(isAsync);
2564	end;
2565
2566	function TDOMDocumentProperties.Get_validateOnParse: WordBool;
2567	begin
2568	Result := DefaultInterface.Get_validateOnParse;
2569	end;
2570
2571	procedure TDOMDocumentProperties.Set_validateOnParse(isValidating: WordBool);
2572	begin
2573	DefaultInterface.Set_validateOnParse(isValidating);
2574	end;
2575
2576	function TDOMDocumentProperties.Get_resolveExternals: WordBool;
2577	begin
2578	Result := DefaultInterface.Get_resolveExternals;
2579	end;
2580
2581	procedure TDOMDocumentProperties.Set_resolveExternals(isResolving: WordBool);
2582	begin
2583	DefaultInterface.Set_resolveExternals(isResolving);
2584	end;
2585
2586	function TDOMDocumentProperties.Get_preserveWhiteSpace: WordBool;
2587	begin
2588	Result := DefaultInterface.Get_preserveWhiteSpace;
2589	end;
2590
2591	procedure TDOMDocumentProperties.Set_preserveWhiteSpace(isPreserving: WordBool);
2592	begin
2593	DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2594	end;
2595
2596	procedure TDOMDocumentProperties.Set_onreadystatechange(Param1: OleVariant);
2597	begin
2598	DefaultInterface.Set_onreadystatechange(Param1);
2599	end;
2600
2601	procedure TDOMDocumentProperties.Set_ondataavailable(Param1: OleVariant);
2602	begin
2603	DefaultInterface.Set_ondataavailable(Param1);
2604	end;
2605
2606	procedure TDOMDocumentProperties.Set_ontransformnode(Param1: OleVariant);
2607	begin
2608	DefaultInterface.Set_ontransformnode(Param1);
2609	end;
2610
2611	{$ENDIF}
2612
2613	class function CoDOMFreeThreadedDocument.Create: IXMLDOMDocument;
2614	begin
2615	Result := CreateComObject(CLASS_DOMFreeThreadedDocument) as IXMLDOMDocument;
2616	end;
2617
2618	class function CoDOMFreeThreadedDocument.CreateRemote(const MachineName: string): IXMLDOMDocument;
2619	begin
2620	Result := CreateRemoteComObject(MachineName, CLASS_DOMFreeThreadedDocument) as IXMLDOMDocument;
2621	end;
2622
2623	procedure TDOMFreeThreadedDocument.InitServerData;
2624	const
2625	CServerData: TServerData = (
2626	ClassID: '{2933BF91-7B36-11D2-B20E-00C04F983E60}';
2627	IntfIID: '{2933BF81-7B36-11D2-B20E-00C04F983E60}';
2628	EventIID: '{3EFAA427-272F-11D2-836F-0000F87A7782}';
2629	LicenseKey: nil;
2630	Version: 500);
2631	begin
2632	ServerData := @CServerData;
2633	end;
2634
2635	procedure TDOMFreeThreadedDocument.Connect;
2636	var
2637	punk: IUnknown;
2638	begin
2639	if FIntf = nil then
2640	begin
2641	punk := GetServer;
2642	ConnectEvents(punk);
2643	Fintf:= punk as IXMLDOMDocument;
2644	end;
2645	end;
2646
2647	procedure TDOMFreeThreadedDocument.ConnectTo(svrIntf: IXMLDOMDocument);
2648	begin
2649	Disconnect;
2650	FIntf := svrIntf;
2651	ConnectEvents(FIntf);
2652	end;
2653
2654	procedure TDOMFreeThreadedDocument.DisConnect;
2655	begin
2656	if Fintf <> nil then
2657	begin
2658	DisconnectEvents(FIntf);
2659	FIntf := nil;
2660	end;
2661	end;
2662
2663	function TDOMFreeThreadedDocument.GetDefaultInterface: IXMLDOMDocument;
2664	begin
2665	if FIntf = nil then
2666	Connect;
2667	Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
2668	Result := FIntf;
2669	end;
2670
2671	constructor TDOMFreeThreadedDocument.Create(AOwner: TComponent);
2672	begin
2673	inherited Create(AOwner);
2674	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2675	FProps := TDOMFreeThreadedDocumentProperties.Create(Self);
2676	{$ENDIF}
2677	end;
2678
2679	destructor TDOMFreeThreadedDocument.Destroy;
2680	begin
2681	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2682	FProps.Free;
2683	{$ENDIF}
2684	inherited Destroy;
2685	end;
2686
2687	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2688	function TDOMFreeThreadedDocument.GetServerProperties: TDOMFreeThreadedDocumentProperties;
2689	begin
2690	Result := FProps;
2691	end;
2692	{$ENDIF}
2693
2694	procedure TDOMFreeThreadedDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
2695	begin
2696	case DispID of
2697	-1: Exit; // DISPID_UNKNOWN
2698	198: if Assigned(FOnondataavailable) then
2699	FOnondataavailable(Self);
2700	-609: if Assigned(FOnonreadystatechange) then
2701	FOnonreadystatechange(Self);
2702	end; {case DispID}
2703	end;
2704
2705	function TDOMFreeThreadedDocument.Get_doctype: IXMLDOMDocumentType;
2706	begin
2707	Result := DefaultInterface.Get_doctype;
2708	end;
2709
2710	function TDOMFreeThreadedDocument.Get_implementation_: IXMLDOMImplementation;
2711	begin
2712	Result := DefaultInterface.Get_implementation_;
2713	end;
2714
2715	function TDOMFreeThreadedDocument.Get_documentElement: IXMLDOMElement;
2716	begin
2717	Result := DefaultInterface.Get_documentElement;
2718	end;
2719
2720	procedure TDOMFreeThreadedDocument.Set_documentElement(const DOMElement: IXMLDOMElement);
2721	begin
2722	DefaultInterface.Set_documentElement(DOMElement);
2723	end;
2724
2725	function TDOMFreeThreadedDocument.Get_readyState: Integer;
2726	begin
2727	Result := DefaultInterface.Get_readyState;
2728	end;
2729
2730	function TDOMFreeThreadedDocument.Get_parseError: IXMLDOMParseError;
2731	begin
2732	Result := DefaultInterface.Get_parseError;
2733	end;
2734
2735	function TDOMFreeThreadedDocument.Get_url: WideString;
2736	begin
2737	Result := DefaultInterface.Get_url;
2738	end;
2739
2740	function TDOMFreeThreadedDocument.Get_async: WordBool;
2741	begin
2742	Result := DefaultInterface.Get_async;
2743	end;
2744
2745	procedure TDOMFreeThreadedDocument.Set_async(isAsync: WordBool);
2746	begin
2747	DefaultInterface.Set_async(isAsync);
2748	end;
2749
2750	function TDOMFreeThreadedDocument.Get_validateOnParse: WordBool;
2751	begin
2752	Result := DefaultInterface.Get_validateOnParse;
2753	end;
2754
2755	procedure TDOMFreeThreadedDocument.Set_validateOnParse(isValidating: WordBool);
2756	begin
2757	DefaultInterface.Set_validateOnParse(isValidating);
2758	end;
2759
2760	function TDOMFreeThreadedDocument.Get_resolveExternals: WordBool;
2761	begin
2762	Result := DefaultInterface.Get_resolveExternals;
2763	end;
2764
2765	procedure TDOMFreeThreadedDocument.Set_resolveExternals(isResolving: WordBool);
2766	begin
2767	DefaultInterface.Set_resolveExternals(isResolving);
2768	end;
2769
2770	function TDOMFreeThreadedDocument.Get_preserveWhiteSpace: WordBool;
2771	begin
2772	Result := DefaultInterface.Get_preserveWhiteSpace;
2773	end;
2774
2775	procedure TDOMFreeThreadedDocument.Set_preserveWhiteSpace(isPreserving: WordBool);
2776	begin
2777	DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2778	end;
2779
2780	procedure TDOMFreeThreadedDocument.Set_onreadystatechange(Param1: OleVariant);
2781	begin
2782	DefaultInterface.Set_onreadystatechange(Param1);
2783	end;
2784
2785	procedure TDOMFreeThreadedDocument.Set_ondataavailable(Param1: OleVariant);
2786	begin
2787	DefaultInterface.Set_ondataavailable(Param1);
2788	end;
2789
2790	procedure TDOMFreeThreadedDocument.Set_ontransformnode(Param1: OleVariant);
2791	begin
2792	DefaultInterface.Set_ontransformnode(Param1);
2793	end;
2794
2795	function TDOMFreeThreadedDocument.createElement(const tagName: WideString): IXMLDOMElement;
2796	begin
2797	Result := DefaultInterface.createElement(tagName);
2798	end;
2799
2800	function TDOMFreeThreadedDocument.createDocumentFragment: IXMLDOMDocumentFragment;
2801	begin
2802	Result := DefaultInterface.createDocumentFragment;
2803	end;
2804
2805	function TDOMFreeThreadedDocument.createTextNode(const data: WideString): IXMLDOMText;
2806	begin
2807	Result := DefaultInterface.createTextNode(data);
2808	end;
2809
2810	function TDOMFreeThreadedDocument.createComment(const data: WideString): IXMLDOMComment;
2811	begin
2812	Result := DefaultInterface.createComment(data);
2813	end;
2814
2815	function TDOMFreeThreadedDocument.createCDATASection(const data: WideString): IXMLDOMCDATASection;
2816	begin
2817	Result := DefaultInterface.createCDATASection(data);
2818	end;
2819
2820	function TDOMFreeThreadedDocument.createProcessingInstruction(const target: WideString;
2821	const data: WideString): IXMLDOMProcessingInstruction;
2822	begin
2823	Result := DefaultInterface.createProcessingInstruction(target, data);
2824	end;
2825
2826	function TDOMFreeThreadedDocument.createAttribute(const name: WideString): IXMLDOMAttribute;
2827	begin
2828	Result := DefaultInterface.createAttribute(name);
2829	end;
2830
2831	function TDOMFreeThreadedDocument.createEntityReference(const name: WideString): IXMLDOMEntityReference;
2832	begin
2833	Result := DefaultInterface.createEntityReference(name);
2834	end;
2835
2836	function TDOMFreeThreadedDocument.getElementsByTagName(const tagName: WideString): IXMLDOMNodeList;
2837	begin
2838	Result := DefaultInterface.getElementsByTagName(tagName);
2839	end;
2840
2841	function TDOMFreeThreadedDocument.createNode(type_: OleVariant; const name: WideString;
2842	const namespaceURI: WideString): IXMLDOMNode;
2843	begin
2844	Result := DefaultInterface.createNode(type_, name, namespaceURI);
2845	end;
2846
2847	function TDOMFreeThreadedDocument.nodeFromID(const idString: WideString): IXMLDOMNode;
2848	begin
2849	Result := DefaultInterface.nodeFromID(idString);
2850	end;
2851
2852	function TDOMFreeThreadedDocument.load(xmlSource: OleVariant): WordBool;
2853	begin
2854	Result := DefaultInterface.load(xmlSource);
2855	end;
2856
2857	procedure TDOMFreeThreadedDocument.abort;
2858	begin
2859	DefaultInterface.abort;
2860	end;
2861
2862	function TDOMFreeThreadedDocument.loadXML(const bstrXML: WideString): WordBool;
2863	begin
2864	Result := DefaultInterface.loadXML(bstrXML);
2865	end;
2866
2867	procedure TDOMFreeThreadedDocument.save(desination: OleVariant);
2868	begin
2869	DefaultInterface.save(desination);
2870	end;
2871
2872	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2873	constructor TDOMFreeThreadedDocumentProperties.Create(AServer: TDOMFreeThreadedDocument);
2874	begin
2875	inherited Create;
2876	FServer := AServer;
2877	end;
2878
2879	function TDOMFreeThreadedDocumentProperties.GetDefaultInterface: IXMLDOMDocument;
2880	begin
2881	Result := FServer.DefaultInterface;
2882	end;
2883
2884	function TDOMFreeThreadedDocumentProperties.Get_doctype: IXMLDOMDocumentType;
2885	begin
2886	Result := DefaultInterface.Get_doctype;
2887	end;
2888
2889	function TDOMFreeThreadedDocumentProperties.Get_implementation_: IXMLDOMImplementation;
2890	begin
2891	Result := DefaultInterface.Get_implementation_;
2892	end;
2893
2894	function TDOMFreeThreadedDocumentProperties.Get_documentElement: IXMLDOMElement;
2895	begin
2896	Result := DefaultInterface.Get_documentElement;
2897	end;
2898
2899	procedure TDOMFreeThreadedDocumentProperties.Set_documentElement(const DOMElement: IXMLDOMElement);
2900	begin
2901	DefaultInterface.Set_documentElement(DOMElement);
2902	end;
2903
2904	function TDOMFreeThreadedDocumentProperties.Get_readyState: Integer;
2905	begin
2906	Result := DefaultInterface.Get_readyState;
2907	end;
2908
2909	function TDOMFreeThreadedDocumentProperties.Get_parseError: IXMLDOMParseError;
2910	begin
2911	Result := DefaultInterface.Get_parseError;
2912	end;
2913
2914	function TDOMFreeThreadedDocumentProperties.Get_url: WideString;
2915	begin
2916	Result := DefaultInterface.Get_url;
2917	end;
2918
2919	function TDOMFreeThreadedDocumentProperties.Get_async: WordBool;
2920	begin
2921	Result := DefaultInterface.Get_async;
2922	end;
2923
2924	procedure TDOMFreeThreadedDocumentProperties.Set_async(isAsync: WordBool);
2925	begin
2926	DefaultInterface.Set_async(isAsync);
2927	end;
2928
2929	function TDOMFreeThreadedDocumentProperties.Get_validateOnParse: WordBool;
2930	begin
2931	Result := DefaultInterface.Get_validateOnParse;
2932	end;
2933
2934	procedure TDOMFreeThreadedDocumentProperties.Set_validateOnParse(isValidating: WordBool);
2935	begin
2936	DefaultInterface.Set_validateOnParse(isValidating);
2937	end;
2938
2939	function TDOMFreeThreadedDocumentProperties.Get_resolveExternals: WordBool;
2940	begin
2941	Result := DefaultInterface.Get_resolveExternals;
2942	end;
2943
2944	procedure TDOMFreeThreadedDocumentProperties.Set_resolveExternals(isResolving: WordBool);
2945	begin
2946	DefaultInterface.Set_resolveExternals(isResolving);
2947	end;
2948
2949	function TDOMFreeThreadedDocumentProperties.Get_preserveWhiteSpace: WordBool;
2950	begin
2951	Result := DefaultInterface.Get_preserveWhiteSpace;
2952	end;
2953
2954	procedure TDOMFreeThreadedDocumentProperties.Set_preserveWhiteSpace(isPreserving: WordBool);
2955	begin
2956	DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2957	end;
2958
2959	procedure TDOMFreeThreadedDocumentProperties.Set_onreadystatechange(Param1: OleVariant);
2960	begin
2961	DefaultInterface.Set_onreadystatechange(Param1);
2962	end;
2963
2964	procedure TDOMFreeThreadedDocumentProperties.Set_ondataavailable(Param1: OleVariant);
2965	begin
2966	DefaultInterface.Set_ondataavailable(Param1);
2967	end;
2968
2969	procedure TDOMFreeThreadedDocumentProperties.Set_ontransformnode(Param1: OleVariant);
2970	begin
2971	DefaultInterface.Set_ontransformnode(Param1);
2972	end;
2973
2974	{$ENDIF}
2975
2976	class function CoXMLHTTPRequest.Create: IXMLHttpRequest;
2977	begin
2978	Result := CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
2979	end;
2980
2981	class function CoXMLHTTPRequest.CreateRemote(const MachineName: string): IXMLHttpRequest;
2982	begin
2983	Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTPRequest) as IXMLHttpRequest;
2984	end;
2985
2986	procedure TXMLHTTPRequest.InitServerData;
2987	const
2988	CServerData: TServerData = (
2989	ClassID: '{ED8C108E-4349-11D2-91A4-00C04F7969E8}';
2990	IntfIID: '{ED8C108D-4349-11D2-91A4-00C04F7969E8}';
2991	EventIID: '';
2992	LicenseKey: nil;
2993	Version: 500);
2994	begin
2995	ServerData := @CServerData;
2996	end;
2997
2998	procedure TXMLHTTPRequest.Connect;
2999	var
3000	punk: IUnknown;
3001	begin
3002	if FIntf = nil then
3003	begin
3004	punk := GetServer;
3005	Fintf:= punk as IXMLHttpRequest;
3006	end;
3007	end;
3008
3009	procedure TXMLHTTPRequest.ConnectTo(svrIntf: IXMLHttpRequest);
3010	begin
3011	Disconnect;
3012	FIntf := svrIntf;
3013	end;
3014
3015	procedure TXMLHTTPRequest.DisConnect;
3016	begin
3017	if Fintf <> nil then
3018	begin
3019	FIntf := nil;
3020	end;
3021	end;
3022
3023	function TXMLHTTPRequest.GetDefaultInterface: IXMLHttpRequest;
3024	begin
3025	if FIntf = nil then
3026	Connect;
3027	Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
3028	Result := FIntf;
3029	end;
3030
3031	constructor TXMLHTTPRequest.Create(AOwner: TComponent);
3032	begin
3033	inherited Create(AOwner);
3034	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3035	FProps := TXMLHTTPRequestProperties.Create(Self);
3036	{$ENDIF}
3037	end;
3038
3039	destructor TXMLHTTPRequest.Destroy;
3040	begin
3041	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3042	FProps.Free;
3043	{$ENDIF}
3044	inherited Destroy;
3045	end;
3046
3047	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3048	function TXMLHTTPRequest.GetServerProperties: TXMLHTTPRequestProperties;
3049	begin
3050	Result := FProps;
3051	end;
3052	{$ENDIF}
3053
3054	function TXMLHTTPRequest.Get_status: Integer;
3055	begin
3056	Result := DefaultInterface.Get_status;
3057	end;
3058
3059	function TXMLHTTPRequest.Get_statusText: WideString;
3060	begin
3061	Result := DefaultInterface.Get_statusText;
3062	end;
3063
3064	function TXMLHTTPRequest.Get_responseXML: IDispatch;
3065	begin
3066	Result := DefaultInterface.Get_responseXML;
3067	end;
3068
3069	function TXMLHTTPRequest.Get_responseText: WideString;
3070	begin
3071	Result := DefaultInterface.Get_responseText;
3072	end;
3073
3074	function TXMLHTTPRequest.Get_responseBody: OleVariant;
3075	begin
3076	Result := DefaultInterface.Get_responseBody;
3077	end;
3078
3079	function TXMLHTTPRequest.Get_responseStream: OleVariant;
3080	begin
3081	Result := DefaultInterface.Get_responseStream;
3082	end;
3083
3084	function TXMLHTTPRequest.Get_readyState: Integer;
3085	begin
3086	Result := DefaultInterface.Get_readyState;
3087	end;
3088
3089	procedure TXMLHTTPRequest.Set_onreadystatechange(const Param1: IDispatch);
3090	begin
3091	DefaultInterface.Set_onreadystatechange(Param1);
3092	end;
3093
3094	procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString);
3095	begin
3096	DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam);
3097	end;
3098
3099	procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString;
3100	varAsync: OleVariant);
3101	begin
3102	DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam);
3103	end;
3104
3105	procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString;
3106	varAsync: OleVariant; bstrUser: OleVariant);
3107	begin
3108	DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam);
3109	end;
3110
3111	procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString;
3112	varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant);
3113	begin
3114	DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);
3115	end;
3116
3117	procedure TXMLHTTPRequest.setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
3118	begin
3119	DefaultInterface.setRequestHeader(bstrHeader, bstrValue);
3120	end;
3121
3122	function TXMLHTTPRequest.getResponseHeader(const bstrHeader: WideString): WideString;
3123	begin
3124	Result := DefaultInterface.getResponseHeader(bstrHeader);
3125	end;
3126
3127	function TXMLHTTPRequest.getAllResponseHeaders: WideString;
3128	begin
3129	Result := DefaultInterface.getAllResponseHeaders;
3130	end;
3131
3132	procedure TXMLHTTPRequest.send;
3133	begin
3134	DefaultInterface.send(EmptyParam);
3135	end;
3136
3137	procedure TXMLHTTPRequest.send(varBody: OleVariant);
3138	begin
3139	DefaultInterface.send(varBody);
3140	end;
3141
3142	procedure TXMLHTTPRequest.abort;
3143	begin
3144	DefaultInterface.abort;
3145	end;
3146
3147	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3148	constructor TXMLHTTPRequestProperties.Create(AServer: TXMLHTTPRequest);
3149	begin
3150	inherited Create;
3151	FServer := AServer;
3152	end;
3153
3154	function TXMLHTTPRequestProperties.GetDefaultInterface: IXMLHttpRequest;
3155	begin
3156	Result := FServer.DefaultInterface;
3157	end;
3158
3159	function TXMLHTTPRequestProperties.Get_status: Integer;
3160	begin
3161	Result := DefaultInterface.Get_status;
3162	end;
3163
3164	function TXMLHTTPRequestProperties.Get_statusText: WideString;
3165	begin
3166	Result := DefaultInterface.Get_statusText;
3167	end;
3168
3169	function TXMLHTTPRequestProperties.Get_responseXML: IDispatch;
3170	begin
3171	Result := DefaultInterface.Get_responseXML;
3172	end;
3173
3174	function TXMLHTTPRequestProperties.Get_responseText: WideString;
3175	begin
3176	Result := DefaultInterface.Get_responseText;
3177	end;
3178
3179	function TXMLHTTPRequestProperties.Get_responseBody: OleVariant;
3180	begin
3181	Result := DefaultInterface.Get_responseBody;
3182	end;
3183
3184	function TXMLHTTPRequestProperties.Get_responseStream: OleVariant;
3185	begin
3186	Result := DefaultInterface.Get_responseStream;
3187	end;
3188
3189	function TXMLHTTPRequestProperties.Get_readyState: Integer;
3190	begin
3191	Result := DefaultInterface.Get_readyState;
3192	end;
3193
3194	procedure TXMLHTTPRequestProperties.Set_onreadystatechange(const Param1: IDispatch);
3195	begin
3196	DefaultInterface.Set_onreadystatechange(Param1);
3197	end;
3198
3199	{$ENDIF}
3200
3201	class function CoXMLDSOControl.Create: IXMLDSOControl;
3202	begin
3203	Result := CreateComObject(CLASS_XMLDSOControl) as IXMLDSOControl;
3204	end;
3205
3206	class function CoXMLDSOControl.CreateRemote(const MachineName: string): IXMLDSOControl;
3207	begin
3208	Result := CreateRemoteComObject(MachineName, CLASS_XMLDSOControl) as IXMLDSOControl;
3209	end;
3210
3211	procedure TXMLDSOControl.InitServerData;
3212	const
3213	CServerData: TServerData = (
3214	ClassID: '{550DDA30-0541-11D2-9CA9-0060B0EC3D39}';
3215	IntfIID: '{310AFA62-0575-11D2-9CA9-0060B0EC3D39}';
3216	EventIID: '';
3217	LicenseKey: nil;
3218	Version: 500);
3219	begin
3220	ServerData := @CServerData;
3221	end;
3222
3223	procedure TXMLDSOControl.Connect;
3224	var
3225	punk: IUnknown;
3226	begin
3227	if FIntf = nil then
3228	begin
3229	punk := GetServer;
3230	Fintf:= punk as IXMLDSOControl;
3231	end;
3232	end;
3233
3234	procedure TXMLDSOControl.ConnectTo(svrIntf: IXMLDSOControl);
3235	begin
3236	Disconnect;
3237	FIntf := svrIntf;
3238	end;
3239
3240	procedure TXMLDSOControl.DisConnect;
3241	begin
3242	if Fintf <> nil then
3243	begin
3244	FIntf := nil;
3245	end;
3246	end;
3247
3248	function TXMLDSOControl.GetDefaultInterface: IXMLDSOControl;
3249	begin
3250	if FIntf = nil then
3251	Connect;
3252	Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
3253	Result := FIntf;
3254	end;
3255
3256	constructor TXMLDSOControl.Create(AOwner: TComponent);
3257	begin
3258	inherited Create(AOwner);
3259	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3260	FProps := TXMLDSOControlProperties.Create(Self);
3261	{$ENDIF}
3262	end;
3263
3264	destructor TXMLDSOControl.Destroy;
3265	begin
3266	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3267	FProps.Free;
3268	{$ENDIF}
3269	inherited Destroy;
3270	end;
3271
3272	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3273	function TXMLDSOControl.GetServerProperties: TXMLDSOControlProperties;
3274	begin
3275	Result := FProps;
3276	end;
3277	{$ENDIF}
3278
3279	function TXMLDSOControl.Get_XMLDocument: IXMLDOMDocument;
3280	begin
3281	Result := DefaultInterface.Get_XMLDocument;
3282	end;
3283
3284	procedure TXMLDSOControl.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
3285	begin
3286	DefaultInterface.Set_XMLDocument(ppDoc);
3287	end;
3288
3289	function TXMLDSOControl.Get_JavaDSOCompatible: Integer;
3290	begin
3291	Result := DefaultInterface.Get_JavaDSOCompatible;
3292	end;
3293
3294	procedure TXMLDSOControl.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
3295	begin
3296	DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
3297	end;
3298
3299	function TXMLDSOControl.Get_readyState: Integer;
3300	begin
3301	Result := DefaultInterface.Get_readyState;
3302	end;
3303
3304	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3305	constructor TXMLDSOControlProperties.Create(AServer: TXMLDSOControl);
3306	begin
3307	inherited Create;
3308	FServer := AServer;
3309	end;
3310
3311	function TXMLDSOControlProperties.GetDefaultInterface: IXMLDSOControl;
3312	begin
3313	Result := FServer.DefaultInterface;
3314	end;
3315
3316	function TXMLDSOControlProperties.Get_XMLDocument: IXMLDOMDocument;
3317	begin
3318	Result := DefaultInterface.Get_XMLDocument;
3319	end;
3320
3321	procedure TXMLDSOControlProperties.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
3322	begin
3323	DefaultInterface.Set_XMLDocument(ppDoc);
3324	end;
3325
3326	function TXMLDSOControlProperties.Get_JavaDSOCompatible: Integer;
3327	begin
3328	Result := DefaultInterface.Get_JavaDSOCompatible;
3329	end;
3330
3331	procedure TXMLDSOControlProperties.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
3332	begin
3333	DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
3334	end;
3335
3336	function TXMLDSOControlProperties.Get_readyState: Integer;
3337	begin
3338	Result := DefaultInterface.Get_readyState;
3339	end;
3340
3341	{$ENDIF}
3342
3343	class function CoXMLDocument.Create: IXMLDocument2;
3344	begin
3345	Result := CreateComObject(CLASS_XMLDocument) as IXMLDocument2;
3346	end;
3347
3348	class function CoXMLDocument.CreateRemote(const MachineName: string): IXMLDocument2;
3349	begin
3350	Result := CreateRemoteComObject(MachineName, CLASS_XMLDocument) as IXMLDocument2;
3351	end;
3352
3353	procedure TXMLDocument.InitServerData;
3354	const
3355	CServerData: TServerData = (
3356	ClassID: '{CFC399AF-D876-11D0-9C10-00C04FC99C8E}';
3357	IntfIID: '{2B8DE2FE-8D2D-11D1-B2FC-00C04FD915A9}';
3358	EventIID: '';
3359	LicenseKey: nil;
3360	Version: 500);
3361	begin
3362	ServerData := @CServerData;
3363	end;
3364
3365	procedure TXMLDocument.Connect;
3366	var
3367	punk: IUnknown;
3368	begin
3369	if FIntf = nil then
3370	begin
3371	punk := GetServer;
3372	Fintf:= punk as IXMLDocument2;
3373	end;
3374	end;
3375
3376	procedure TXMLDocument.ConnectTo(svrIntf: IXMLDocument2);
3377	begin
3378	Disconnect;
3379	FIntf := svrIntf;
3380	end;
3381
3382	procedure TXMLDocument.DisConnect;
3383	begin
3384	if Fintf <> nil then
3385	begin
3386	FIntf := nil;
3387	end;
3388	end;
3389
3390	function TXMLDocument.GetDefaultInterface: IXMLDocument2;
3391	begin
3392	if FIntf = nil then
3393	Connect;
3394	Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
3395	Result := FIntf;
3396	end;
3397
3398	constructor TXMLDocument.Create(AOwner: TComponent);
3399	begin
3400	inherited Create(AOwner);
3401	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3402	FProps := TXMLDocumentProperties.Create(Self);
3403	{$ENDIF}
3404	end;
3405
3406	destructor TXMLDocument.Destroy;
3407	begin
3408	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3409	FProps.Free;
3410	{$ENDIF}
3411	inherited Destroy;
3412	end;
3413
3414	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3415	function TXMLDocument.GetServerProperties: TXMLDocumentProperties;
3416	begin
3417	Result := FProps;
3418	end;
3419	{$ENDIF}
3420
3421	function TXMLDocument.Get_root(out p: IXMLElement2): HResult;
3422	begin
3423	Result := DefaultInterface.Get_root(p);
3424	end;
3425
3426	function TXMLDocument.Get_url(out p: WideString): HResult;
3427	begin
3428	Result := DefaultInterface.Get_url(p);
3429	end;
3430
3431	function TXMLDocument.Set_url(const p: WideString): HResult;
3432	begin
3433	Result := DefaultInterface.Set_url(p);
3434	end;
3435
3436	function TXMLDocument.Get_readyState(out pl: Integer): HResult;
3437	begin
3438	Result := DefaultInterface.Get_readyState(pl);
3439	end;
3440
3441	function TXMLDocument.Get_charset(out p: WideString): HResult;
3442	begin
3443	Result := DefaultInterface.Get_charset(p);
3444	end;
3445
3446	function TXMLDocument.Set_charset(const p: WideString): HResult;
3447	begin
3448	Result := DefaultInterface.Set_charset(p);
3449	end;
3450
3451	function TXMLDocument.Get_version(out p: WideString): HResult;
3452	begin
3453	Result := DefaultInterface.Get_version(p);
3454	end;
3455
3456	function TXMLDocument.Get_doctype(out p: WideString): HResult;
3457	begin
3458	Result := DefaultInterface.Get_doctype(p);
3459	end;
3460
3461	function TXMLDocument.Get_async(out pf: WordBool): HResult;
3462	begin
3463	Result := DefaultInterface.Get_async(pf);
3464	end;
3465
3466	function TXMLDocument.Set_async(pf: WordBool): HResult;
3467	begin
3468	Result := DefaultInterface.Set_async(pf);
3469	end;
3470
3471	function TXMLDocument.createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult;
3472	begin
3473	Result := DefaultInterface.createElement(vType, var1, ppElem);
3474	end;
3475
3476	{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3477	constructor TXMLDocumentProperties.Create(AServer: TXMLDocument);
3478	begin
3479	inherited Create;
3480	FServer := AServer;
3481	end;
3482
3483	function TXMLDocumentProperties.GetDefaultInterface: IXMLDocument2;
3484	begin
3485	Result := FServer.DefaultInterface;
3486	end;
3487
3488	function TXMLDocumentProperties.Get_root(out p: IXMLElement2): HResult;
3489	begin
3490	Result := DefaultInterface.Get_root(p);
3491	end;
3492
3493	function TXMLDocumentProperties.Get_url(out p: WideString): HResult;
3494	begin
3495	Result := DefaultInterface.Get_url(p);
3496	end;
3497
3498	function TXMLDocumentProperties.Set_url(const p: WideString): HResult;
3499	begin
3500	Result := DefaultInterface.Set_url(p);
3501	end;
3502
3503	function TXMLDocumentProperties.Get_readyState(out pl: Integer): HResult;
3504	begin
3505	Result := DefaultInterface.Get_readyState(pl);
3506	end;
3507
3508	function TXMLDocumentProperties.Get_charset(out p: WideString): HResult;
3509	begin
3510	Result := DefaultInterface.Get_charset(p);
3511	end;
3512
3513	function TXMLDocumentProperties.Set_charset(const p: WideString): HResult;
3514	begin
3515	Result := DefaultInterface.Set_charset(p);
3516	end;
3517
3518	function TXMLDocumentProperties.Get_version(out p: WideString): HResult;
3519	begin
3520	Result := DefaultInterface.Get_version(p);
3521	end;
3522
3523	function TXMLDocumentProperties.Get_doctype(out p: WideString): HResult;
3524	begin
3525	Result := DefaultInterface.Get_doctype(p);
3526	end;
3527
3528	function TXMLDocumentProperties.Get_async(out pf: WordBool): HResult;
3529	begin
3530	Result := DefaultInterface.Get_async(pf);
3531	end;
3532
3533	function TXMLDocumentProperties.Set_async(pf: WordBool): HResult;
3534	begin
3535	Result := DefaultInterface.Set_async(pf);
3536	end;
3537
3538	{$ENDIF}
3539
3540	procedure Register;
3541	begin
3542	RegisterComponents('ActiveX',[TDOMDocument, TDOMFreeThreadedDocument, TXMLHTTPRequest, TXMLDSOControl,
3543	TXMLDocument]);
3544	end;
3545
3546	end.

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: cprs/branches/GUI-config/CPRS-Lib/MSXML_TLB.pas@ 1328

Download in other formats: