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

shangxy · 发表于 2010-4-30 13:51:57

那如果直接调用memo.lines.savetofile
会有什么问题？

浩繁 · 发表于 2010-4-30 14:12:04

如果直接保存，但文件的格式就是ANSI编码了。这样处理，文件内容里的控制标签就不起作用。

shangxy · 发表于 2010-4-30 15:38:34

procedure TMainForm.Button4Click(Sender: TObject);
var
   t:tstringlist;
begin
   t:=tstringlist.Create;
   t.add(Business.System.System_.ansitoutf8(memo1.Text));
   //ShowMessage(t.Text);
   t.SaveToFile('e:\test.html');
   t.free;
end;

浩繁 · 发表于 2010-5-4 18:22:42

不好意思，今天有点事。
这样保存勉强可行，因为只是把文件内容改为UTF-8而已，而文件头的信息仍然是ANSI，
所以用文本文件打开的都是乱码哦。

shangxy · 发表于 2010-5-5 10:36:22

我怎么没有试验出来呢？
你吧你的memo里面的内容和导出后的文件发给我看看

浩繁 · 发表于 2010-5-5 11:26:02

原始内容
<?xml version="1.0" encoding="GBK"?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
  <title>基建线路</title>
</head>
<body>
<div id="container">
  <div id="header" style="display:none"></div>
  <div id="menuone" style="padding-top:5px">
<input id="btnZoomIn" type="button" value="放大" onclick="ZoomIn();" />
<input id="btnZoomOut" type="button" value="缩小" onclick="ZoomOut();" />
<input id="btnFullMap" type="button" value="全图" onclick="ShowFullMap();" />
<input id="btnPriorV" type="button" value="后退" onclick="

riorView();" />
<input id="btnNextV" type="button" value="前进" onclick="NextView();" />
<input id="btnMeasureD" type="button" value="测距" onclick="MeasureDist();" />
<input id="btnMeasureA" type="button" value="测面" onclick="MeasureArea();" />
<input id="btnClear" type="button" value="清除" onclick="ClearOp();" />
<font color="white">　杆塔编号:</font>
<select id="GtList">
   <option value="106.678,26.7219">1</option>
   <option value="106.68,26.7229">2</option>
</select>
<input id="btnShowAcrsL" type="button" value="交叉查询" onclick="ShowAccrossLine();" />
<br>
<span id="distance" style="color:white; padding-left:10px"></span>
  </div>
  <div id="mainContent">
<div id="sidebar" style="display:true"></div>
<div id="content" class="content tundra"></div>
  </div>
</div>
</body>
</html>

浩繁 · 发表于 2010-5-5 11:27:35

经过UTF-8处理字符串后，导出来的内容如下
<?xml version="1.0" encoding="GBK"?>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=utf-8"/>
  <title>鍩哄缓绾胯矾</title>
</head>
<body>
<div id="container">
  <div id="header" style="display:none"></div>
  <div id="menuone" style="padding-top:5px">
<input id="btnZoomIn" type="button" value="鏀惧ぇ" onclick="ZoomIn();" />
<input id="btnZoomOut" type="button" value="缂╁皬" onclick="ZoomOut();" />
<input id="btnFullMap" type="button" value="鍏ㄥ浘" onclick="ShowFullMap();" />
<input id="btnPriorV" type="button" value="鍚庨€€" onclick="

riorView();" />
<input id="btnNextV" type="button" value="鍓嶈繘" onclick="NextView();" />
<input id="btnMeasureD" type="button" value="娴嬭窛" onclick="MeasureDist();" />
<input id="btnMeasureA" type="button" value="娴嬮潰" onclick="MeasureArea();" />
<input id="btnClear" type="button" value="娓呴櫎" onclick="ClearOp();" />
<font color="white">銆€鏉嗗缂栧彿:</font>
<select id="GtList">
   <option value="106.678,26.7219">1</option>
   <option value="106.68,26.7229">2</option>
</select>
<input id="btnShowAcrsL" type="button" value="浜ゅ弶鏌ヨ" onclick="ShowAccrossLine();" />
<br>
<span id="distance" style="color:white; padding-left:10px"></span>
  </div>
  <div id="mainContent">
<div id="sidebar" style="display:true"></div>
<div id="content" class="content tundra"></div>
  </div>
</div>
</body>
</html>

浩繁 · 发表于 2010-5-5 11:28:52

导出后的文件还是可以正常以HTML格式浏览。

shangxy · 发表于 2010-5-5 11:56:29

用记事本打开是正常的啊

浩繁 · 发表于 2010-5-5 11:58:33

上面的乱麻，就是用记事本打开呀。
不过还好，通过浏览器，可以正常浏览。

		自动登录	找回密码
密码			立即注册