Additional chars in PDF

piotr.brzezinski · 2014-02-11 11:29:00

I'm using PDF Engine from the end of 2012 (SynPdf.pas is from 28-nov-2012)

Here is code:

procedure TForm1.Button1Click(Sender: TObject);
var
  lPdf: TPdfDocument;
  lPage: TPdfPage;
  n: Integer;
  s: String;
begin
  lPdf := TPdfDocument.Create;
  try
    lPdf.Info.CreationDate := Now;
    lPdf.Info.Creator := 'SynPDF';
    lPdf.DefaultPaperSize := psA4;

    lPage := lPdf.AddPage;

    lPdf.Canvas.SetFont('Consolas', 9.0, [], EASTEUROPE_CHARSET);
    lPdf.Canvas.SetLeading(lPdf.Canvas.Page.FontSize);
    lPdf.Canvas.BeginText;

    s := 'abcdefghijklmnopqrstuvwxyz';

    for n := 2 to 33 do
    begin
      lPdf.Canvas.TextOut(100, lPage.PageHeight - n * 20, 'ĄĘŚĆŃÓŁŻŹ ' + s);
      lPdf.Canvas.TextOut(100, lPage.PageHeight - n * 20 - 10, 'ąęśćńółżź');
    end;

    lPdf.Canvas.EndText;
    lPdf.SaveToFile('TEST.PDF');

  finally
    lPdf.Free;
  end;
end;

It generate nice PDF :-)
ok.png

But when I change PDF engine to new one there are an extra characters in generated PDF and after few lines font is change to Arial.
bug.png

I'm using Delphi 7.

ab · 2014-02-11 16:11:16

Which charset are you using?

piotr.brzezinski · 2014-02-12 07:33:41

ab wrote:

Which charset are you using?

CharSet = 238 (EastEurope), CodePage = 1250

ab · 2014-02-12 19:27:52

Could you try TextOutW() instead, and a conversion to unicode?

What if you use a temporary metafile (e.g. TPdfDocumentGDI) before rendering?

What if you set UseFontFallBack=false and/or UseUniscribe=false/true?

piotr.brzezinski · 2014-02-13 10:08:44

ab wrote:

Could you try TextOutW() instead, and a conversion to unicode?
What if you use a temporary metafile (e.g. TPdfDocumentGDI) before rendering?
What if you set UseFontFallBack=false and/or UseUniscribe=false/true?

First solution works (TextOutW and conversion to unicode). Thank You.

mORMot Open Source

#1 2014-02-11 11:29:00

Additional chars in PDF

#2 2014-02-11 16:11:16

Re: Additional chars in PDF

#3 2014-02-12 07:33:41

Re: Additional chars in PDF

#4 2014-02-12 19:27:52

Re: Additional chars in PDF

#5 2014-02-13 10:08:44

Re: Additional chars in PDF

Board footer