귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
강좌, 팁, 정보 강좌, 팁, 정보 입니다.
글내용 - 강좌, 팁, 정보
 FastReport 4.5.9 PDF,XML,HTML,Res한글처리
김문수
(손님)
2008-01-08 오후 10:27:20
카테고리: 팁
6977회 조회



등록된 파일이 없습니다.
FastReport가 또 업그레이드를 하면서 코드를 바꿨네요...

언제까지 수정을 계속해야 하는지...

 

유니코드 때문에 한글이 깨져 나가네요 ㅜ.ㅜ

 

frxPDFFile.pas

 

라인: 329

 

//기존 function HexEncode7F(Str: WideString): string;

 function HexEncode7F(Str: String): string;

 

라인 2126

//기존       WriteLn(Stream, '/DescendantFonts [' + IntToStr(Index + 1 + Parent.FStartFonts) + ' 0 R]');

  WriteLn(Stream, '/DescendantFonts [' + IntToStr(Parent.FFontDCnt + Parent.FStartFonts) + ' 0 R]');



 

frxExportXML.pas

 

라인: 310

//기존      'ss:FontName="' + EStyle.Font.Name + '" '+

   'ss:FontName="' + UTF8Encode(EStyle.Font.Name) + '" '+

라인: 427

//기존 s := ChangeReturns(UTF8Encode(s));

//기존 WriteExpLn('<Data' + si + '>' + s + '</Data>');

      s := ChangeReturns(s);

      WriteExpLn('<Data' + si + '>' + UTF8Encode(s) + '</Data>');





frxExportHTML.pas

 

라인: 332

//기존        WriteExpLn(' font-family: ' + EStyle.Font.Name + ';'#13#10 +

      WriteExpLn(' font-family: ' + UTF8Encode(EStyle.Font.Name) + ';'#13#10 +





frxRes.pas



라인: 192

//기존    Result := _UnicodeToAnsi(FValues[Integer(FNames.Objects[i])], DEFAULT_CHARSET, FCP) else

    Result := FValues[Integer(FNames.Objects[i])] else



마지막으로... 누가 좀 리소스를 한글화해서 FastReport사에 등록 좀해 주세요...

FastReport 버전업시 다른 나라 랭귀지 추가 할 때 마다 부럽네요 ㅜ.ㅜ