Delphi and the DOM

{ IDOMNodeList }

IDOMNodeList = interface

['{2BF4C0E2-096E-11D4-83DA-00C04F60B2DD}']

{ Property Acessors }

function get_item(index: Integer): IDOMNode; safecall;

function get_length: Integer; safecall;

{ Properties }

property item[index: Integer]: IDOMNode read get_item; default;

property length: Integer read get_length;

end;

{ IDOMNamedNodeMap }

IDOMNamedNodeMap = interface

['{2BF4C0E3-096E-11D4-83DA-00C04F60B2DD}']

{ Property Acessors }

function get_item(index: Integer): IDOMNode; safecall;

function get_length: Integer; safecall;

{ Methods }

function getNamedItem(const name: DOMString): IDOMNode; safecall;

function setNamedItem(const arg: IDOMNode): IDOMNode; safecall;

function removeNamedItem(const name: DOMString): IDOMNode; safecall;

function getNamedItemNS(const namespaceURI, localName: DOMString): IDOMNode; safecall; { DOM Level 2 }

function setNamedItemNS(const arg: IDOMNode): IDOMNode; safecall; { DOM Level 2 }

function removeNamedItemNS(const namespaceURI, localName: DOMString): IDOMNode; safecall; { DOM Level 2 }

{ Properties }

property item[index: Integer]: IDOMNode read get_item; default;

property length: Integer read get_length;

end;

{ IDOMCharacterData }

IDOMCharacterData = interface(IDOMNode)

['{2BF4C0E4-096E-11D4-83DA-00C04F60B2DD}']

{ Property Acessors }

function get_data: DOMString; safecall;

procedure set_data(const data: DOMString); safecall;

function get_length: Integer; safecall;

{ Methods }

function substringData(offset, count: Integer): DOMString; safecall;

procedure appendData(const data: DOMString); safecall;

procedure insertData(offset: Integer; const data: DOMString); safecall;

procedure deleteData(offset, count: Integer); safecall;

procedure replaceData(offset, count: Integer; const data: DOMString); safecall;

{ Properties }

property data: DOMString read get_data write set_data;

property length: Integer read get_length;

end;

{ IDOMAttr }

IDOMAttr = interface(IDOMNode)

['{2BF4C0E5-096E-11D4-83DA-00C04F60B2DD}']

{ Property Acessors }

function get_name: DOMString; safecall;

function get_specified: WordBool; safecall;

function get_value: DOMString; safecall;

procedure set_value(const attributeValue: DOMString); safecall;

function get_ownerElement: IDOMElement; safecall;

{ Properties }

property name: DOMString read get_name;

property specified: WordBool read get_specified;

property value: DOMString read get_value write set_value;

property ownerElement: IDOMElement read get_ownerElement; { DOM Level 2 }

end;

{ IDOMElement }

IDOMElement = interface(IDOMNode)

['{2BF4C0E6-096E-11D4-83DA-00C04F60B2DD}']

{ Property Acessors }

function get_tagName: DOMString; safecall;

{ Methods }

function getAttribute(const name: DOMString): DOMString; safecall;

procedure setAttribute(const name, value: DOMString); safecall;

procedure removeAttribute(const name: DOMString); safecall;

function getAttributeNode(const name: DOMString): IDOMAttr; safecall;

function setAttributeNode(const newAttr: IDOMAttr): IDOMAttr; safecall;

function removeAttributeNode(const oldAttr: IDOMAttr): IDOMAttr; safecall;

function getElementsByTagName(const name: DOMString): IDOMNodeList; safecall;

function getAttributeNS(const namespaceURI, localName: DOMString): DOMString; safecall; { DOM Level 2 }

procedure setAttributeNS(const namespaceURI, qualifiedName, value: DOMString); safecall; { DOM Level 2 }

procedure removeAttributeNS(const namespaceURI, localName: DOMString); safecall; { DOM Level 2 }

function getAttributeNodeNS(const namespaceURI, localName: DOMString): IDOMAttr; safecall; { DOM Level 2 }

function setAttributeNodeNS(const newAttr: IDOMAttr): IDOMAttr; safecall; { DOM Level 2 }

function getElementsByTagNameNS(const namespaceURI,

localName: DOMString): IDOMNodeList; safecall; { DOM Level 2 }

function hasAttribute(const name: DOMString): WordBool; safecall; { DOM Level 2 }

function hasAttributeNS(const namespaceURI, localName: DOMString): WordBool; safecall; { DOM Level 2 }

{ Properties }

property tagName: DOMString read get_tagName;

end;

{ IDOMText }

IDOMText = interface(IDOMCharacterData)

['{2BF4C0E7-096E-11D4-83DA-00C04F60B2DD}']

function splitText(offset: Integer): IDOMText; safecall;

end;

{ IDOMComment }

IDOMComment = interface(IDOMCharacterData)

['{2BF4C0E8-096E-11D4-83DA-00C04F60B2DD}']

end;

{ IDOMCDATASection }

IDOMCDATASection = interface(IDOMText)

['{2BF4C0E9-096E-11D4-83DA-00C04F60B2DD}']

end;

In the next article we will look at a partial listing of the xmlintf unit and then write a program to demonstrate how to use DOM in Delphi.