DELPHI2010环境下TXMLDocument丢失编码问题

[Mr Dang]

function getCheckLotStatusXML(Str_No,Str_NoType,Str_Oper,Str_LineId:string):string;
var
    XML_Doc:TXMLDocument;
    XML_RootNode:IXMLNode;
begin
    XML_Doc:=TXMLDocument.Create(Application);
    try
        XML_Doc.XML.Add('<?xml version="1.0" encoding="gb2312" standalone="yes"?>');
        XML_Doc.XML.Add('<checkLotStatus>');
        XML_Doc.XML.Add('</checkLotStatus>');
        XML_Doc.Active:=True;
        XML_RootNode:=XML_Doc.DocumentElement;
        XML_RootNode.AddChild('factory').Text:='W';
        XML_RootNode.AddChild('userid').Text:='ADMIN';
        XML_RootNode.AddChild('lineId').Text:=Str_LineId;
        XML_RootNode.AddChild('no').Text:=Str_No;
        XML_RootNode.AddChild('noType').Text:=Str_NoType;
        XML_RootNode.AddChild('oper').Text:=Str_Oper;
        Result:=XML_Doc.XML.Text;
    finally
        XML_Doc.Free;
    end;
end;

这段代码在DELPHI7下运行正常 ，DELPHI2010下 ，得到的是

'<?xml version="1.0" standalone="yes"?>'#$D#$A'<checkLotStatus>'#$D#$A#9'<factory>WASION</factory><userid>ADMIN</userid><lineId>12345</lineId><no>1</no><noType>C</noType><oper>DX2400</oper></checkLotStatus>'#$D#$A

丢失了 encoding="GB2312" ,帮忙看看 ~~

[lyhoo163]

这是Delphi TXMLDocument 的一个Bug ，在2010版，不能保存encoding值。 解决办法：使用TNativeXml，或是生成XML后，通过修改XML，加入encoding值。