XML的问题 **

Mephist

我要读写如下格式的XML文件，该如何实现？？麻烦帮我写个demo，谢谢！

<?xml version="1.0" encoding="UTF-8" ?>
<Fields>
        <Config status = "0-盘亏;1-正常;2-盘损;3-盘赢"></Config>
        <Field number = "139101037700007" status = "0">资产名称:条码打印机;使用部门:综合部;使用者:李蒙;购买日期:2006-01-12;</Field>
        <Field number = "123123112444444" status = "0">资产名称:电脑;使用部门:综合部;使用者:李蒙;购买日期:2006-01-12;</Field>
        <Field number = "" status = "0"></Field>
        <Field number = "" status = "0"></Field>
        <Field number = "" status = "0"></Field>
        <Field number = "" status = "0"></Field>
</Fields>

lisb

楼主可以参考 http://bbs.justep.com/forum.php? ... ght=%B6%C1%D0%B4xml

Mephist

唉，这个早看了，就是没看明白才问的，好像达不到我的要求
您帮忙写一下吧

MartinW

Mephist您好：您看下面这种格式的能不能满足您的要求？？
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
- <DATAPACKET Version="2.0">
- <METADATA>
- <FIELDS>
  <FIELD attrname="FGUID" fieldtype="string" SUBTYPE="FixedChar" WIDTH="32" />
  <FIELD attrname="FID" fieldtype="string" SUBTYPE="FixedChar" WIDTH="32" />
  <FIELD attrname="FNAME" fieldtype="string" SUBTYPE="FixedChar" WIDTH="50" />
  </FIELDS>
- <ARAMS LCID="0">
  <ARAM Name="NO_RESET_CALL" Value="TRUE" Type="boolean" />
  </PARAMS>
  </METADATA>
- <ROWDATA>
  <ROW FGUID="075D457580C1462DBE84398822B8CD95" FID="200603200003" FNAME="文档管理计划"/>
  <ROW FGUID="3BDFA490CC764E3FB73F7734E66E52DB" FID="200603200009" FNAME="文档管理脚本.sql"/>
  <ROW FGUID="3DF2A2ED9D5F413CBA440406C376C03B" FID="200603200004" FNAME="文档管理修改记录"/>
  </ROWDATA>
</DATAPACKET>

MartinW

应用TQuery 或TClientDataset的
SaveToFile及LoadFromFile方法实现
格式参数：TDataPacketFormat.dfXMLUTF8

Mephist

谢谢。。
不过我的一定要求按照1楼的格式的，您这样能再做定制么？？

MartinW

楼主您好：
　　现在这个版本只能实现这种方式，不能再做定制，下一个版本会支持，如果您急用，可以找一个第三方的包实现

MartinW

楼主您好：
　　另外，您也可以应用Delphi的TXMLDocument来实现，生成一个BPL包，附件是我给您写的一个实例，您可以参考一下

Mephist

您这个我看了，格式符合我们的要求，有3个问题：
1. Xml文件的格式必须是 UTF-8 的 ；
2. 我们这边没有非常熟悉delphi的，您能不能帮我做成需要的包，提供读写的接口，能直接在平台上调用。
3. 我不清楚您那个xml文件是如何生成的，但是我希望能够通过传路径和文件名的方式来建立该xml文件

MartinW

UTF-8只需将文件头部份改成<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
那个文件是先手工写的，也可以通过Delphi的TXMLDocument来创建
您所需要的包还是得您自已完成，您可以在网上找到相关的资料