可用分押宝游戏火热进行中...	专题改版：Java Web 专题

fastreport里面格式导出成rtf文件中文乱码的问题?

楼主bill_chen（阿彪）2003-07-03 23:11:12 在 Delphi / VCL组件开发及应用提问

使用fastreport发现导出成其他格式都没有问题,但是rtf文件的时候就不能显示中文,求告! 问题点数：40、回复次数：12Top

1 楼jaunmai（冰河）回复于 2003-07-04 09:30:54 得分 0

關注Top

2 楼sweethzp（黄纸片）回复于 2003-07-08 11:48:51 得分 0

参考专题：http://www.csdn.net/subject/137/Top

3 楼fastreport（我是报表）回复于 2003-07-08 14:04:34 得分 20

sweethzp(黄纸片)给我的代码：

修改FR_E_RTF.pas文件：
procedure TfrRTFExport.OnBeginDoc;
//s := '{\rtf1\ansi' + #13#10 + '\margl600\margr600\margt600\margb600' + #13#10;
//解决中文乱码问题，by hzp 2002-11-12
s := '{\rtf1\ansi\deflang1033\deflangfe2052{\f0\fnil}' + #13#10 +
'\margl600\margr600\margt600\margb600' + #13#10;

procedure TfrRTFExport.OnEndPage;
if NewPage and PageBreaks then
begin
//s := '\page' + #13#10;
//增加分页控制符, pagebb: Break page before the paragraph, add by hzp, 2002-11-12
s := '\par\pagebb' + #13#10;
TempStream.Write(s[1], Length(s));
end;Top

4 楼bill_chen（阿彪）回复于 2003-07-08 14:43:53 得分 0

http://www.csdn.net/subject/137/
我也知道，但是连接好多都不能用了，斑竹的事情了！
先试一试罗，先谢谢fastreportTop

5 楼sweethzp（黄纸片）回复于 2003-07-08 16:26:04 得分 0

专题连接好多已经不能够使用，因为很多文档是去年的，已经找不到这些帖子了
身为本版班竹也无能为力，要系统管理员看看了Top

6 楼tccb（）回复于 2003-07-08 16:47:22 得分 0

给fastreport技术支持写信。。。Top

7 楼tccb（）回复于 2003-07-08 16:52:10 得分 0

给fastreport技术支持写信。。。Top

8 楼bill_chen（阿彪）回复于 2003-07-08 20:41:07 得分 0

照着改了FR_E_RTF.pas文件,没有用啊!!!Top

9 楼bill_chen（阿彪）回复于 2003-07-09 12:32:47 得分 0

“我是报表”，你试过了可以吗？我怎么不行，运行还出错了！找不到文件Top

10 楼sweethzp（黄纸片）回复于 2003-07-09 15:52:17 得分 20

放心,我给的都是测试过的,都好几个版本的产品了.不过是2.47版本的
rtf文件中文乱码问题:
在OnBeginDoc中找到'{\rtf1\ansi' ，增加中文定义'deflang1033\deflangfe2052{\f0\fnil}':
'{\rtf1\ansi\deflang1033\deflangfe2052{\f0\fnil}'

rtf文件中分页问题
在OnEndPage的if NewPage and PageBreaks then处找到'\page',增加分页符'pagebb':
'\par\pagebb'

Top

11 楼sweethzp（黄纸片）回复于 2003-07-09 15:54:13 得分 0

12 楼sweethzp（黄纸片）回复于 2003-07-09 15:56:09 得分 0

如果有精力可以到这里看看rtf格式定义《Rich Text Format (RTF) Version 1.5 Specification》：
http://www.biblioscape.com/index.htmlTop

13 楼bill_chen（阿彪）回复于 2003-07-09 18:17:26 得分 0

不好意思,忘了说,我用的是2.5,所以就不行了.不知道您还能帮上忙不?已经麻烦你了,谢谢,我尽快结贴吧Top