<?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?能不能高手帮忙写个代码我看看
解决方案 »
- 求模???????????????????????????????????
- 恭喜Delphi版改版成功!希望重现繁荣!
- 由于我不小心忘了,日期-日期=天数,我需要天数为整型,请问如何解决
- 海淀书城外面有打折书(促销到5号),我花了20买了一本《D5开发人员指南》高兴死了,可惜没有光盘:(
- 还是ADOCONNECTION的状态问题!
- 学习Delphi的困惑
- 非常紧急,请教各位高手,如何向数据库中写入>1M的数据
- 我想实现修改dbgrid中的内容,其中有几个字段的值不能修改,如何实现?
- 大家好,这个问题好几天了都没解决,小弟分不多,能不能帮帮我
- 我该怎么另sql语句对数据库的改动立即生效?
- 请教自绘控件中的小问题?
- 谁有用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;