mORMot Open Source

I can't really comment on the use of mORMot (I only use a small portion of it).
But I do see some issues with your code.

*) On line 10 in GetConnection.pas you get a pmoConnection. Line 11 sets result to true if pmoConnection is not nil.
       But.... if it is nil, it does execute line 12 where you access pmoConnection.IsConnected. If pmoConnection is nil this will result in an (silent?) exception (access violation) which you don't catch.

*) On line 8 of SaleOrderService.pas you do GetConnection(). GetConnection is a function which returns a boolean result. You don't check if this was successful and go on in the code as if it was. You need to exit the function if it was unsuccessful. Because the out of GetConnection could be nil (so LDBConn would be nil). This can also cause silent exceptions (also access violation).

I'm not sure if these 2 problems could cause your issue over time but it's something to fix

I can confirm this. I also just mentioned it in another topic.
There is also an syntax error in mormot.ui.pdf.pas
https://synopse.info/forum/viewtopic.ph … 125#p45125

I wonder why that IsInvalidHttpHeader changed so much?

It used to be a simple lineair search for invalid line-breaks.
If you look at it now... it became so much more complex (and prone to errors and bugs, as is now the case).

This is the old version:
https://github.com/synopse/mORMot2/blob … .pas#L5473

This is the newer expanded version:
https://github.com/synopse/mORMot2/blob … pas#L10862

It's also strange that searching for IsInvalidHttpHeader on github doesn't give you the location of this function, while it is in the repository.

I can't find any documentation or complete example. So you just have to use it.
Like this:

As far as I could see the Header/Footer in mormot.ui.report is just printed as is, separate lines with no special layout. You can't even position text.

I had some specific requirements of other parts of the "report" mechanisme... so I took the whole TGdiPages and stripped out everything I didn't need (which was a lot). Ended up with just under 700 lines of code. So that might be the way to go if you need something special from Header and Footer. Or try to inherit TGdiPages and change the things you need (but I'm not sure how far you can go with that). You could also just generate the headers and footers yourself.

Your code does justify on break characters.

BUT... did you check what the break character for the font Segoe UI is ???
It's not "space"

Change your code to use 'Arial' as font and you see the justify is done correctly on the break character (which is space for Arial).

Otherwise use the GetTextMetrics function to find out what the break character is for Segoe UI.

When using Justify, there is extra space added to certain "break characters" (usually this is the space character for normal fonts).
If the break character is different, then you won't get justify on space and the justification doesn't work.

See the documentation for more information about justify and break characters.
https://learn.microsoft.com/en-us/windo … tification

Edit: BTW, just check the break character for Segoe UI. It's #13, not #32. So that's the reason for it not justifying.

procedure GetFontBreakChar(Canvas: TCanvas; out BreakChar: WideChar);
var
  Metrics: TTextMetric;
begin
  GetTextMetrics(Canvas.Handle, Metrics);
  BreakChar := Metrics.tmBreakChar;
end;

If I use EMFexplorer I also see the run-off (so no clipping).
If I disable "Use GDI+" there (via Document, uncheck "Use GDI+"), the clipping does occur correctly.

In mormot.ui.pdf there is a RenderMetaFile() function (with EnumEnhMetaFile and a clipping parameter).
Did you try that?

What is the code to print after aMeta.LoadFromFile because I couldn't get the dimensions correct?
With factor scaling 0.1 the result I got here is this: https://i.imgur.com/afa83Iy.png
Which seems to be correct regarding the clipping.

Did you use the latest mormot2 (and not the old SynPdf source) ?

The default fastmm is very basic in Delphi and it doesn't show the line number etc. It just shows the leaked memory. Often you can see what type of record is leaked. But if you can't you will need something stronger.

You could use the full FastMM4 library. It would involve adding a dll to your exe directory and putting 3 files (2 pas and 1 inc) in your source directory. Defining FullDebugMode in the inc and running it with a debugger on, it will provide you with a txt file which shows the location the leaked memory was created.

See for more info: https://stackoverflow.com/a/1130506

This would show something like (from your example, so the GetMem would be on line 8 of test):

--------------------------------2025/11/21 10:46:05--------------------------------
A memory block has been leaked. The size is: 12

This block was allocated by thread 0x4004, and the stack trace (return addresses) at the time was:
4046BE [System.pas][System][System.@GetMem][4749]
42155E [test][test.test][8]
76B1FCC9 [BaseThreadInitThunk]
77DE82AE [RtlGetAppContainerNamedObjectPath]
77DE827E [RtlGetAppContainerNamedObjectPath]

