mORMot Open Source

Hello,

I'm trying to add a simple hyperlink in a PDF document. When clicking on it, I want to be redirected on a website, or open a local file, depending of the link content.

I noticed that the TPdfDocument class contains several functions that seems useful to do that, but I'm absolutely unable to use them. Just nothing appear on my document. And I cannot find any info that explain how to use them.

Here is the code I wrote

    std::auto_ptr<TPdfDocumentGDI> pPdfDoc(new TPdfDocumentGDI(false, 0, false, NULL));

    pPdfDoc->Info->Author       = L"Tester";
    pPdfDoc->Info->CreationDate = ::Now();
    pPdfDoc->Info->Creator      = L"Tester";
    pPdfDoc->DefaultPaperSize   = Synpdf::psA4;
    pPdfDoc->UseUniscribe       = true;
    TPdfPage* pPage             = pPdfDoc->AddPage();

    TPdfRect rect;
    rect.Left   = 0;
    rect.Top    = 0;
    rect.Right  = 50;
    rect.Bottom = 50;

    pPdfDoc->CreateHyperLink(rect, "http://www.google.com");

    pPdfDoc->SaveToFile(L"test.pdf");

I just get a perfectly blank page when I open the test.pdf file.

I also tried the following variants (based on the few info I found on the internet) :

    ...
    TPdfDictionary* pDictionary = pPdfDoc->CreateLink(rect, "http://www.google.com");
    pDictionary->AddItem("S", "URI");
    pDictionary->AddItem("F", "(http://www.google.com)");
    ...

    ...
    pPdfDoc->VCLCanvas->MoveTo(10, 10);
    ::GDICommentBookmark(pPdfDoc->VCLCanvas->Handle, "http://www.google.com");
    ::GDICommentOutline(pPdfDoc->VCLCanvas->Handle, "http://www.google.com", 0);
    ::GDICommentLink(pPdfDoc->VCLCanvas->Handle, "http://www.google.com", rect, false);
    ...

But no way. So if somebody could post a simple example that show how to add a hyperlink in a PDF document, I would be really grateful.

Regards

Hello

I use SynPDF to export the user chats of my application into a PDF file. For that I use the VCL canvas provided by the PDF document, and I draw on it with several GDI and GDI+ functions. The resulting PDF is well generated.

Now I use the exactly same GDI and GDI+ drawing code, but instead of drawing directly on the VCL canvas provided by the PDF document, I generate an intermediate metafile, that I use to draw my page, and later I use this metafile to draw the final page on the PDF document. However the resulting PDF is broken (can be opened at all by Firefox, several parts are missing when opened by Chrome, ...)

Here is the code I use to generate the intermediate metafile canvas:

    // create metafile
    HDC hMetaFileDC = ::CreateEnhMetaFile(NULL, NULL, NULL, NULL);

    if (!hMetaFileDC)
    {
        M_LogErrorT("Export messages to PDF - FAILED - create metafile");
        return false;
    }

    pCanvas->Handle = hMetaFileDC;

And here is the code I use to draw the intermediate metafile on the final document

    // terminate and close the metafile
    ::HENHMETAFILE hMetaFile = ::CloseEnhMetaFile(hMetaFileDC);

    std::auto_ptr<TMetafile> pMeta(new TMetafile());

    // use TMetafile object
    pMeta->Handle = (unsigned)hMetaFile;

    // render meta file
    pPdfDoc->Canvas->RenderMetaFile(pMeta.get());

NOTE I also draw a footer after the above code by calling some GDI/GDI+ functions on the pPdfDoc->VCLCanvas

I also joined a copy of a PDF generated from the same content, once without the problem, and once with the problem, here:
https://drive.google.com/open?id=0B7C-R … nZ6Q21hNUk for the well formatted document
https://drive.google.com/open?id=0B7C-R … UhBaG9vekU for the broken document

I cannot figure out why the issue happen. Somebody can explain to me what I'm doing wrong?

Regards

Hello

