1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <msxmldom.hpp>
#include <XMLDoc.hpp>
#include <xmldom.hpp>
#include <XMLIntf.hpp>
//---------------------------------------------------------------------------
class
TForm1 :
public
TForm
{
__published:
// IDE-managed Components
TButton *btn_1;
TButton *btn_2;
TXMLDocument *XMLDocument1;
void
__fastcall FormCreate(TObject *Sender);
void
__fastcall btn_1Click(TObject *Sender);
void
__fastcall btn_2Click(TObject *Sender);
private
:
// User declarations
public
:
// User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern
PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void
__fastcall TForm1::FormCreate(TObject *Sender)
{
XMLDocument1->LoadFromFile(
"D:\\code\\B_C_B\\XMLDocument\\test.xml"
);
}
//---------------------------------------------------------------------------
void
__fastcall TForm1::btn_1Click(TObject *Sender)
{
_di_IXMLNode node;
bool
b;
/* 我们从例子中拿出一个节点, 譬如根节点下的第一个节点:
<人员 职务="科长" 备注="正局级">
<姓名>张三</姓名>
<性别>男</性别>
<年龄>34</年龄>
</人员>
*/
//先获取这个结点
node=XMLDocument1->DocumentElement->ChildNodes->Nodes[0];
//这个结点当然包含有子结点,并且有3个子结点
b=node->HasChildNodes;
ShowMessage(BoolToStr(b));
//返回-1也就是true
ShowMessage(IntToStr(node->ChildNodes->Count));
//3
ShowMessage(node->NodeName);
//人员
/*再看其中的姓名结点
<姓名>张三</姓名>
*/
node=XMLDocument1->DocumentElement->ChildNodes->Nodes[0]->ChildNodes->Nodes[0];
b=node->HasChildNodes;
ShowMessage(BoolToStr(b));
//-1也就是true
ShowMessage(IntToStr(node->ChildNodes->Count));
//1
ShowMessage(node->NodeName);
//姓名
//它里面只有文本"张三", 没有标签, 这时的节点才有 Text 属性
ShowMessage(node->Text);
//攻取张三这个文本结点
node=XMLDocument1->DocumentElement->ChildNodes->Nodes[0]->ChildNodes->Nodes[0]->ChildNodes->Nodes[0];
b=node->HasChildNodes;
ShowMessage(BoolToStr(b));
//0也就是false,没有子节点了
ShowMessage(IntToStr(node->ChildNodes->Count));
//0
ShowMessage(node->NodeName);
//#text说明它是一个文本结点
ShowMessage(node->NodeValue);
//张三,我们也可以取出他的值
//文本结点的nodevalue属性等同于它上层节点的text属性
ShowMessage(node->ParentNode->Text);
}
//---------------------------------------------------------------------------
void
__fastcall TForm1::btn_2Click(TObject *Sender)
{
//isTextElement。判断是否具有text属性
_di_IXMLNode node;
bool
b;
/* 我们从例子中拿出一个节点, 譬如根节点下的第一个节点:
<人员 职务="科长" 备注="正局级">
<姓名>张三</姓名>
<性别>男</性别>
<年龄>34</年龄>
</人员>
*/
node=XMLDocument1->DocumentElement->ChildNodes->Nodes[0];
//这个结点肯定没有text属性
b=node->IsTextElement;
ShowMessage(BoolToStr(b));
//0.也就是没有text属性
ShowMessage(node->NodeName);
//人员
//姓名结点
node=XMLDocument1->DocumentElement->ChildNodes->Nodes[0]->ChildNodes->Nodes[0];
//姓名结点有text属性
b=node->IsTextElement;
ShowMessage(BoolToStr(b));
//-1.也就是有text属性
ShowMessage(node->NodeName);
//姓名
//张三结点
node=XMLDocument1->DocumentElement->ChildNodes->Nodes[0]->ChildNodes->Nodes[0]->ChildNodes->Nodes[0];
//文本结点没有Text属性
b=node->IsTextElement;
ShowMessage(BoolToStr(b));
//0.也就是没有text属性
ShowMessage(node->NodeName);
//#text
}
//---------------------------------------------------------------------------
|