| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2013/8/9 5:04:04 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | memo显示不了韩文 系统已经装了韩文语言包了，记事本直接打开能显示 用 TStringStream 直接载入的文件，TStringStream 的编码设置成了韩文 可是还是乱码，直接复制到 memo里面却能正确显示 求帮助 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/8/9 7:58:48 | ||||
| 1楼： | 设置字体为新宋体一类的就行了啊
博客 - http://offeu.com 脚本模型 - http://webpascal.com 需要短信接口的请联系我，可发行业与营销内容。 |
|||||
| 作者： |
|
2013/8/9 10:51:43 | ||||
| 2楼： | 我在delphi2010下载入繁体(Big5)编码文件(非Unicode/UTF8字符集文本)可以用以下代码： Memo1.Lines.LoadFromFile('D:\temp\繁体网页_2.htm', TEncoding.GetEncoding(950)); 你可以用这个方法试试，只要将950换成韩文的代码页(Code Page=949)应该就可以了。如果还不行，就设一下Memo.Font.Charset，将它设成HANGEUL_CHARSET/JOHAB_CHARSET试一下。 ---------------------------------------------- -广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了…… |
|||||
| 作者： |
|
2013/8/9 11:30:22 | ||||
| 3楼： | 谢谢楼上两位大哥，都试过了不过还是不行 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/8/9 11:34:27 | ||||
| 4楼： | 截图上不去，不知道是不是我是win7系统的原因还是XE2的原因 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/8/9 11:52:37 | ||||
| 5楼： | 大概是智商的原因。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2013/8/9 12:01:42 | ||||
| 6楼： | 楼主你放出你的韩文.txt 文件吧, 这样大家好帮忙 ---------------------------------------------- QQ: 9717005 我的Blog：http://www.cnblogs.com/anydelphi/ |
|||||
| 作者： |
|
2013/8/9 12:53:48 | ||||
| 7楼： | 内容是这样的： 韩语: 载入后： 锘块煩璇?靹滌毟韸闺硠鞁? 代码： begin if dlgOpen1.Execute then begin edtPath.Text := dlgOpen1.FileName; if not Loadfile(dlgOpen1.FileName) then //这只检查了文件存在 begin Application.MessageBox('打开文件失败！','提示',MB_OK + MB_ICONERROR); exit; end; if Assigned(_fmemstring) then FreeAndNil(_fmemstring); _fmemstring := TStringStream.Create('', TEncoding.Default); _fmemstring.LoadFromFile(dlgOpen1.FileName); mmo1.Lines.Text := _fmemstring.DataString; // mmo1.Lines.LoadFromFile(dlgOpen1.FileName, TEncoding.GetEncoding(949)); // mmo1.Lines.LoadFromFile(dlgOpen1.FileName); end; end; memo的font 新宋体,8,[],JOHAB_CHARSET,clWindowText delphi版本是 Embarcadero Delphi XE2 Version 16.0.4504.48759
- |
|||||
| 作者： |
|
2013/8/9 12:55:34 | ||||
| 8楼： | 盒子不显示韩语，韩语放到附件了 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/8/9 13:19:37 | ||||
| 9楼： | 特意用XE2做了个演示，代码及效果如下图：
博客 - http://offeu.com 脚本模型 - http://webpascal.com 需要短信接口的请联系我，可发行业与营销内容。 |
|||||
| 作者： |
|
2013/8/9 13:21:19 | ||||
| 10楼： | 还是那句话，设置窗口字体为“新宋体”即可显示，上面的地址是你发的附件文件的地址。。。 靠，盒子的附件竟然能直接被访问到，蛋疼啊 ---------------------------------------------- 博客 - http://offeu.com 脚本模型 - http://webpascal.com 需要短信接口的请联系我，可发行业与营销内容。 |
|||||
| 作者： |
|
2013/8/9 13:52:47 | ||||
| 11楼： | 唉，楼主，你这个文件是UTF8的格式，你用 Memo1.Lines.LoadFromFile('D:\Temp\wangweic_201389125418.txt', TEncoding.UTF8); 就可以了(和楼上类似)，晕，我还以为是用韩文本地编码的呢。 刚刚用UltraEdit看了下，这个文件是带BOM头的，所以用 Memo1.Lines.LoadFromFile('wangweic_201389125418.txt'); 也应该可以的。 对了，我还特意开发虚拟机用XE2试过了，没问题。 ---------------------------------------------- -广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了…… |
|||||
| 作者： |
|
2013/8/9 13:54:22 | ||||
| 11楼： | 感谢大家的帮助， 修改那个 GetEncoding(65001) 后能够正确显示韩文了 一直尝试 韩文的编码，没想到反而不行 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/8/9 13:55:48 | ||||
| 12楼： | 谢谢 大家 ---------------------------------------------- - |
|||||
| 作者： |
|
2013/8/9 18:31:54 | ||||
| 13楼： | 一看 TStringStream.Create('', TEncoding.Default); 就知道楼主没弄清楚文件的编码. ---------------------------------------------- QQ: 9717005 我的Blog：http://www.cnblogs.com/anydelphi/ |
|||||
| 信息 |
| 登陆以后才能回复 |