I recently had to make changes in the SynPDF library to add some features that my project required but that were not available. Here they are:
- Support for multiple font linking, thus a valid font may be found in case the text contains many languages and both main font and first linked font did not support the language (e.g. FontFallBackNames := 'Arial,Verdana')
- Added a KerningHHorzScale property in TPdfDocumentGDI to be able to change the global Kerning horizontal scale value (in my case was useful to catch up some conversion errors between the GDI canvas and the PDF meta file)
- Added a UNISCRIBE_DYNAMIC_LINK define in case Uniscribe should be linked dynamically to the target application

I think (and hope) that these changes can serve to others, so I published them here: https://drive.google.com/file/d/0B7C-Rw … sp=sharing

Regards

Hello,

I'm using the SynPdf in a c++ project. Every time I update to a new version I need to resolve some minor issues inside the generated .hpp files. As these issues are often very simple to resolve, I listed them below, and I added the way I resolve them. It would be possible to correct them once for all in the next library version?

Issue:    The library cannot be compiled if the define USE_UNISCRIBE is not declared
File:       SynPdf.pas
Solution: Change the following function as follow:

function TPdfWrite.AddGlyphs(Glyphs: PWord; GlyphsCount: integer;
  Canvas: TPdfCanvas; AVisAttrsPtr: Pointer): TPdfWrite;
var TTF: TPdfFontTrueType;
    first: boolean;
    glyph: integer;
    {$ifdef USE_UNISCRIBE}
      AVisAttrs: PScriptVisAttr;
    {$endif}