The block is currently used for an object of class: Unknown

The allocation number is: 111
<snip_and_more>

If you're using the default Memory Manager (FastMM) then you can also just use the Delphi method.

Put this in the .dpr below the Application.Initialize line.

{$WARN SYMBOL_PLATFORM OFF}
  ReportMemoryLeaksOnShutdown := DebugHook <> 0;
{$WARN SYMBOL_PLATFORM ON}

https://docwiki.embarcadero.com/Librari … OnShutdown

And now if you run with debugger on (DebugHook > 0) then it will popup a message when closing your app if there is a memory leak.
You can also just set it to true but I like to always have it when I'm running with debugger (not as user).

(maybe this should have been a separate question...)

What do you mean by watermark? Just text is the easiest. With GDI you can just write the text at an angle with a grayscale.

Small example (I hope this is ok here instead of a external clip-site):
Make sure to call the watermark text first before writing anything else to the page so it appears in the background.

// call with WriteTextAngled(pdf, 100, 600, 'CONFIDENTIAL');

procedure WriteTextAngled(pdf: TPdfDocumentGDI; x, Y: Integer; Text: string);
var
  LogFont: TLogFont;
  Font: HFONT;
  OldFont: HFONT;
  OldBkMode: Integer;
  OldColor: COLORREF;
begin
  FillChar(LogFont, SizeOf(LogFont), 0);
  LogFont.lfFaceName := 'Arial';
  LogFont.lfHeight := -60; // Font size
  LogFont.lfEscapement := 60 { angle } * 10; // Rotation in tenths of a degree
  LogFont.lfOrientation := LogFont.lfEscapement;
  LogFont.lfQuality := ANTIALIASED_QUALITY;
  Font := CreateFontIndirect(LogFont);
  OldFont := SelectObject(pdf.VCLCanvas.Handle, Font);
  OldBkMode := SetBkMode(pdf.VCLCanvas.Handle, TRANSPARENT);
  OldColor := SetTextColor(pdf.VCLCanvas.Handle, RGB(180, 180, 180));
  pdf.VCLCanvas.TextOut(x, Y, Text);
  SelectObject(pdf.VCLCanvas.Handle, OldFont);
  SetBkMode(pdf.VCLCanvas.Handle, OldBkMode);
  SetTextColor(pdf.VCLCanvas.Handle, OldColor);
  DeleteObject(Font);
end;

You ARE having issues other than font issues.

You have a problem with images.
I'm just saying setting the font might resolve this (as it did with me). I also didn't have font issues but corruption issues. Nothing to do with font. But setting setfont fixed that for me.

You're missing the point. For me, without the setfont, there is a corrupt pdf created. The resulting pdf doesn't show everything. Maybe for you it then doesn't show the images. That's why I asked if you did the setfont.

But I can't help you any further because for me it works (if I do the setfont as in my code).

I'm not sure why the VCLCanvas.Draw doesn't work for you... but for me it does show the images at the bottom.

I do need to use pdf.Canvas.SetFont otherwise I get an error message in Adobe reader as below. Not sure why you don't get that with your code.

Here is the code I used.
https://gist.github.com/rvk01/9e20e728d … b35107dfbf
Result: https://limewire.com/d/UkxBW#QGNBuFNvep

So make sure you use the pdf.Canvas.SetFont. Do the images at the bottom show up then for you???

That's weird. If I look in the WMF with EMFexplorer I do get some font info, but maybe not for all objects:

Multiple lines with
EMR_EXTCREATEFONTINDIRECTW    (s=368)    {ihFont(2) ELF[name() style() vendor(0x072DDF38)] LOG[face(Arial), style(Bold), charset(0),family(0),precision(0), height(-100), width(0)]}

But it's also weird that some text is correct. For me... every WMF/EMF renderer I used (emfexplorer, gimp, paint and irfanview) do give somewhat correct result (although some give different font results). So they do fall back to a "correct" font as where SynPDF falls back to NO font (giving overlapping characters).

No, it's just Arial in the WMF.
When I trace through the code I get in TPdfCanvas.SetPdfFont where is skips the code because of the "// check if this font is already the current font".

But when I look in the actual PDF you get to the point for P.O.No. where there is no "/F1 9.95 Tf" set.
And I can't see that there is any "default" font set for the (or a) PDF.

Q
q
BT
39.67 676.56 Td
(P. O. No:) Tj
ET
Q
q

while above it is this for CUSTOMER

q
/F2 9.95 Tf
BT
39.67 694.54 Td
(CUSTOMER:) Tj
ET
Q
q

