ADODataSet导出xml为什么中文字符总被保存为乱码，怎么解决，需要修改些什么？

Question

ADODataSet导出xml为什么中文字符总被保存为乱码，怎么解决，需要修改些什么？

Answer 1

是不是要修改导出时候xml的字符集。我现在没有时间去看"怎么导出xml"那里的代码，麻烦啦。

Answer 2

不管数据库的问题 问题在于XML文件，把XML文件的抬头改成 
<?xml version="1.0" encoding="GBK"?>看看 
看看你是不是忘了解码的语言设定。
希望对你有帮助

Answer 3

xml是通过adoDataSet的SaveToFile函数产生的，我改不了xml的头。

Answer 4

sql:='select * from dept order by deptid';
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(sql);
AdoQuery1.Open;
Adoquery1.SaveToFile('c:\1.xml');
我试过没有问题呀！

Answer 5

procedure Setencoding;
  var
    sl:Tstringlist;
    I:integer;
  begin
    if fileexists('c:\1.xml') then
    begin
      sl := Tstringlist.create;
      try
        sl.LoadFromFile('c:\1.xml');
        sl.Insert(0,'<?xml version="1.0" encoding="GB2312"?>');
        sl.SaveToFile('c:\1.xml');
      finally
        sl.free;
      end;
    end;
  end;

Answer 6

哦?楼上的大哥,那adoDataSet.SaveToFile()怎么办?
我是要把adoDataSet的内容导到文件里.
不要说要自己重新写个SaveToFile函数哈.