begin
  if (Glyphs<>nil) and (GlyphsCount>0) then begin
    with Canvas.FPage do
      if FFont.FTrueTypeFontsIndex=0 then
        TTF := nil else // mark we don't have an Unicode font, i.e. a TTF
        TTF := TPdfFontTrueType(FFont);
    if TTF<>nil then begin // we need a TTF font
      if (Canvas.FPage.Font<>TTF.UnicodeFont) and (TTF.UnicodeFont=nil) then
        TTF.CreateAssociatedUnicodeFont;
      Canvas.SetPDFFont(TTF.UnicodeFont,Canvas.FPage.FontSize);
      first := true;
      {$ifdef USE_UNISCRIBE}
        AVisAttrs := AVisAttrsPtr;
      {$endif}
      while GlyphsCount>0 do begin
        {$ifdef USE_UNISCRIBE}
          if (AVisAttrs=nil) or
             not(AVisAttrs^.fFlags*[fDiacritic,fZeroWidth]=[fZeroWidth]) then begin
        {$endif}
          glyph := TTF.WinAnsiFont.GetAndMarkGlyphAsUsed(Glyphs^);
          // this font shall by definition contain all needed glyphs
          // -> no Font Fallback is to be implemented here
          if first then begin
            first := false;
            Add('<');
          end;
          AddHex4(glyph);
        {$ifdef USE_UNISCRIBE}
          end;
        {$endif}
        inc(Glyphs);
        dec(GlyphsCount);
        {$ifdef USE_UNISCRIBE}
          if AVisAttrs<>nil then
            inc(AVisAttrs);
        {$endif}
      end;
      if not first then
        Add('> Tj'#10);
    end;
  end;
  result := self;
end;

Issue: The TScriptControlAttr_enum enumerator is conflicting with the VCL
File:       SynPdf
Solution: Declare the enum as follow:

  TScriptControlAttr_enum = (
    fContextDigits,
    fInvertPreBoundDir,
    fInvertPostBoundDir,
    fLinkStringBefore,
    fLinkStringAfter,
    fNeutralOverride,
    fNumericOverride,
    fLegacyBidiClass,
    pdfScr0, pdfScr1, pdfScr2, pdfScr3, pdfScr4, pdfScr5, pdfScr6, pdfScr7);

Issue:     All the properties exposed inside the TSynValidateText class result in the following error: [C++ Error] SynCommons.hpp(2091, 74): E2062 Invalid indirection, and [C++ Error] SynCommons.hpp(2091, 2): E2141 Declaration syntax error
File:        SynCommon.pas
Solution: In case the matching classes are not needed to be exposed, the following defines can be added:

{$NODEFINE TSynValidateTextProps}
{$NODEFINE TSynValidateText}
{$NODEFINE TSynValidatePassWord}

If not, all the properties of type

property MinLength: cardinal read fProps[0] write fProps[0];

should be corrected (NOTE that *$HppEmit may be used in this context)

Issue:    The classes TScriptState, TScriptAnalysis, TScriptItem and TScriptVisAttr result in the following error: [C++ Error] SynPdf.hpp(1799, 4): E2019 'TScriptState:: :: :: ()' cannot be declared in an anonymous union
File:       SynPdf.pas
Solution: In case the matching classes are not needed to be exposed, the following defines can be added:

  {$NODEFINE PScriptState}
  {$NODEFINE TScriptState}
  {$NODEFINE PScriptAnalysis}
  {$NODEFINE TScriptAnalysis}
  {$NODEFINE PScriptItem}
  {$NODEFINE TScriptItem}
  {$NODEFINE PScriptVisAttr}
  {$NODEFINE TScriptVisAttr}

otherwise need to find a way to not declare the above mentioned record members inside an anonymous union (NOTE that *$HppEmit may be used in this context)

Issue: Some declared constants are in conflict with the VCL, e.g. MWT_IDENTITY
File:   SynPdf.pas
Solution: Do not expose these constants in the hpp file using either the  {$NODEFINE MWT_IDENTITY}, or {$EXTERNALSYM MWT_IDENTITY}

Regards

Hello,

I use the following code to apply a clipping region on my PDF page

    HRGN pClipRegion = NULL;

    try
    {
        ::SelectClipRgn(pCanvas->Handle, NULL);

        pClipRegion = ::CreateRectRgn(rect.Left, rect.Top, rect.Right, rect.Bottom);

        if (::SelectClipRgn(pCanvas->Handle, pClipRegion) == ERROR)
        {
            DWORD error = ::GetLastError();
            ...
        }
        else
            ::SetMetaRgn(pCanvas->Handle);
    }
    __finally
    {
        if (pClipRegion)
            ::DeleteObject(pClipRegion);
    }

Where pCanvas is the canvas provided ny the VCLCanvas property. This code works well using the SynPdf version 1.18. But I recently tried the latest SynPdf version, and I noticed that the above code no longer works, as my page is drawn without clipping at all. What is the reason?

Regards

Hello,

I encounter the following situation:
I created a PDF document from a source provided by an user. I don't know in advance nor the content of each page, which can contain many graphic elements, nor the number of pages that my PDF document will contain after the export. Now I want to add a page footer, that shows for each page the current page / total pages numbers. Because the export method is complex, I can not count the total of pages before exporting each page.

To paint the footer, I need to access again the VCL canvas of an already painted page, after all my pages were exported for the first time, because it's the only moment where I know the total page count. I seen that the page catalog is accessible from my PDF document, but I not found a way to select back a previously painted page in the document, and paint again some new text on it. What is the correct way to do that?

Regards

Hello,

I need to cut a long text into many A4 pages. Each of my page needs a margin of 0.375 inch (36 pixels) on the top and bottom. I use the GDI ::DrawText() function to draw my text on the VCLCanvas provided by the TPdfDocument class.

I tried to calculate the ideal page height respecting the above mentioned constraints, and to apply a clipping rectangle on my VCL canvas by using the GDI clipping functions. I noticed 2 issues:
1. The text located beyond the clipping rect is effectively not drawn on the PDF page but still seems to exist, e.g. I can select and edit it in Adobe Acrobat. (NOTE I also applied the clipping on the metafile by calling the ::SetMetaRgn() function)
2. There is a big difference between the clipping applied in pixels and the real clipping zone in the PDF file. For example I calculated the bottom clipping by searching how many plain text lines can be fitted inside my page after applying margins (see code below). In theory, the text should not be cropped on the middle of a line, because the clipping height can exactly be divided by the number of lines. However, my PDF file shows the last line of my text cropped in the middle on each page

So I have some questions:
- How can I declare margins correctly for each page on my PDF document, respecting the above mentioned constraints? (NOTE I read the pinned post about margins on this forum, but I could not found a solution for my case)
- Why my clipping rect does not exclude the text completely in my PDF document (i.e. why I find a "ghosted" text outside of my clipping rect)? What is the correct way to apply a clipping region on the PDF VCLCanvas?

Regards

PS: For convenience, here is the code I use to apply my clipping region:
pPdfDoc->DefaultPaperSize = Synpdf::psA4;
pPdfDoc->UseUniscribe = true;
pPdfDoc->AddPage();

...

pPdfDoc->VCLCanvas->Font->Name = L"Arial Unicode MS";
pPdfDoc->VCLCanvas->Font->Size = 12;

...

::TEXTMETRIC textMetric;
::GetTextMetrics(pPdfDoc->VCLCanvas->Handle, &textMetric);

const int pageHeight = pPdfDoc->VCLCanvasSize.Height - (36 * 2); // 36 is calculated as follow: 0.375 inch * 96 dpi
const int lineCount = pageHeight / textMetric.tmHeight;
const int clipHeight = 36 + (lineCount * textMetric.tmHeight);
const TRect clipRect(0, 36, pPdfDoc->VCLCanvasSize.Width, clipHeight);

int savedDC = 0;

try
{
    savedDC = ::SaveDC(pPdfDoc->VCLCanvas);

    HRGN pClipRegion = NULL;

    try
    {
        ::SelectClipRgn(pPdfDoc->VCLCanvas->Handle, NULL);

        pClipRegion = ::CreateRectRgn(clipRect.Left, clipRect.Top, clipRect.Right, clipRect.Bottom);

        if (::SelectClipRgn(pPdfDoc->VCLCanvas, pClipRegion) != ERROR)
            ::SetMetaRgn(pPdfDoc->VCLCanvas);
    }
    __finally
    {
        if (pClipRegion)
            ::DeleteObject(pClipRegion);
    }

    ... my page is drawn here ...

}
__finally
{
    if (savedDC)
        ::RestoreDC(pPdfDoc->VCLCanvas, savedDC);
}

Hello,

I need to draw a text above a red rect inside a PDF document. I created a TPdfDocument, then I use the TCanvas provided by the VCLCanvas property to draw the rect and the TPdfCanvas provided by the Canvas property to draw the text. In my code, I paint first the rect, then the text, so normally the output PDF should show a text above a red rect. However the opposite is happening: The text is drawn below the red rect.

Using the above described configuration, is there a way to notify the PDF document that the red rect should be drawn first, and the text above it? (Or in other words, to notify that the VCLCanvas content should be painted first, then the PDF canvas over it?)

Regards

Hello,

I try to write some texts written in English, Japanese, Hebrew and Arabic inside a PDF file, using the VCLCanvas property of the TPdfDocument class, and the Window TextOut() function. For that I written a small function, called DrawTextTo(), that takes a TCanvas as parameter. I tried to draw my texts on the screen and inside the PDF document using the exactly same function for the both.

I noticed that the texts inside the generated PDF file contained errors regarding to the non Latin texts. I also tried to enable the UseUniscribe property, but the two ways result in errors:
- Enabling the UseUniscribe property, all my non Latin texts are broken (i.e. the Japanese font size is incorrect, the Hebrew is partially drawn and some chars are randomly drawn, and the Arabic only shows square)
- Disabling the UseUniscribe property, the chars, sometimes the whole sentence, are crossed for Arabic and Hebrew texts

Of course I tried to change the used font family, especially to a configuration that writes the text correctly using the TPdfCanvas functions.

So, what I do wrong here?

Here are the texts I use:
std::wstring WAppSettings::m_EnglishText  = L"Any text... What happen?";
std::wstring WAppSettings::m_JapaneseText = L"任意のテキストには、何が起こりますか？";
std::wstring WAppSettings::m_HebrewText   = L"כל טקסט, מה קורה?";
std::wstring WAppSettings::m_ArabicText   = L"أي نص، ماذا يحدث؟";

Here is the code used to draw text (pCanvas can either be a pointer to a screen canvas or to the VCLCanvas provided in TPdfDocument):
DWORD drawFlags = DT_WORDBREAK | DT_NOPREFIX | DT_VCENTER;

if (rtlLayout)
    drawFlags |= DT_RTLREADING;

if (doCenter)
    drawFlags |= DT_CENTER;

if (singleLine)
    drawFlags |= DT_SINGLELINE;

// configure text brush
pCanvas->Brush->Color = textColor; // a TColor value e.g. clRed, clBlue, ...
pCanvas->Brush->Style = bsClear;

// draw text
::DrawTextW(pCanvas->Handle, text.c_str(), text.length(), &rect, drawFlags);

Regards