All the text which is printed overlapped seem to be missing the font setting. It may be due to some recursive problem where SynPDF thinks there is a current font set while there is not... But since I don't know if the OP has the same issue (in the older SynPDF) I'm not sure if it's worth investigating.

(BTW Rendering this though RenderMetaFile() it actually produces a corrupt PDF. Doing this with Draw(), which used some of the same code, gives above result. So there is also something wrong when doing it through RenderMetaFile)

Links are correct now (I guess it was the extra slash at the end).

The GDI+ implementation of SynPDF is far from perfect. It probably lacks some features used which results in a 'corrupt' PDF.

I did notice you used SynPDF. I don't have that installed anymore and the old SynPDF isn't updated anymore. For a more recent version you would need to use mormot.ui.pdf in mORMot2.

With that one I got a 'corrupt' pdf trying to do RenderMetaFile(pdf.Canvas, aMeta, 0.58, 1.30, 0, 0);

When I did pdf.VCLCanvas.Draw(0, 0, aMeta); I did get all the images. But the text wasn't exactly correct.

But I can't speak for the older SynPDF.

You might want to provide an example for this. Without it, it would be hard to diagnose the problem.
(You can provide larger parts of code via github gist)

In Sumatra reader you can press CTRL+D for properties (or use the menu) and then use "Get Fonts Info". There you can see which fonts are used and which are embedded.

It's advisable to always embed the fonts (at least a subset of the fonts) that are not default on all systems.
Calibri is widely used but there are some systems that don't have them.

(Maybe not a problem for you at the moment, if you know what fonts are on the systems, but you should keep it in mind )

Glad to hear it was just a glitch in the system and all it took was a restart.

Did you embed the used fonts?
(See ctrl+d in Adobe and then fonts tab)

Note for @ab
I did a bit of digging and found that in TPdfWrite.AddGlyphs the TPdfFontTrueType.GetAndMarkGlyphAsUsed is called.
For the unicode character U+FB05 ſt this function returns 0 because it can't find that character in fUsedWide.

Why doesn't it add the (unicode) character to the Glyph map when not found?

There is a FindOrAddUsedWideChar in there but that's only used when the Glyph is found in fUsedWide (in which case the add seems a little pointless).

@sameerpandit Sorry. I can't help if I can't reproduce it.
And without code and used wmf, I can't reproduce it.

Pointing to some half ready code and no wmf doesn't help with that.

Maybe @ab can be more helpful (but my guess is not without actual being able to reproduce it too).

Yeah... 'Bookmarks' is really confusing in PDF/Adobe. Although it's called Bookmarks in the sidebar, they are actually Outlines. It's also called outlines in the PDF specs, so looking for Bookmarks will only confuse you

If you do TPdfDocument.CreateOutline() you can create 'Bookmarks' in the PDF (also had to dive into the sourcecode to find that out ).

function TPdfDocument.CreateOutline(const Title: string; Level: integer; TopPosition: single): TPdfOutlineEntry;

You can create several levels. 0 is the root and 1 etc are levels under it.

For example:

// pdf.addpage etc
pdf.CreateOutline('Test-page-1- root', 0, 1);
pdf.CreateOutline('Sub bookmark', 1, 20{?});
// pdf.addpage etc
pdf.CreateOutline('Test-page-2-root', 0, 1);

BTW. You do need to use AUseOutlines to true when creating TPdfDocumentGDI, otherwise outline doesn't work.

pdf := TPdfDocumentGDI.Create(true); // <- AUseOutlines = true

Do you mean the bookmarks at the right of the PDF?
Have you tried using CreateBookMark yet?

If you search on this forum there are several examples of CreateBookMark (just calling it after page creation).

I adjusted the test project a bit to include creating a pdf directly after generating the PDF (with correct dimensions).
Also included a SetWindowOrgEx() line. That indeed shows my previous changes work correctly for offset window but I'm still unsure if it needs adjusting at other places.

I also noticed that the test for RGN_AND, RGN_DIFF, RGN_OR and RGN_XOR also worked correctly in PDF.
But that's because it doesn't test for those modes in EMR_EXTSELECTCLIPRGN but only in CombineRgn.

And using CombineRgn() doesn't actually put that mode RGN_AND etc in the metafile !!!
(it just buffers it and exports the final EMR_EXTSELECTCLIPRGN with RGN_COPY (which is done in the ExtSelectClipRgn() line.)

(edit: sorry for posting the code... moved to gist...)

For adjusted testproject:
https://gist.github.com/rvk01/60453f5bd … 8d75bba8fa