source: cprs/branches/foia-cprs/CPRS-Lib/MSXML_TLB.pas@ 1269

Last change on this file since 1269 was 459, checked in by Kevin Toppenberg, 17 years ago

Adding foia-cprs branch
File size: 154.0 KB
RevLine 
[459]1unit 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.
47interface
48
49uses 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// *********************************************************************//
58const
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
104type
105 tagDOMNodeType = TOleEnum;
106const
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
122type
123 tagXMLEMEM_TYPE = TOleEnum;
124const
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
133type
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
2245procedure Register;
2246
2247implementation
2248
2249uses ComObj;
2250
2251class function CoDOMDocument.Create: IXMLDOMDocument;
2252begin
2253 Result := CreateComObject(CLASS_DOMDocument) as IXMLDOMDocument;
2254end;
2255
2256class function CoDOMDocument.CreateRemote(const MachineName: string): IXMLDOMDocument;
2257begin
2258 Result := CreateRemoteComObject(MachineName, CLASS_DOMDocument) as IXMLDOMDocument;
2259end;
2260
2261procedure TDOMDocument.InitServerData;
2262const
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);
2269begin
2270 ServerData := @CServerData;
2271end;
2272
2273procedure TDOMDocument.Connect;
2274var
2275 punk: IUnknown;
2276begin
2277 if FIntf = nil then
2278 begin
2279 punk := GetServer;
2280 ConnectEvents(punk);
2281 Fintf:= punk as IXMLDOMDocument;
2282 end;
2283end;
2284
2285procedure TDOMDocument.ConnectTo(svrIntf: IXMLDOMDocument);
2286begin
2287 Disconnect;
2288 FIntf := svrIntf;
2289 ConnectEvents(FIntf);
2290end;
2291
2292procedure TDOMDocument.DisConnect;
2293begin
2294 if Fintf <> nil then
2295 begin
2296 DisconnectEvents(FIntf);
2297 FIntf := nil;
2298 end;
2299end;
2300
2301function TDOMDocument.GetDefaultInterface: IXMLDOMDocument;
2302begin
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;
2307end;
2308
2309constructor TDOMDocument.Create(AOwner: TComponent);
2310begin
2311 inherited Create(AOwner);
2312{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2313 FProps := TDOMDocumentProperties.Create(Self);
2314{$ENDIF}
2315end;
2316
2317destructor TDOMDocument.Destroy;
2318begin
2319{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2320 FProps.Free;
2321{$ENDIF}
2322 inherited Destroy;
2323end;
2324
2325{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2326function TDOMDocument.GetServerProperties: TDOMDocumentProperties;
2327begin
2328 Result := FProps;
2329end;
2330{$ENDIF}
2331
2332procedure TDOMDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
2333begin
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}
2341end;
2342
2343function TDOMDocument.Get_doctype: IXMLDOMDocumentType;
2344begin
2345 Result := DefaultInterface.Get_doctype;
2346end;
2347
2348function TDOMDocument.Get_implementation_: IXMLDOMImplementation;
2349begin
2350 Result := DefaultInterface.Get_implementation_;
2351end;
2352
2353function TDOMDocument.Get_documentElement: IXMLDOMElement;
2354begin
2355 Result := DefaultInterface.Get_documentElement;
2356end;
2357
2358procedure TDOMDocument.Set_documentElement(const DOMElement: IXMLDOMElement);
2359begin
2360 DefaultInterface.Set_documentElement(DOMElement);
2361end;
2362
2363function TDOMDocument.Get_readyState: Integer;
2364begin
2365 Result := DefaultInterface.Get_readyState;
2366end;
2367
2368function TDOMDocument.Get_parseError: IXMLDOMParseError;
2369begin
2370 Result := DefaultInterface.Get_parseError;
2371end;
2372
2373function TDOMDocument.Get_url: WideString;
2374begin
2375 Result := DefaultInterface.Get_url;
2376end;
2377
2378function TDOMDocument.Get_async: WordBool;
2379begin
2380 Result := DefaultInterface.Get_async;
2381end;
2382
2383procedure TDOMDocument.Set_async(isAsync: WordBool);
2384begin
2385 DefaultInterface.Set_async(isAsync);
2386end;
2387
2388function TDOMDocument.Get_validateOnParse: WordBool;
2389begin
2390 Result := DefaultInterface.Get_validateOnParse;
2391end;
2392
2393procedure TDOMDocument.Set_validateOnParse(isValidating: WordBool);
2394begin
2395 DefaultInterface.Set_validateOnParse(isValidating);
2396end;
2397
2398function TDOMDocument.Get_resolveExternals: WordBool;
2399begin
2400 Result := DefaultInterface.Get_resolveExternals;
2401end;
2402
2403procedure TDOMDocument.Set_resolveExternals(isResolving: WordBool);
2404begin
2405 DefaultInterface.Set_resolveExternals(isResolving);
2406end;
2407
2408function TDOMDocument.Get_preserveWhiteSpace: WordBool;
2409begin
2410 Result := DefaultInterface.Get_preserveWhiteSpace;
2411end;
2412
2413procedure TDOMDocument.Set_preserveWhiteSpace(isPreserving: WordBool);
2414begin
2415 DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2416end;
2417
2418procedure TDOMDocument.Set_onreadystatechange(Param1: OleVariant);
2419begin
2420 DefaultInterface.Set_onreadystatechange(Param1);
2421end;
2422
2423procedure TDOMDocument.Set_ondataavailable(Param1: OleVariant);
2424begin
2425 DefaultInterface.Set_ondataavailable(Param1);
2426end;
2427
2428procedure TDOMDocument.Set_ontransformnode(Param1: OleVariant);
2429begin
2430 DefaultInterface.Set_ontransformnode(Param1);
2431end;
2432
2433function TDOMDocument.createElement(const tagName: WideString): IXMLDOMElement;
2434begin
2435 Result := DefaultInterface.createElement(tagName);
2436end;
2437
2438function TDOMDocument.createDocumentFragment: IXMLDOMDocumentFragment;
2439begin
2440 Result := DefaultInterface.createDocumentFragment;
2441end;
2442
2443function TDOMDocument.createTextNode(const data: WideString): IXMLDOMText;
2444begin
2445 Result := DefaultInterface.createTextNode(data);
2446end;
2447
2448function TDOMDocument.createComment(const data: WideString): IXMLDOMComment;
2449begin
2450 Result := DefaultInterface.createComment(data);
2451end;
2452
2453function TDOMDocument.createCDATASection(const data: WideString): IXMLDOMCDATASection;
2454begin
2455 Result := DefaultInterface.createCDATASection(data);
2456end;
2457
2458function TDOMDocument.createProcessingInstruction(const target: WideString; const data: WideString): IXMLDOMProcessingInstruction;
2459begin
2460 Result := DefaultInterface.createProcessingInstruction(target, data);
2461end;
2462
2463function TDOMDocument.createAttribute(const name: WideString): IXMLDOMAttribute;
2464begin
2465 Result := DefaultInterface.createAttribute(name);
2466end;
2467
2468function TDOMDocument.createEntityReference(const name: WideString): IXMLDOMEntityReference;
2469begin
2470 Result := DefaultInterface.createEntityReference(name);
2471end;
2472
2473function TDOMDocument.getElementsByTagName(const tagName: WideString): IXMLDOMNodeList;
2474begin
2475 Result := DefaultInterface.getElementsByTagName(tagName);
2476end;
2477
2478function TDOMDocument.createNode(type_: OleVariant; const name: WideString;
2479 const namespaceURI: WideString): IXMLDOMNode;
2480begin
2481 Result := DefaultInterface.createNode(type_, name, namespaceURI);
2482end;
2483
2484function TDOMDocument.nodeFromID(const idString: WideString): IXMLDOMNode;
2485begin
2486 Result := DefaultInterface.nodeFromID(idString);
2487end;
2488
2489function TDOMDocument.load(xmlSource: OleVariant): WordBool;
2490begin
2491 Result := DefaultInterface.load(xmlSource);
2492end;
2493
2494procedure TDOMDocument.abort;
2495begin
2496 DefaultInterface.abort;
2497end;
2498
2499function TDOMDocument.loadXML(const bstrXML: WideString): WordBool;
2500begin
2501 Result := DefaultInterface.loadXML(bstrXML);
2502end;
2503
2504procedure TDOMDocument.save(desination: OleVariant);
2505begin
2506 DefaultInterface.save(desination);
2507end;
2508
2509{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2510constructor TDOMDocumentProperties.Create(AServer: TDOMDocument);
2511begin
2512 inherited Create;
2513 FServer := AServer;
2514end;
2515
2516function TDOMDocumentProperties.GetDefaultInterface: IXMLDOMDocument;
2517begin
2518 Result := FServer.DefaultInterface;
2519end;
2520
2521function TDOMDocumentProperties.Get_doctype: IXMLDOMDocumentType;
2522begin
2523 Result := DefaultInterface.Get_doctype;
2524end;
2525
2526function TDOMDocumentProperties.Get_implementation_: IXMLDOMImplementation;
2527begin
2528 Result := DefaultInterface.Get_implementation_;
2529end;
2530
2531function TDOMDocumentProperties.Get_documentElement: IXMLDOMElement;
2532begin
2533 Result := DefaultInterface.Get_documentElement;
2534end;
2535
2536procedure TDOMDocumentProperties.Set_documentElement(const DOMElement: IXMLDOMElement);
2537begin
2538 DefaultInterface.Set_documentElement(DOMElement);
2539end;
2540
2541function TDOMDocumentProperties.Get_readyState: Integer;
2542begin
2543 Result := DefaultInterface.Get_readyState;
2544end;
2545
2546function TDOMDocumentProperties.Get_parseError: IXMLDOMParseError;
2547begin
2548 Result := DefaultInterface.Get_parseError;
2549end;
2550
2551function TDOMDocumentProperties.Get_url: WideString;
2552begin
2553 Result := DefaultInterface.Get_url;
2554end;
2555
2556function TDOMDocumentProperties.Get_async: WordBool;
2557begin
2558 Result := DefaultInterface.Get_async;
2559end;
2560
2561procedure TDOMDocumentProperties.Set_async(isAsync: WordBool);
2562begin
2563 DefaultInterface.Set_async(isAsync);
2564end;
2565
2566function TDOMDocumentProperties.Get_validateOnParse: WordBool;
2567begin
2568 Result := DefaultInterface.Get_validateOnParse;
2569end;
2570
2571procedure TDOMDocumentProperties.Set_validateOnParse(isValidating: WordBool);
2572begin
2573 DefaultInterface.Set_validateOnParse(isValidating);
2574end;
2575
2576function TDOMDocumentProperties.Get_resolveExternals: WordBool;
2577begin
2578 Result := DefaultInterface.Get_resolveExternals;
2579end;
2580
2581procedure TDOMDocumentProperties.Set_resolveExternals(isResolving: WordBool);
2582begin
2583 DefaultInterface.Set_resolveExternals(isResolving);
2584end;
2585
2586function TDOMDocumentProperties.Get_preserveWhiteSpace: WordBool;
2587begin
2588 Result := DefaultInterface.Get_preserveWhiteSpace;
2589end;
2590
2591procedure TDOMDocumentProperties.Set_preserveWhiteSpace(isPreserving: WordBool);
2592begin
2593 DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2594end;
2595
2596procedure TDOMDocumentProperties.Set_onreadystatechange(Param1: OleVariant);
2597begin
2598 DefaultInterface.Set_onreadystatechange(Param1);
2599end;
2600
2601procedure TDOMDocumentProperties.Set_ondataavailable(Param1: OleVariant);
2602begin
2603 DefaultInterface.Set_ondataavailable(Param1);
2604end;
2605
2606procedure TDOMDocumentProperties.Set_ontransformnode(Param1: OleVariant);
2607begin
2608 DefaultInterface.Set_ontransformnode(Param1);
2609end;
2610
2611{$ENDIF}
2612
2613class function CoDOMFreeThreadedDocument.Create: IXMLDOMDocument;
2614begin
2615 Result := CreateComObject(CLASS_DOMFreeThreadedDocument) as IXMLDOMDocument;
2616end;
2617
2618class function CoDOMFreeThreadedDocument.CreateRemote(const MachineName: string): IXMLDOMDocument;
2619begin
2620 Result := CreateRemoteComObject(MachineName, CLASS_DOMFreeThreadedDocument) as IXMLDOMDocument;
2621end;
2622
2623procedure TDOMFreeThreadedDocument.InitServerData;
2624const
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);
2631begin
2632 ServerData := @CServerData;
2633end;
2634
2635procedure TDOMFreeThreadedDocument.Connect;
2636var
2637 punk: IUnknown;
2638begin
2639 if FIntf = nil then
2640 begin
2641 punk := GetServer;
2642 ConnectEvents(punk);
2643 Fintf:= punk as IXMLDOMDocument;
2644 end;
2645end;
2646
2647procedure TDOMFreeThreadedDocument.ConnectTo(svrIntf: IXMLDOMDocument);
2648begin
2649 Disconnect;
2650 FIntf := svrIntf;
2651 ConnectEvents(FIntf);
2652end;
2653
2654procedure TDOMFreeThreadedDocument.DisConnect;
2655begin
2656 if Fintf <> nil then
2657 begin
2658 DisconnectEvents(FIntf);
2659 FIntf := nil;
2660 end;
2661end;
2662
2663function TDOMFreeThreadedDocument.GetDefaultInterface: IXMLDOMDocument;
2664begin
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;
2669end;
2670
2671constructor TDOMFreeThreadedDocument.Create(AOwner: TComponent);
2672begin
2673 inherited Create(AOwner);
2674{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2675 FProps := TDOMFreeThreadedDocumentProperties.Create(Self);
2676{$ENDIF}
2677end;
2678
2679destructor TDOMFreeThreadedDocument.Destroy;
2680begin
2681{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2682 FProps.Free;
2683{$ENDIF}
2684 inherited Destroy;
2685end;
2686
2687{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2688function TDOMFreeThreadedDocument.GetServerProperties: TDOMFreeThreadedDocumentProperties;
2689begin
2690 Result := FProps;
2691end;
2692{$ENDIF}
2693
2694procedure TDOMFreeThreadedDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
2695begin
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}
2703end;
2704
2705function TDOMFreeThreadedDocument.Get_doctype: IXMLDOMDocumentType;
2706begin
2707 Result := DefaultInterface.Get_doctype;
2708end;
2709
2710function TDOMFreeThreadedDocument.Get_implementation_: IXMLDOMImplementation;
2711begin
2712 Result := DefaultInterface.Get_implementation_;
2713end;
2714
2715function TDOMFreeThreadedDocument.Get_documentElement: IXMLDOMElement;
2716begin
2717 Result := DefaultInterface.Get_documentElement;
2718end;
2719
2720procedure TDOMFreeThreadedDocument.Set_documentElement(const DOMElement: IXMLDOMElement);
2721begin
2722 DefaultInterface.Set_documentElement(DOMElement);
2723end;
2724
2725function TDOMFreeThreadedDocument.Get_readyState: Integer;
2726begin
2727 Result := DefaultInterface.Get_readyState;
2728end;
2729
2730function TDOMFreeThreadedDocument.Get_parseError: IXMLDOMParseError;
2731begin
2732 Result := DefaultInterface.Get_parseError;
2733end;
2734
2735function TDOMFreeThreadedDocument.Get_url: WideString;
2736begin
2737 Result := DefaultInterface.Get_url;
2738end;
2739
2740function TDOMFreeThreadedDocument.Get_async: WordBool;
2741begin
2742 Result := DefaultInterface.Get_async;
2743end;
2744
2745procedure TDOMFreeThreadedDocument.Set_async(isAsync: WordBool);
2746begin
2747 DefaultInterface.Set_async(isAsync);
2748end;
2749
2750function TDOMFreeThreadedDocument.Get_validateOnParse: WordBool;
2751begin
2752 Result := DefaultInterface.Get_validateOnParse;
2753end;
2754
2755procedure TDOMFreeThreadedDocument.Set_validateOnParse(isValidating: WordBool);
2756begin
2757 DefaultInterface.Set_validateOnParse(isValidating);
2758end;
2759
2760function TDOMFreeThreadedDocument.Get_resolveExternals: WordBool;
2761begin
2762 Result := DefaultInterface.Get_resolveExternals;
2763end;
2764
2765procedure TDOMFreeThreadedDocument.Set_resolveExternals(isResolving: WordBool);
2766begin
2767 DefaultInterface.Set_resolveExternals(isResolving);
2768end;
2769
2770function TDOMFreeThreadedDocument.Get_preserveWhiteSpace: WordBool;
2771begin
2772 Result := DefaultInterface.Get_preserveWhiteSpace;
2773end;
2774
2775procedure TDOMFreeThreadedDocument.Set_preserveWhiteSpace(isPreserving: WordBool);
2776begin
2777 DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2778end;
2779
2780procedure TDOMFreeThreadedDocument.Set_onreadystatechange(Param1: OleVariant);
2781begin
2782 DefaultInterface.Set_onreadystatechange(Param1);
2783end;
2784
2785procedure TDOMFreeThreadedDocument.Set_ondataavailable(Param1: OleVariant);
2786begin
2787 DefaultInterface.Set_ondataavailable(Param1);
2788end;
2789
2790procedure TDOMFreeThreadedDocument.Set_ontransformnode(Param1: OleVariant);
2791begin
2792 DefaultInterface.Set_ontransformnode(Param1);
2793end;
2794
2795function TDOMFreeThreadedDocument.createElement(const tagName: WideString): IXMLDOMElement;
2796begin
2797 Result := DefaultInterface.createElement(tagName);
2798end;
2799
2800function TDOMFreeThreadedDocument.createDocumentFragment: IXMLDOMDocumentFragment;
2801begin
2802 Result := DefaultInterface.createDocumentFragment;
2803end;
2804
2805function TDOMFreeThreadedDocument.createTextNode(const data: WideString): IXMLDOMText;
2806begin
2807 Result := DefaultInterface.createTextNode(data);
2808end;
2809
2810function TDOMFreeThreadedDocument.createComment(const data: WideString): IXMLDOMComment;
2811begin
2812 Result := DefaultInterface.createComment(data);
2813end;
2814
2815function TDOMFreeThreadedDocument.createCDATASection(const data: WideString): IXMLDOMCDATASection;
2816begin
2817 Result := DefaultInterface.createCDATASection(data);
2818end;
2819
2820function TDOMFreeThreadedDocument.createProcessingInstruction(const target: WideString;
2821 const data: WideString): IXMLDOMProcessingInstruction;
2822begin
2823 Result := DefaultInterface.createProcessingInstruction(target, data);
2824end;
2825
2826function TDOMFreeThreadedDocument.createAttribute(const name: WideString): IXMLDOMAttribute;
2827begin
2828 Result := DefaultInterface.createAttribute(name);
2829end;
2830
2831function TDOMFreeThreadedDocument.createEntityReference(const name: WideString): IXMLDOMEntityReference;
2832begin
2833 Result := DefaultInterface.createEntityReference(name);
2834end;
2835
2836function TDOMFreeThreadedDocument.getElementsByTagName(const tagName: WideString): IXMLDOMNodeList;
2837begin
2838 Result := DefaultInterface.getElementsByTagName(tagName);
2839end;
2840
2841function TDOMFreeThreadedDocument.createNode(type_: OleVariant; const name: WideString;
2842 const namespaceURI: WideString): IXMLDOMNode;
2843begin
2844 Result := DefaultInterface.createNode(type_, name, namespaceURI);
2845end;
2846
2847function TDOMFreeThreadedDocument.nodeFromID(const idString: WideString): IXMLDOMNode;
2848begin
2849 Result := DefaultInterface.nodeFromID(idString);
2850end;
2851
2852function TDOMFreeThreadedDocument.load(xmlSource: OleVariant): WordBool;
2853begin
2854 Result := DefaultInterface.load(xmlSource);
2855end;
2856
2857procedure TDOMFreeThreadedDocument.abort;
2858begin
2859 DefaultInterface.abort;
2860end;
2861
2862function TDOMFreeThreadedDocument.loadXML(const bstrXML: WideString): WordBool;
2863begin
2864 Result := DefaultInterface.loadXML(bstrXML);
2865end;
2866
2867procedure TDOMFreeThreadedDocument.save(desination: OleVariant);
2868begin
2869 DefaultInterface.save(desination);
2870end;
2871
2872{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
2873constructor TDOMFreeThreadedDocumentProperties.Create(AServer: TDOMFreeThreadedDocument);
2874begin
2875 inherited Create;
2876 FServer := AServer;
2877end;
2878
2879function TDOMFreeThreadedDocumentProperties.GetDefaultInterface: IXMLDOMDocument;
2880begin
2881 Result := FServer.DefaultInterface;
2882end;
2883
2884function TDOMFreeThreadedDocumentProperties.Get_doctype: IXMLDOMDocumentType;
2885begin
2886 Result := DefaultInterface.Get_doctype;
2887end;
2888
2889function TDOMFreeThreadedDocumentProperties.Get_implementation_: IXMLDOMImplementation;
2890begin
2891 Result := DefaultInterface.Get_implementation_;
2892end;
2893
2894function TDOMFreeThreadedDocumentProperties.Get_documentElement: IXMLDOMElement;
2895begin
2896 Result := DefaultInterface.Get_documentElement;
2897end;
2898
2899procedure TDOMFreeThreadedDocumentProperties.Set_documentElement(const DOMElement: IXMLDOMElement);
2900begin
2901 DefaultInterface.Set_documentElement(DOMElement);
2902end;
2903
2904function TDOMFreeThreadedDocumentProperties.Get_readyState: Integer;
2905begin
2906 Result := DefaultInterface.Get_readyState;
2907end;
2908
2909function TDOMFreeThreadedDocumentProperties.Get_parseError: IXMLDOMParseError;
2910begin
2911 Result := DefaultInterface.Get_parseError;
2912end;
2913
2914function TDOMFreeThreadedDocumentProperties.Get_url: WideString;
2915begin
2916 Result := DefaultInterface.Get_url;
2917end;
2918
2919function TDOMFreeThreadedDocumentProperties.Get_async: WordBool;
2920begin
2921 Result := DefaultInterface.Get_async;
2922end;
2923
2924procedure TDOMFreeThreadedDocumentProperties.Set_async(isAsync: WordBool);
2925begin
2926 DefaultInterface.Set_async(isAsync);
2927end;
2928
2929function TDOMFreeThreadedDocumentProperties.Get_validateOnParse: WordBool;
2930begin
2931 Result := DefaultInterface.Get_validateOnParse;
2932end;
2933
2934procedure TDOMFreeThreadedDocumentProperties.Set_validateOnParse(isValidating: WordBool);
2935begin
2936 DefaultInterface.Set_validateOnParse(isValidating);
2937end;
2938
2939function TDOMFreeThreadedDocumentProperties.Get_resolveExternals: WordBool;
2940begin
2941 Result := DefaultInterface.Get_resolveExternals;
2942end;
2943
2944procedure TDOMFreeThreadedDocumentProperties.Set_resolveExternals(isResolving: WordBool);
2945begin
2946 DefaultInterface.Set_resolveExternals(isResolving);
2947end;
2948
2949function TDOMFreeThreadedDocumentProperties.Get_preserveWhiteSpace: WordBool;
2950begin
2951 Result := DefaultInterface.Get_preserveWhiteSpace;
2952end;
2953
2954procedure TDOMFreeThreadedDocumentProperties.Set_preserveWhiteSpace(isPreserving: WordBool);
2955begin
2956 DefaultInterface.Set_preserveWhiteSpace(isPreserving);
2957end;
2958
2959procedure TDOMFreeThreadedDocumentProperties.Set_onreadystatechange(Param1: OleVariant);
2960begin
2961 DefaultInterface.Set_onreadystatechange(Param1);
2962end;
2963
2964procedure TDOMFreeThreadedDocumentProperties.Set_ondataavailable(Param1: OleVariant);
2965begin
2966 DefaultInterface.Set_ondataavailable(Param1);
2967end;
2968
2969procedure TDOMFreeThreadedDocumentProperties.Set_ontransformnode(Param1: OleVariant);
2970begin
2971 DefaultInterface.Set_ontransformnode(Param1);
2972end;
2973
2974{$ENDIF}
2975
2976class function CoXMLHTTPRequest.Create: IXMLHttpRequest;
2977begin
2978 Result := CreateComObject(CLASS_XMLHTTPRequest) as IXMLHttpRequest;
2979end;
2980
2981class function CoXMLHTTPRequest.CreateRemote(const MachineName: string): IXMLHttpRequest;
2982begin
2983 Result := CreateRemoteComObject(MachineName, CLASS_XMLHTTPRequest) as IXMLHttpRequest;
2984end;
2985
2986procedure TXMLHTTPRequest.InitServerData;
2987const
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);
2994begin
2995 ServerData := @CServerData;
2996end;
2997
2998procedure TXMLHTTPRequest.Connect;
2999var
3000 punk: IUnknown;
3001begin
3002 if FIntf = nil then
3003 begin
3004 punk := GetServer;
3005 Fintf:= punk as IXMLHttpRequest;
3006 end;
3007end;
3008
3009procedure TXMLHTTPRequest.ConnectTo(svrIntf: IXMLHttpRequest);
3010begin
3011 Disconnect;
3012 FIntf := svrIntf;
3013end;
3014
3015procedure TXMLHTTPRequest.DisConnect;
3016begin
3017 if Fintf <> nil then
3018 begin
3019 FIntf := nil;
3020 end;
3021end;
3022
3023function TXMLHTTPRequest.GetDefaultInterface: IXMLHttpRequest;
3024begin
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;
3029end;
3030
3031constructor TXMLHTTPRequest.Create(AOwner: TComponent);
3032begin
3033 inherited Create(AOwner);
3034{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3035 FProps := TXMLHTTPRequestProperties.Create(Self);
3036{$ENDIF}
3037end;
3038
3039destructor TXMLHTTPRequest.Destroy;
3040begin
3041{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3042 FProps.Free;
3043{$ENDIF}
3044 inherited Destroy;
3045end;
3046
3047{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3048function TXMLHTTPRequest.GetServerProperties: TXMLHTTPRequestProperties;
3049begin
3050 Result := FProps;
3051end;
3052{$ENDIF}
3053
3054function TXMLHTTPRequest.Get_status: Integer;
3055begin
3056 Result := DefaultInterface.Get_status;
3057end;
3058
3059function TXMLHTTPRequest.Get_statusText: WideString;
3060begin
3061 Result := DefaultInterface.Get_statusText;
3062end;
3063
3064function TXMLHTTPRequest.Get_responseXML: IDispatch;
3065begin
3066 Result := DefaultInterface.Get_responseXML;
3067end;
3068
3069function TXMLHTTPRequest.Get_responseText: WideString;
3070begin
3071 Result := DefaultInterface.Get_responseText;
3072end;
3073
3074function TXMLHTTPRequest.Get_responseBody: OleVariant;
3075begin
3076 Result := DefaultInterface.Get_responseBody;
3077end;
3078
3079function TXMLHTTPRequest.Get_responseStream: OleVariant;
3080begin
3081 Result := DefaultInterface.Get_responseStream;
3082end;
3083
3084function TXMLHTTPRequest.Get_readyState: Integer;
3085begin
3086 Result := DefaultInterface.Get_readyState;
3087end;
3088
3089procedure TXMLHTTPRequest.Set_onreadystatechange(const Param1: IDispatch);
3090begin
3091 DefaultInterface.Set_onreadystatechange(Param1);
3092end;
3093
3094procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString);
3095begin
3096 DefaultInterface.open(bstrMethod, bstrUrl, EmptyParam, EmptyParam, EmptyParam);
3097end;
3098
3099procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString;
3100 varAsync: OleVariant);
3101begin
3102 DefaultInterface.open(bstrMethod, bstrUrl, varAsync, EmptyParam, EmptyParam);
3103end;
3104
3105procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString;
3106 varAsync: OleVariant; bstrUser: OleVariant);
3107begin
3108 DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, EmptyParam);
3109end;
3110
3111procedure TXMLHTTPRequest.open(const bstrMethod: WideString; const bstrUrl: WideString;
3112 varAsync: OleVariant; bstrUser: OleVariant; bstrPassword: OleVariant);
3113begin
3114 DefaultInterface.open(bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword);
3115end;
3116
3117procedure TXMLHTTPRequest.setRequestHeader(const bstrHeader: WideString; const bstrValue: WideString);
3118begin
3119 DefaultInterface.setRequestHeader(bstrHeader, bstrValue);
3120end;
3121
3122function TXMLHTTPRequest.getResponseHeader(const bstrHeader: WideString): WideString;
3123begin
3124 Result := DefaultInterface.getResponseHeader(bstrHeader);
3125end;
3126
3127function TXMLHTTPRequest.getAllResponseHeaders: WideString;
3128begin
3129 Result := DefaultInterface.getAllResponseHeaders;
3130end;
3131
3132procedure TXMLHTTPRequest.send;
3133begin
3134 DefaultInterface.send(EmptyParam);
3135end;
3136
3137procedure TXMLHTTPRequest.send(varBody: OleVariant);
3138begin
3139 DefaultInterface.send(varBody);
3140end;
3141
3142procedure TXMLHTTPRequest.abort;
3143begin
3144 DefaultInterface.abort;
3145end;
3146
3147{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3148constructor TXMLHTTPRequestProperties.Create(AServer: TXMLHTTPRequest);
3149begin
3150 inherited Create;
3151 FServer := AServer;
3152end;
3153
3154function TXMLHTTPRequestProperties.GetDefaultInterface: IXMLHttpRequest;
3155begin
3156 Result := FServer.DefaultInterface;
3157end;
3158
3159function TXMLHTTPRequestProperties.Get_status: Integer;
3160begin
3161 Result := DefaultInterface.Get_status;
3162end;
3163
3164function TXMLHTTPRequestProperties.Get_statusText: WideString;
3165begin
3166 Result := DefaultInterface.Get_statusText;
3167end;
3168
3169function TXMLHTTPRequestProperties.Get_responseXML: IDispatch;
3170begin
3171 Result := DefaultInterface.Get_responseXML;
3172end;
3173
3174function TXMLHTTPRequestProperties.Get_responseText: WideString;
3175begin
3176 Result := DefaultInterface.Get_responseText;
3177end;
3178
3179function TXMLHTTPRequestProperties.Get_responseBody: OleVariant;
3180begin
3181 Result := DefaultInterface.Get_responseBody;
3182end;
3183
3184function TXMLHTTPRequestProperties.Get_responseStream: OleVariant;
3185begin
3186 Result := DefaultInterface.Get_responseStream;
3187end;
3188
3189function TXMLHTTPRequestProperties.Get_readyState: Integer;
3190begin
3191 Result := DefaultInterface.Get_readyState;
3192end;
3193
3194procedure TXMLHTTPRequestProperties.Set_onreadystatechange(const Param1: IDispatch);
3195begin
3196 DefaultInterface.Set_onreadystatechange(Param1);
3197end;
3198
3199{$ENDIF}
3200
3201class function CoXMLDSOControl.Create: IXMLDSOControl;
3202begin
3203 Result := CreateComObject(CLASS_XMLDSOControl) as IXMLDSOControl;
3204end;
3205
3206class function CoXMLDSOControl.CreateRemote(const MachineName: string): IXMLDSOControl;
3207begin
3208 Result := CreateRemoteComObject(MachineName, CLASS_XMLDSOControl) as IXMLDSOControl;
3209end;
3210
3211procedure TXMLDSOControl.InitServerData;
3212const
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);
3219begin
3220 ServerData := @CServerData;
3221end;
3222
3223procedure TXMLDSOControl.Connect;
3224var
3225 punk: IUnknown;
3226begin
3227 if FIntf = nil then
3228 begin
3229 punk := GetServer;
3230 Fintf:= punk as IXMLDSOControl;
3231 end;
3232end;
3233
3234procedure TXMLDSOControl.ConnectTo(svrIntf: IXMLDSOControl);
3235begin
3236 Disconnect;
3237 FIntf := svrIntf;
3238end;
3239
3240procedure TXMLDSOControl.DisConnect;
3241begin
3242 if Fintf <> nil then
3243 begin
3244 FIntf := nil;
3245 end;
3246end;
3247
3248function TXMLDSOControl.GetDefaultInterface: IXMLDSOControl;
3249begin
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;
3254end;
3255
3256constructor TXMLDSOControl.Create(AOwner: TComponent);
3257begin
3258 inherited Create(AOwner);
3259{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3260 FProps := TXMLDSOControlProperties.Create(Self);
3261{$ENDIF}
3262end;
3263
3264destructor TXMLDSOControl.Destroy;
3265begin
3266{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3267 FProps.Free;
3268{$ENDIF}
3269 inherited Destroy;
3270end;
3271
3272{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3273function TXMLDSOControl.GetServerProperties: TXMLDSOControlProperties;
3274begin
3275 Result := FProps;
3276end;
3277{$ENDIF}
3278
3279function TXMLDSOControl.Get_XMLDocument: IXMLDOMDocument;
3280begin
3281 Result := DefaultInterface.Get_XMLDocument;
3282end;
3283
3284procedure TXMLDSOControl.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
3285begin
3286 DefaultInterface.Set_XMLDocument(ppDoc);
3287end;
3288
3289function TXMLDSOControl.Get_JavaDSOCompatible: Integer;
3290begin
3291 Result := DefaultInterface.Get_JavaDSOCompatible;
3292end;
3293
3294procedure TXMLDSOControl.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
3295begin
3296 DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
3297end;
3298
3299function TXMLDSOControl.Get_readyState: Integer;
3300begin
3301 Result := DefaultInterface.Get_readyState;
3302end;
3303
3304{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3305constructor TXMLDSOControlProperties.Create(AServer: TXMLDSOControl);
3306begin
3307 inherited Create;
3308 FServer := AServer;
3309end;
3310
3311function TXMLDSOControlProperties.GetDefaultInterface: IXMLDSOControl;
3312begin
3313 Result := FServer.DefaultInterface;
3314end;
3315
3316function TXMLDSOControlProperties.Get_XMLDocument: IXMLDOMDocument;
3317begin
3318 Result := DefaultInterface.Get_XMLDocument;
3319end;
3320
3321procedure TXMLDSOControlProperties.Set_XMLDocument(const ppDoc: IXMLDOMDocument);
3322begin
3323 DefaultInterface.Set_XMLDocument(ppDoc);
3324end;
3325
3326function TXMLDSOControlProperties.Get_JavaDSOCompatible: Integer;
3327begin
3328 Result := DefaultInterface.Get_JavaDSOCompatible;
3329end;
3330
3331procedure TXMLDSOControlProperties.Set_JavaDSOCompatible(fJavaDSOCompatible: Integer);
3332begin
3333 DefaultInterface.Set_JavaDSOCompatible(fJavaDSOCompatible);
3334end;
3335
3336function TXMLDSOControlProperties.Get_readyState: Integer;
3337begin
3338 Result := DefaultInterface.Get_readyState;
3339end;
3340
3341{$ENDIF}
3342
3343class function CoXMLDocument.Create: IXMLDocument2;
3344begin
3345 Result := CreateComObject(CLASS_XMLDocument) as IXMLDocument2;
3346end;
3347
3348class function CoXMLDocument.CreateRemote(const MachineName: string): IXMLDocument2;
3349begin
3350 Result := CreateRemoteComObject(MachineName, CLASS_XMLDocument) as IXMLDocument2;
3351end;
3352
3353procedure TXMLDocument.InitServerData;
3354const
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);
3361begin
3362 ServerData := @CServerData;
3363end;
3364
3365procedure TXMLDocument.Connect;
3366var
3367 punk: IUnknown;
3368begin
3369 if FIntf = nil then
3370 begin
3371 punk := GetServer;
3372 Fintf:= punk as IXMLDocument2;
3373 end;
3374end;
3375
3376procedure TXMLDocument.ConnectTo(svrIntf: IXMLDocument2);
3377begin
3378 Disconnect;
3379 FIntf := svrIntf;
3380end;
3381
3382procedure TXMLDocument.DisConnect;
3383begin
3384 if Fintf <> nil then
3385 begin
3386 FIntf := nil;
3387 end;
3388end;
3389
3390function TXMLDocument.GetDefaultInterface: IXMLDocument2;
3391begin
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;
3396end;
3397
3398constructor TXMLDocument.Create(AOwner: TComponent);
3399begin
3400 inherited Create(AOwner);
3401{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3402 FProps := TXMLDocumentProperties.Create(Self);
3403{$ENDIF}
3404end;
3405
3406destructor TXMLDocument.Destroy;
3407begin
3408{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3409 FProps.Free;
3410{$ENDIF}
3411 inherited Destroy;
3412end;
3413
3414{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3415function TXMLDocument.GetServerProperties: TXMLDocumentProperties;
3416begin
3417 Result := FProps;
3418end;
3419{$ENDIF}
3420
3421function TXMLDocument.Get_root(out p: IXMLElement2): HResult;
3422begin
3423 Result := DefaultInterface.Get_root(p);
3424end;
3425
3426function TXMLDocument.Get_url(out p: WideString): HResult;
3427begin
3428 Result := DefaultInterface.Get_url(p);
3429end;
3430
3431function TXMLDocument.Set_url(const p: WideString): HResult;
3432begin
3433 Result := DefaultInterface.Set_url(p);
3434end;
3435
3436function TXMLDocument.Get_readyState(out pl: Integer): HResult;
3437begin
3438 Result := DefaultInterface.Get_readyState(pl);
3439end;
3440
3441function TXMLDocument.Get_charset(out p: WideString): HResult;
3442begin
3443 Result := DefaultInterface.Get_charset(p);
3444end;
3445
3446function TXMLDocument.Set_charset(const p: WideString): HResult;
3447begin
3448 Result := DefaultInterface.Set_charset(p);
3449end;
3450
3451function TXMLDocument.Get_version(out p: WideString): HResult;
3452begin
3453 Result := DefaultInterface.Get_version(p);
3454end;
3455
3456function TXMLDocument.Get_doctype(out p: WideString): HResult;
3457begin
3458 Result := DefaultInterface.Get_doctype(p);
3459end;
3460
3461function TXMLDocument.Get_async(out pf: WordBool): HResult;
3462begin
3463 Result := DefaultInterface.Get_async(pf);
3464end;
3465
3466function TXMLDocument.Set_async(pf: WordBool): HResult;
3467begin
3468 Result := DefaultInterface.Set_async(pf);
3469end;
3470
3471function TXMLDocument.createElement(vType: OleVariant; var1: OleVariant; out ppElem: IXMLElement2): HResult;
3472begin
3473 Result := DefaultInterface.createElement(vType, var1, ppElem);
3474end;
3475
3476{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
3477constructor TXMLDocumentProperties.Create(AServer: TXMLDocument);
3478begin
3479 inherited Create;
3480 FServer := AServer;
3481end;
3482
3483function TXMLDocumentProperties.GetDefaultInterface: IXMLDocument2;
3484begin
3485 Result := FServer.DefaultInterface;
3486end;
3487
3488function TXMLDocumentProperties.Get_root(out p: IXMLElement2): HResult;
3489begin
3490 Result := DefaultInterface.Get_root(p);
3491end;
3492
3493function TXMLDocumentProperties.Get_url(out p: WideString): HResult;
3494begin
3495 Result := DefaultInterface.Get_url(p);
3496end;
3497
3498function TXMLDocumentProperties.Set_url(const p: WideString): HResult;
3499begin
3500 Result := DefaultInterface.Set_url(p);
3501end;
3502
3503function TXMLDocumentProperties.Get_readyState(out pl: Integer): HResult;
3504begin
3505 Result := DefaultInterface.Get_readyState(pl);
3506end;
3507
3508function TXMLDocumentProperties.Get_charset(out p: WideString): HResult;
3509begin
3510 Result := DefaultInterface.Get_charset(p);
3511end;
3512
3513function TXMLDocumentProperties.Set_charset(const p: WideString): HResult;
3514begin
3515 Result := DefaultInterface.Set_charset(p);
3516end;
3517
3518function TXMLDocumentProperties.Get_version(out p: WideString): HResult;
3519begin
3520 Result := DefaultInterface.Get_version(p);
3521end;
3522
3523function TXMLDocumentProperties.Get_doctype(out p: WideString): HResult;
3524begin
3525 Result := DefaultInterface.Get_doctype(p);
3526end;
3527
3528function TXMLDocumentProperties.Get_async(out pf: WordBool): HResult;
3529begin
3530 Result := DefaultInterface.Get_async(pf);
3531end;
3532
3533function TXMLDocumentProperties.Set_async(pf: WordBool): HResult;
3534begin
3535 Result := DefaultInterface.Set_async(pf);
3536end;
3537
3538{$ENDIF}
3539
3540procedure Register;
3541begin
3542 RegisterComponents('ActiveX',[TDOMDocument, TDOMFreeThreadedDocument, TXMLHTTPRequest, TXMLDSOControl,
3543 TXMLDocument]);
3544end;
3545
3546end.
Note: See TracBrowser for help on using the repository browser.