<?xml version="1.0" encoding="UTF-8" ?>
- <娱乐服务场所治安管理信息系统数据交换格式>
- <数据包头描述>
<开始时间>2010-05-06 09:30:53</开始时间>
<发送单位>320401123456</发送单位>
</数据包头描述>
- <从业人员信息>
- <从业人员信息记录>
<娱乐服务场所备案编号>xxxx</娱乐服务场所备案编号>
<从业人员编号>xxxx</从业人员编号>
<从业人员类别代码>xxxx</从业人员类别代码>
<姓名>xxxx</姓名>
<别名>xxxx</别名>
.....
<注销日期>xxxx</注销日期>
</从业人员信息记录>
- <从业人员信息记录>
<娱乐服务场所备案编号>xxxx</娱乐服务场所备案编号>
<从业人员编号>xxxx</从业人员编号>
<从业人员类别代码>xxxx</从业人员类别代码>
<姓名>xxxx</姓名>
<别名>xxxx</别名>
.....
<注销日期>xxxx</注销日期>
</从业人员信息记录>
....
</从业人员信息>
</娱乐服务场所治安管理信息系统数据交换格式>请问这个是不是要用两个XMLDocument1?能不能高手帮忙写个代码我看看
- <娱乐服务场所治安管理信息系统数据交换格式>
- <数据包头描述>
<开始时间>2010-05-06 09:30:53</开始时间>
<发送单位>320401123456</发送单位>
</数据包头描述>
- <从业人员信息>
- <从业人员信息记录>
<娱乐服务场所备案编号>xxxx</娱乐服务场所备案编号>
<从业人员编号>xxxx</从业人员编号>
<从业人员类别代码>xxxx</从业人员类别代码>
<姓名>xxxx</姓名>
<别名>xxxx</别名>
.....
<注销日期>xxxx</注销日期>
</从业人员信息记录>
- <从业人员信息记录>
<娱乐服务场所备案编号>xxxx</娱乐服务场所备案编号>
<从业人员编号>xxxx</从业人员编号>
<从业人员类别代码>xxxx</从业人员类别代码>
<姓名>xxxx</姓名>
<别名>xxxx</别名>
.....
<注销日期>xxxx</注销日期>
</从业人员信息记录>
....
</从业人员信息>
</娱乐服务场所治安管理信息系统数据交换格式>请问这个是不是要用两个XMLDocument1?能不能高手帮忙写个代码我看看
解决方案 »
- 一个和DBGridEh控件相关的问题
- 如何将richedit里面排好版的文字信息保存为位图文件?参与有分!!!
- delphi中如何实现QQ中的截图并实现拉伸放大移动的功能
- realplayer播放器在看电影时如何实现双击全屏。。。急!
- 关于商业BI系统的请教,高手请进
- 用DBgrid不能正常浏览数据库表格里的数据是什么原因?
- 怎样才能将程序从内存中清空!
- forgot的散分帖:200分,请教一个英语问题,请进来看看!
- Delphi的chartFX能够画股票的K线图吗?如果能,希望给点文档!谢谢!
- 怎样让query中的记录与Table中的记录同步?
- 请教自绘控件中的小问题?
- 谁有用DELPHI如何开发一个邮件收发程序的源码,类似foxmail,可以编辑网页的
{
创建一个有结构的空XML文档
}
procedure TForm1.Button1Click(Sender: TObject);
var
Xml: TXmlDocument;
RootNode, Node1, Node2: IXmlNode;
begin
Xml := TXmlDocument.Create(nil);
try
Xml.Active := True;
Xml.Version := '1.0';
Xml.Encoding := 'GB2312';
RootNode := Xml.CreateNode('Students');
Xml.DocumentElement := RootNode;
Node1 := Xml.CreateNode('Student');
RootNode.ChildNodes.Add(Node1);
Node2 := Xml.CreateNode('Name');
Node1.ChildNodes.Add(Node2);
Node2 := Xml.CreateNode('Sex');
Node1.ChildNodes.Add(Node2);
Xml.SaveToFile('test.xml');
Xml.Active := False;
ShowMessage('创建Xml文件成功');
finally
Xml.Free;
end;
end;{
打开XML文档
}
procedure TForm1.Button2Click(Sender: TObject);
var
Xml: TXmlDocument;
RootNode: IXmlNode;
a, b: String;
begin
Xml := TXmlDocument.Create(Application);
try
Xml.LoadFromFile('test.xml');
Xml.Active := True;
RootNode := Xml.DocumentElement.ChildNodes['Student'];
if not VarIsNull(RootNode.ChildNodes['Name'].NodeValue) then
a := RootNode.ChildNodes['Name'].NodeValue
else a := '';
if not VarIsNull(RootNode.ChildNodes['Sex'].NodeValue) then
b := RootNode.ChildNodes['Sex'].NodeValue
else b := '';
Edit1.Text := a;
Edit2.Text := b;
Xml.Active := False;
finally
Xml.Free;
end;
end;
{
写入XML文档
}
procedure TForm1.Button3Click(Sender: TObject);
var
Xml: TXmlDocument;
RootNode: IXmlNode;
begin
Xml := TXmlDocument.Create(Application);
try
Xml.LoadFromFile('test.xml');
Xml.Active := True;
RootNode := Xml.DocumentElement.ChildNodes['Student'];
RootNode.ChildNodes['Name'].NodeValue := Edit3.Text;
RootNode.ChildNodes['Sex'].NodeValue := Edit4.Text;
Xml.SaveToFile('test.xml');
Xml.Active := False;
finally
Xml.Free;
end;
end;
一个TXMLDocument对象即可
XMLDoc.Active := True;