首 页 网络编程
网页制作 图形图象 操作系统 冲浪宝典
软件教学 认证考试

网络安全 网络办公 行业资讯 评测对比
您当前位置：站长天空 -> 认证考试-> ORACLE认证
让fastreport3.x支持中文pdf的输出_delphi教程
作者：网友供稿 点击：0
推荐
西部数码-全国虚拟主机10强！20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!可在线rar解压,自动数据恢复设置虚拟目录等.免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金
站内搜索
文章页数：[1] 
 

转自大富翁论坛，至于如何重新编译可以参考《Fastreport 3.07 专业的安装及中文化》

Q:FastReport 3.x导出PDF乱码怎么解决?(中文乱码,英文没问题).
A:用下面这代码替换 frxPDFFile.pas 中原来的代码就可以了
已在enterprise（应该说是professional） 3.07下测试通过；
注意事项：字体内嵌的复选框不可选。

procedure TfrxPDFFont.SaveToStream(Stream: TStream);
var
  s: String;
  b: TBitmap;
  pm: ^OUTLINETEXTMETRIC;
  FontName: String;
  i: Cardinal;
  pfont: PChar;
  FirstChar, LastChar : Integer;
  MemStream: TMemoryStream;
  MemStream1: TMemoryStream;
  pwidths: PABC;
  Charset: TFontCharSet;

  // support DBCS font name encoding
  function EncodeFontName(AFontName: String): string;
  var
    s: string;
    Index, Len: Integer;
  begin
    // Add Begin by ijia 2004.12.20
    // 修正在简体系统下繁体字体名的问题
    // 只提供 MingLiU, PMingLiU --> 细明体, 新细明体的修正
    s:=UpperCase(AFontName);
    if Copy(s, 1, 7)=MINGLIU then
      AFontName:=细明体;
   
    if Copy(s, 1, 8)=PMINGLIU then
      AFontName:=新细明体;
    // Add end
    s := ;
    Len := Length(AFontName);
    Index := 0;
    while Index < Len do
    begin
      Index := Index + 1;
      if Byte(AFontName[Index]) > $7F then
        s := s + # + IntToHex(Byte(AFontName[Index]), 2)
      else
        s := s + AFontname[Index];
    end;
    Result := s;
  end;

