急吖.急吖..数据交换问题..XML高手进来吖.! ( 积分: 20 )

  • 主题发起人 主题发起人 Jj1985
  • 开始时间 开始时间
J

Jj1985

Unregistered / Unconfirmed
GUEST, unregistred user!
做一数据交换.!单机版到网络版.!

导出数据的代码如下:
使用的是MSXML_TLB..!
try
doc := CreateOleObject('Microsoft.XMLDOM') as IXMLDomDocument;
root := doc.createElement('data');
doc.appendchild(root);
root1:= doc.createElement('tables');
root.appendchild(root1);
........
导出成功.格式如下.
<data>
<tables>
<table name="table1"


导入数据代码如下:
使用的是NativeXml
try
DataList:=TStringList.Create;
NameList:=TStringList.Create;
doc := TNativeXml.Create;
doc.LoadFromFile(Edit1.Text);
ADOTable1.Connection:=conn;
ANode := doc.Root.NodeByName('tables');
if not assigned(ANode) then exit;
AList := TList.Create;
RList := TList.Create;
TbList:= TList.Create;
ANode.NodesByName('table',TbList);
skingauge_1.MaxValue:=tblist.Count;
for n:= 0 to TbList.Count - 1 do
导入成功..

可是问题却出现了.!
导入时英文和数据正常..汉字却出现乱码.
现在我想在导出数据是在前面加入
<?xml version="1.0" encoding="GBK"?>
我该怎么做.或者你们有更好的办法..先谢了.!
 
???????[:)][:)]
 
我操,这个世界没有天理了~~~~~ MD,老虎不发威,当我是病猫, 先骂人的倒有理了 我可是从来不主动得罪人的 谁要是欺负人,那就不客气了 明天把这个工具开个源,叫大家都来用用 请问你们有什么拿的出手的?自己写的东西? 说出来叫大爷我长长见识? 别不会是一群耍嘴皮子的废物吧?
 
后退
顶部