TNPdf+Delphi 2009 (перелаб)

[XerSon]

raxp,

Все ок, AnsiString форева, еще раз респект!

[raxp]

рад, что все получилось, обращайтесь.

[XerSon]

raxp,

Столкнулся с такой проблемой, при сохранении русского текста в pdf летит кодировка, пробовал менять на UTF-8 и Unicode, не помогло.

Как решить сей баг?

[raxp]

delphi6 и turbodelphi lite с замененным на ansistring, все OK с русским в pdf ...может вы какой-то шрифт специфический используете?

upd
-------

Нет, всё стандартно: PDF.Font.Name := poTimesRoman;

ммм... проверю еще дома ...если до вечера ничего не изменится.

[XerSon]

Сообщение от raxp

delphi6 и turbodelphi lite с замененным на ansistring, все OK с русским в pdf ...может вы какой-то шрифт специфический используете?

Нет, всё стандартно:

PDF.Font.Name := poTimesRoman;
PDF.Font.Size := 12;
PDF.MemoOut(30, 40, Memo);

[XerSon]

Входная строка:
ТеСт русского + TeSt english

Выходная в PDF:
ÒåÑò ðóññêîãî + TeSt english

[raxp]

...есть подозрение на эту строку:

StreamWriteStr(TempStream,'/BaseFont /'+BaseFont)

в документе с отображением кириллицы следующее (имя шрифта и тег tounicode c указанием позиции блока):

18 0 obj<</Subtype/TrueType/FontDescriptor 77 0 R/LastChar 57/Widths[600 0 0 0 600 600]/BaseFont/TAQDER+CourierNewPS-BoldMT/FirstChar 52/ToUnicode 78 0 R/Encoding/WinAnsiEncoding/Type/Font>>
endobj

в нашем документе:

7 0 obj
<< /Type /Font
/Subtype /Type1
/Name /F1
/BaseFont /Helvetica
/Encoding /WinAnsiEncoding
>>
endobj

есть подозрение на недописанность в части включения описания шрифтов... пробовал так (в процедуре TPrintPDF.CreateFont()):

StreamWriteStr(TempStream,'/BaseFont /'+'Times-Roman'+'/ToUnicode '+ IntToStr(CurrentObjectNum)+' 0');

но пока подшаманить не удается...

[XerSon]

Сообщение от raxp

...но пока под шаманить не удается...

Буду очень признателен, за реализацию правильного кода!

С Уважением XerSon.

[XerSon]

Всем привет,
Поднимаю тему, сам разобраться так и не смог.
Буду рад любой помощи, с уважением!

[XerSon]

Сообщение от raxp

есть подозрение на недописанность в части включения описания шрифтов... пробовал так (в процедуре TPrintPDF.CreateFont()):

StreamWriteStr(TempStream,'/BaseFont /'+'Times-Roman'+'/ToUnicode '+ IntToStr(CurrentObjectNum)+' 0');

но пока подшаманить не удается...

Уважаемый raxp, прошу помощи в доделке компонента, все повисло, пока обошелся транслитерацией в пдф, но это не есть гут! С Уважением!