Q&A

  • [re] [질문] FastReport 4.9와 Delphi2010에서 PDF깨지는 문제 해결이 안되네요

frxExportPDF 화일을 열어서 TfrxPDFFont.GetFontName: AnsiString; 프로시저의

function HexEncode7F(Str: WideString): AnsiString; 함수를 아래와 같이 수정하시면 됩니다.

//변경한 소스
function HexEncode7F(Str: WideString): AnsiString;
    var
      // 신규 변수 추가
      AnStr: AnsiString;
      s: AnsiString;
      Index, Len: Integer;
    begin
      s := '';
      AnStr := Str; //신규 추가
      Len := Length(AnStr); //수정
      Index := 0;
      while Index < Len do
      begin
        Index := Index + 1;
        if Byte(AnStr[Index]) > $7F then //수정
          s := s + '#' + AnsiString(IntToHex(Byte(AnStr[Index]), 2)) //수정
        else
          s := s + AnsiString(AnStr[Index]); //수정
      end;
      Result := s;
    end;

이렇게 소스를 변경하시면 한글이 깨지는 현상은 제거가 될껍니다.

1  COMMENTS