FastReport 导出Pdf 乱码

还是老问题,保存PDF字体时字体名编码错误,和2.x/3.x时一样的错误,修正其实很简单。

用下面的替换 TfrxPDFFont.GetFontName: AnsiString 中的同名函数

  function HexEncode7F(Str: WideString): AnsiString;
  var
    s: AnsiString;
    // add by ijia 2010-04-05
    t: AnsiString;
    Index, Len: Integer;
  begin
    s := \'\';
    // add by ijia 2010-04-05
    t := Str;
    Len := Length(t);
    Index := 0;
    while Index < Len do
    begin
      Index := Index + 1;
      if Byte(t[Index]) > $7F then
        s := s + \'#\' + AnsiString(IntToHex(Byte(t[Index]), 2))
      else
        s := s + AnsiString(t[Index]);
    end;
    Result := s;
  end;

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:https://www.heiqu.com/zgyxgz.html