【结】有办法把TMemo的内容导出编码格式为UTF-8的html文件吗？

浩繁

我想把TMemo的内容导出为本地的html文件，由于涉及到其他访问，
此文件的编码格式必须为UTF-8，所以想问各位高手，是否有办法
把TMemo的内容导出为UTF-8的html文件？

shangxy

procedure TMainForm.Button2Click(Sender: TObject);
var
   XMLDocument1:TXMLDocument;
begin
  memo1.Clear;
  memo1.Lines.Add('<?xml version="1.0" encoding="GBK"?>');
  memo1.Lines.Add('<TransResponse>我是中国人</TransResponse>');
  XMLDocument1:=TXMLDocument.Create(Self);
  with XMLDocument1 do
  begin
    XML.Add(Memo1.Text);
    Active := True;
    Encoding := 'UTF-8';

    //DocumentElement.AddChild('Version',0).NodeValue := '1.0';   //整段代码编译通过，运行到这一句就报错
    SaveToFile('E:\test1.xml');
  end;
end;

这样行么？

atiger

写参考 http://bbs.justep.com/showthread ... d=143500#post143500

浩繁

TXMLDocument 还是不行啊，把HTML标签写进去后，运行到Active := True;这里，就报错，格式不对，如果注销这行//Active := True;  或改为Active := False;则运行到Encoding := 'UTF-8'; 处，就报错，无法编码。

shangxy

memo1.Lines.Add('<?xml version="1.0" encoding="GBK"?>');
如果xml文件中有中文，那么memo中的encoding必须是上面这样，
然后在调用Encoding := 'UTF-8';去修改

浩繁

加了<?xml version="1.0" encoding="UTF-8"?>后，文件第一次打开，都是乱麻的，用文本文件打开后，把<?xml version="1.0" encoding="UTF-8"?> 去掉，然后保存，勉强可以显示。
有没有其他方法没有呢？

shangxy

Memo中的头应该是:<?xml version="1.0" encoding="GBK"?>
不是UTF-8

浩繁

没错，Memo中的头是:<?xml version="1.0" encoding="GBK"?>，可是经过如下处理后，
  Encoding := 'UTF-8';
    SaveToFile('E:\test1.html');
保存在本地的html文件的头部就会变换为<?xml version="1.0" encoding="UTF-8"?>，这个好像
也不是HTML的标签。

shangxy

如果是乱码那么在memo中加一句看看：
<meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>

浩繁

这样将就可行，但还差一步，就是文件内容里的JavaScript脚本的>或<全部被转义符号替换了，
结果本来是 if (JWD.indexOf('','') > 0)'); ，却变成了 if (JWD.indexOf('','') &gt; 0)'); 脚本自然报错。