begin
  inherited SaveToStream(Stream);
  b := TBitmap.Create;
  b.Canvas.Font.Assign(Font);
  b.Canvas.Font.Size := 750;
  i := GetOutlineTextMetrics(b.Canvas.Handle, 0, nil);
  GetMem(pm, i);
  GetOutlineTextMetrics(b.Canvas.Handle, i, pm);
  FirstChar := Ord(pm.otmTextMetrics.tmFirstChar);
  LastChar := Ord(pm.otmTextMetrics.tmLastChar);
  FontName := StringReplace(Font.Name, , #20, [rfReplaceAll]);
  s := ;
  if fsBold in Font.Style then
    s := s + Bold;
  if fsItalic in Font.Style then
    s := s + Italic;
  if s <> then
    FontName := FontName + , + s;

  Charset := pm.otmTextMetrics.tmCharSet;
  // Add by ijia 2004.12.20
  //if Charset = CHINESEBIG5_CHARSET then
  if Charset in [CHINESEBIG5_CHARSET, GB2312_CHARSET] then
    FontName := EncodeFontName(FontName)
  else
    FontName := Parent.PTool.PrepareString(FontName);

  Parent.XRefAdd(Stream);
  WriteLn(Stream, IntToStr(Index + Parent.FStartFonts) + 0 obj);
  WriteLn(Stream, <<);
  WriteLn(Stream, /Type /Font);
  WriteLn(Stream, /Name /F + IntToStr(Index - 1));
  WriteLn(Stream, /BaseFont / + EncodeFontName(FontName));

  // Add by ijia 2004.12.20
  //if Charset <> CHINESEBIG5_CHARSET then
  if not (Charset in [CHINESEBIG5_CHARSET, GB2312_CHARSET]) then
    WriteLn(Stream, /Subtype /TrueType)
  else
    WriteLn(Stream, /Subtype /Type0);

  case Charset of
    SYMBOL_CHARSET, ANSI_CHARSET:
      WriteLn(Stream, /Encoding /WinAnsiEncoding);

    RUSSIAN_CHARSET: {1251}
    begin
      WriteLn(Stream, /Encoding <</Type/Encoding /BaseEncoding /WinAnsiEncoding);
      Write(Stream, /Differences [129 /afii10052);
      Write(Stream, /quotesinglbase/afii10100/quotedblbase/ellipsis/dagger/daggerdbl/Euro/perthousand/afii10058/guilsinglleft/afii10059/afii10061/afii10060/afii10145/afii10099/quoteleft);
      Write(Stream, /quoteright/quotedblleft/quotedblright/bullet/endash/emdash/space/trademark/afii10106/guilsinglright/afii10107/afii10109/afii10108/afii10193/space/afii10062);
      Write(Stream, /afii10110/afii10057/currency/afii10050/brokenbar/section/afii10023/copyright/afii10053/guillemotleft/logicalnot/hyphen/registered/afii10056/degree/plusminus);
      Write(Stream, /afii10055/afii10103/afii10098/mu/paragraph/periodcentered/afii10071/afii61352/afii10101/guillemotright/afii10105/afii10054/afii10102/afii10104/afii10017/afii10018);
      Write(Stream, /afii10019/afii10020/afii10021/afii10022/afii10024/afii10025/afii10026/afii10027/afii10028/afii10029/afii10030/afii10031/afii10032/afii10033/afii10034/afii10035);
      Write(Stream, /afii10036/afii10037/afii10038/afii10039/afii10040/afii10041/afii10042/afii10043/afii10044/afii10045/afii10046/afii10047/afii10048/afii10049/afii10065/afii10066);
      Write(Stream, /afii10067/afii10068/afii10069/afii10070/afii10072/afii10073/afii10074/afii10075/afii10076/afii10077/afii10078/afii10079/afii10080/afii10081/afii10082/afii10083);
      WriteLn(Stream, /afii10084/afii10085/afii10086/afii10087/afii10088/afii10089/afii10090/afii10091/afii10092/afii10093/afii10094/afii10095/afii10096/afii10097/space]);
      WriteLn(Stream, >>);
    end;

    EASTEUROPE_CHARSET: {1250}
    begin
      WriteLn(Stream, /Encoding <</Type/Encoding /BaseEncoding /WinAnsiEncoding);
      Write(Stream, /Differences [128 /Euro 140 /Sacute /Tcaron /Zcaron /Zacute);
      Write(Stream, 156 /sacute /tcaron /zcaron /zacute 161 /caron /breve /Lslash);
      Write(Stream, 165 /Aogonek 170 /Scedilla 175 /Zdotaccent 178 /ogonek /lslash);
      Write(Stream, 185 /aogonek /scedilla 188 /Lcaron /hungarumlaut /lcaron /zdotaccent /Racute);
      Write(Stream, 195 /Abreve 197 /Lacute /Cacute 200 /Ccaron 202 /Eogonek 204 /Ecaron 207 /Dcaron /Dslash);
      Write(Stream, 209 /Nacute /Ncaron /Oacute 213 /Ohungarumlaut 216 /Rcaron /Uring 219 /Uhungarumlaut);
      Write(Stream, 222 /Tcedilla 224 /racute 227 /abreve 229 /lacute /cacute /ccedilla /ccaron);
      Write(Stream, 234 /eogonek 236 /ecaron 239 /dcaron /dmacron /nacute /ncaron 245 /ohungarumlaut);
      Write(Stream, 248 /rcaron /uring 251 /uhungarumlaut 254 /tcedilla /dotaccent]);
      WriteLn(Stream, >>);
    end;

    TURKISH_CHARSET,
    GREEK_CHARSET,
    HEBREW_CHARSET,
    ARABIC_CHARSET,
    VIETNAMESE_CHARSET:
    begin
      WriteLn(Stream, /Encoding <</Type/Encoding /BaseEncoding /WinAnsiEncoding);
      Write(Stream, /Differences [128 /Euro 142 /Zcaron 158 /zcaron]);
      WriteLn(Stream, >>);
    end;

    CHINESEBIG5_CHARSET: {136}
    begin
      WriteLn(Stream, /DescendantFonts [ + IntToStr(Index + 1 + Parent.FStartFonts) + 0 R]);
      WriteLn(Stream, /Encoding /ETenms-B5-H);
      WriteLn(Stream, >>);
      WriteLn(Stream, endobj);

      WriteLn(Stream, IntToStr(Index + 1 + Parent.FStartFonts) + 0 obj);
      WriteLn(Stream, <<);
      WriteLn(Stream, /Type /Font);
      WriteLn(Stream, /Subtype);
      WriteLn(Stream, /CIDFontType2);
      WriteLn(Stream, /BaseFont /+ EncodeFontName(FontName));
      WriteLn(Stream, /WinCharSet 136);
      WriteLn(Stream, /FontDescriptor + IntToStr(Index + 2 + Parent.FStartFonts) + 0 R);
      WriteLn(Stream, /CIDSystemInfo);
      WriteLn(Stream, <<);
      WriteLn(Stream, /Registry(Adobe));
      WriteLn(Stream, /Ordering(CNS1));
      WriteLn(Stream, /Supplement 0);
      WriteLn(Stream, >>);
      WriteLn(Stream, /DW 1000);
      WriteLn(Stream, /W [1 95 500]);
      WriteLn(Stream, >>);
      WriteLn(Stream, endobj);

      Parent.XRefAdd(Stream);

      WriteLn(Stream, IntToStr(Index + 2 + Parent.FStartFonts) + 0 obj);
      WriteLn(Stream, <<);
      WriteLn(Stream, /Type /FontDescriptor);
      if Parent.FEmbedded then
         WriteLn(Stream, /FontFile2 + IntToStr(Index + 4 + Parent.FStartFonts) + 0 R);
      WriteLn(Stream, /FontName / + EncodeFontName(FontName));
      WriteLn(Stream, /Flags 7);
      WriteLn(Stream, /FontBBox [ + IntToStr(pm^.otmrcFontBox.Left) + + IntToStr(pm^.otmrcFontBox.Bottom) + + IntToStr(pm^.otmrcFontBox.Right) + + IntToStr(pm^.otmrcFontBox.Top) + ]);
      WriteLn(Stream, /Style << /Panose <010502020300000000000000> >>);
      WriteLn(Stream, /Ascent + IntToStr(pm^.otmAscent));
      WriteLn(Stream, /Descent + IntToStr(pm^.otmDescent));
      WriteLn(Stream, /CapHeight + IntToStr(pm^.otmTextMetrics.tmHeight));
      WriteLn(Stream, /StemV + IntToStr(50 + Round(sqr(pm^.otmTextMetrics.tmWeight / 65))));
      WriteLn(Stream, /ItalicAngle + IntToStr(pm^.otmItalicAngle));
      WriteLn(Stream, >>);
      WriteLn(Stream, endobj);
    end;
   
    // Add begin by ijia 2004.12.20
    GB2312_CHARSET: {134}
    begin
      WriteLn(Stream, /DescendantFonts [ + IntToStr(Index + 1 + Parent.FStartFonts) + 0 R]);
      WriteLn(Stream, /Encoding /GB-EUC-H);
      WriteLn(Stream, >>);
      WriteLn(Stream, endobj);

      WriteLn(Stream, IntToStr(Index + 1 + Parent.FStartFonts) + 0 obj);
      WriteLn(Stream, <<);
      WriteLn(Stream, /Type /Font);
      WriteLn(Stream, /Subtype);
      WriteLn(Stream, /CIDFontType2);
      WriteLn(Stream, /BaseFont /+ EncodeFontName(FontName));
      WriteLn(Stream, /WinCharSet 134);
      WriteLn(Stream, /FontDescriptor + IntToStr(Index + 2 + Parent.FStartFonts) + 0 R);
      WriteLn(Stream, /CIDSystemInfo);
      WriteLn(Stream, <<);
      WriteLn(Stream, /Registry(Adobe));
      WriteLn(Stream, /Ordering(GB1));
      WriteLn(Stream, /Supplement 2);
      WriteLn(Stream, >>);
      WriteLn(Stream, /DW 1000);
      WriteLn(Stream, /W [ 1 95 500 814 939 500 7712 [ 500 ] 7716 [ 500 ] ]);
      WriteLn(Stream, >>);
      WriteLn(Stream, endobj);

      Parent.XRefAdd(Stream);

      WriteLn(Stream, IntToStr(Index + 2 + Parent.FStartFonts) + 0 obj);
      WriteLn(Stream, <<);
      WriteLn(Stream, /Type /FontDescriptor);
      if Parent.FEmbedded then
         WriteLn(Stream, /FontFile2 + IntToStr(Index + 4 + Parent.FStartFonts) + 0 R);
      WriteLn(Stream, /FontName / + EncodeFontName(FontName));
      WriteLn(Stream, /Flags 6);
     
      WriteLn(Stream, /FontBBox [-25 -254 1000 880]);
      WriteLn(Stream, /Style << /Panose <010502020400000000000000> >>);
      WriteLn(Stream, /Ascent 880);
      WriteLn(Stream, /Descent -120);
      WriteLn(Stream, /CapHeight 880);
      WriteLn(Stream, /StemV 93);
      WriteLn(Stream, /ItalicAngle 0);
      WriteLn(Stream, >>);
      WriteLn(Stream, endobj);
    end;
    // Add end
  end;

  // Add by ijia 2004.12.20
  //if Charset <> CHINESEBIG5_CHARSET then
  if not (Charset in [CHINESEBIG5_CHARSET, GB2312_CHARSET]) then
  begin
    WriteLn(Stream, /FontDescriptor + IntToStr(Index + 2 + Parent.FStartFonts) + 0 R);
    WriteLn(Stream, /FirstChar + IntToStr(FirstChar));
    WriteLn(Stream, /LastChar + IntToStr(LastChar));
    GetMem(pwidths, SizeOf(ABCArray));
    Write(Stream, /Widths [);
    GetCharABCWidths(b.Canvas.Handle, FirstChar, LastChar, pwidths^);
    for i := 0 to (LastChar - FirstChar) do
      Write(Stream, IntToStr(pwidths^[i].abcA + Integer(pwidths^[i].abcB) + pwidths^[i].abcC) + );
    WriteLn(Stream, ]);
    FreeMem(pwidths);
    WriteLn(Stream, >>);
    WriteLn(Stream, endobj);
    Parent.XRefAdd(Stream);
    WriteLn(Stream, IntToStr(Index + 2 + Parent.FStartFonts) + 0 obj);
    WriteLn(Stream, <<);
    WriteLn(Stream, /Type /FontDescriptor);
    if Parent.FEmbedded then
      WriteLn(Stream, /FontFile2 + IntToStr(Index + 4 + Parent.FStartFonts) + 0 R);
    WriteLn(Stream, /FontBBox [ + IntToStr(pm^.otmrcFontBox.Left) + + IntToStr(pm^.otmrcFontBox.Bottom) + + IntToStr(pm^.otmrcFontBox.Right) + + IntToStr(pm^.otmrcFontBox.Top) + ]);
    WriteLn(Stream, /FontName / + FontName);
    WriteLn(Stream, /Flags 32);
    WriteLn(Stream, /StemV + IntToStr(50 + Round(sqr(pm^.otmTextMetrics.tmWeight / 65))));
    WriteLn(Stream, /CapHeight + IntToStr(pm^.otmTextMetrics.tmHeight));
    WriteLn(Stream, /Ascent + IntToStr(pm^.otmAscent));
    WriteLn(Stream, /Descent + IntToStr(pm^.otmDescent));
    WriteLn(Stream, /ItalicAngle + IntToStr(pm^.otmItalicAngle));
    WriteLn(Stream, >>);
    WriteLn(Stream, endobj);
  end;

  if Parent.FEmbedded then
  begin
    Parent.XRefAdd(Stream);
    WriteLn(Stream, IntToStr(Index + 4 + Parent.FStartFonts) + 0 obj);
    i := GetFontData(b.Canvas.Handle, 0, 0, nil, 1);
    GetMem(pfont, i);
    i := GetFontData(b.Canvas.Handle, 0, 0, pfont, i);
    MemStream := TMemoryStream.Create;
    MemStream.Write(pfont^, i);

    MemStream1 := TMemoryStream.Create;
    frxDeflateStream(MemStream, MemStream1, gzMax);
    WriteLn(Stream, << /Length + IntToStr(MemStream1.Size) + /Filter /FlateDecode /Length1 + IntToStr(MemStream.Size) + >>);
    WriteLn(Stream, stream);
    Stream.CopyFrom(MemStream1, 0);
    MemStream1.Free;

    MemStream.Free;
    FreeMem(pfont);
    WriteLn(Stream, );
    WriteLn(Stream, endstream);
    WriteLn(Stream, endobj);
  end;
  FreeMem(pm);
  b.Free;
end;


文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

文章页数：[1] 


放大字体显示 缩小字体显示 打印文章 推荐给朋友
热门文章
·一个特牛的日期时间判断正则表达式-ASP教程,正则表达式
·Remoting编程知识一-.NET教程,.NET Framework
·从客户端检测到有潜在危险的Request.Form 值-ASP教程,客户端相关
·关于DataRow和DataColumn的一点个人简单理解-.NET教程,数据库应用
·DataTable.Select使用小心得-.NET教程,数据库应用
·在Java中如何模拟多继承-JSP教程,Java技巧及代码
·上海移动数据网综合网管的实现
·在VC中用GDI+绘制角度可变的颜色渐变效果-.NET教程,VB.Net语言
·超漂亮的绿色按扭制做-网页设计,Photoshop
·Java获取Html变量的值-JSP教程,Java技巧及代码
最新文章
·阿里联盟：关于结算时间问题的统一说明_网赚技巧
·谷歌官方组织adsense优化大赛_网赚技巧
·google adsense 2007巡讲大会上海站总结_网赚技巧
·网络只是一个开始：专访91now站长小鱼头_站长访谈
·asp.net应用程序资源访问安全模型_asp.net技巧
·给那些迷惑于做垃圾站的站长们_站长心得
·免费——不是威客网站的杀手锏_站长心得
·圈圈浅谈个人网站发展和赚钱的模式-网站推广的口碑篇_站长心得
·说网解络之web2.0概念诠释（１）_站长心得
·google adsense系列技巧100条_google推广
相关主题
  • 让fastreport3.x支持中文pdf的输出_delphi教程
    		•
    西部数码虚拟主机
    友情链接
    CNNIC 西部数码
    万网 自助建站
    虚拟主机 asp空间
    域名注册 域名
    域名申请 主页空间
    论坛空间 网站空间
    国际域名 虚拟空间
    空间租用 DDOS防火墙
    成都主机托管 四川主机托管
    主机租用 服务器租用
    网站目录 自助建站
    虚拟主机 网址大全
    软件下载
    		 自助链接
    虚拟主机资讯 特价虚拟主机
    版权申明：本站文章均来自网络，如有侵权，请联系我们，我们收到后立即删除，谢谢！
    关于我们：站长天空：专业提供最新的站长资讯、在线教程、虚拟主机权威评测、虚拟主机性能对比、网站制作教程,开发教程,站长工具。包括网页制作教程、冲浪宝典、编程参考、操作系统、软件教学、行业动态等。
    特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。
    发表评论　打印　 刷新 　　 　关闭
    站长天空 版权所有 本站虚拟主机由西部数码提供
    		All rights reserved.2004