TXMLDocument

← →
Yakudza (2003-08-17 22:19) [0]

Кто знаком с XMLDocument1 подскажите.
Есть вот такой документ.
<?xml version="1.0" encoding="iso-8859-1"?>
<LIST>
<COMPANY_NAME>
<GENERAL_EMAIL></GENERAL_EMAIL>
<STATUS>0</STATUS>
<EMPLOYEES>
<FIRST_NAME>Yuriy</FIRST_NAME>
<LAST_NAME>Kravchenko</LAST_NAME>
<EMAIL>ykravchenko@amcham.kiev.ua</EMAIL>
</EMPLOYEES>
</COMPANY_NAME>
</WEEKLY_LIST>

Как поменять значение нода <FIRST_NAME> ?

← →
Тих (2003-08-17 23:32) [1]

Примерно так (для MSXML)

var pNode: IXMLDomNode;
pNode := pDoc.selectSingleNode("//list/company_name/status/employees/first_name ");
if (pNode <> nil) then
pNode.nodeValue := "...";

← →
Ihor Osov'yak (2003-08-18 01:43) [2]

2 Тих (17.08.03 23:32) [1]

Во первых, выражения xpath регистрозависыми..
то есть,

pDoc.selectSingleNode("//LIST/COMPANY_NAME...

Во вторых, в даном случае не pNode.nodeValue а pNode.text..

Зы - но учитывая "Примерно так" - то все нормально :-)

← →
Yakudza (2003-08-18 10:33) [3]

ругаеться на IXMLDomNode где такой тип есть ?
и selectSingleNode в XMLDocument1 нету.

← →
NAlexey (2003-08-18 12:08) [4]

чтобы не ругался можно сделать так:
var pDoc, pNode: Variant; begin { Получаешь pDoc. Например так: pDoc := CreateOleObject("Msxml2.DOMDocument.4.0"); pDoc.Load("НазваниеМоегоФайла"); } pNode := pDoc.selectSingleNode("//list/company_name/status/employees/first_name "); if TVarData(pNode).VDispatch <> nil then pNode.Text := "..."; end;

← →
Yakudza (2003-08-20 14:47) [5]

2NAlexey
Так тоже глючит.

А вот так не глючит

var
Doc : IXMLDOMDocument;
begin
Doc := CreateOleObject("Microsoft.XMLDOM") as IXMLDomDocument;
Doc.load("c:\test.xml");
end;

← →
Yakudza (2003-08-20 14:54) [6]

Кстати, а чего ругаеться на эту строчку Invalid class string ?
pDoc := CreateOleObject("Msxml2.DOMDocument.4.0");

← →
Yakudza (2003-08-20 14:59) [7]

Пардон, нету у меня этой библиотеки :))

TXMLDocument Найти похожие ветки