mORMot Open Source

At this "entry" line of TPdfCanvas.SetFont function condition is not met to reach SetEmbeddedFont procedure:

if (fDoc.FCharSet=ANSI_CHARSET) and fDoc.StandardFontsReplace then begin...

fDoc.FCharSet=238
ANSI_CHARSET=0
fDoc.StandardFontsReplace=False

I was in doubts about this, if I got it right, because you said that it works in your case (code page, compiler).
I still don't fill this very natural , when reading the code e.g. Set(Something) and Expect(Something_Different).
I hope that you understand my confusion .

I tried with new corrections (d5ddda8451), but PDF tests still fails, because the problem exists in prior lines:

Canvas.SetFont('arial',10,[]); //on second run (embed=true) this should set to Helvetica if I understand correctly
Check(Canvas.Page.Font.Name=Name[embed]); //here we test for Helvetica on second run, but it's always Arial !

I said that compiles in Delphi 2009 too, but execution is not ok. Maybe you (I'm missing some low level knowledge and understanding of your implementation) can find what could went wrong and you can find some workaround (even with low level tricks ). I think too, that new implementation can cost to much refactoring and is not worth it if this is only Delphi 2009 issue.

Yes.

About TestSQL3 unit tests:
I don't know if failing tests are Delphi 2009 related (I didn't look them with debugger yet), but if they are, maybe is best to omit support for Delphi 2009 compiler (sooner or later I'll switch to newer version , but for now I'm stuck with D2009 ), because is buggy in areas you use most (this object, record issue) .

List of failing tests:

1.4. Cryptographic routines:
!  - Base64: 2 / 11,994 FAILED
  Total failed: 2 / 12,618  - Cryptographic routines FAILED

1.6. Synopse PDF:
!  - TPdfDocument: 2 / 4 FAILED
!  - TPdfDocumentGDI: 1 / 3 FAILED
  Total failed: 3 / 7  - Synopse PDF FAILED

2.1. Basic classes:
!  - TSQLRecord: 4 / 42 FAILED
  Total failed: 4 / 245  - Basic classes FAILED

2.2. File based:
!  - Direct access: 2 / 10,132 FAILED
  Total failed: 2 / 618,271  - File based FAILED

2.3. File based WAL:
!  - Direct access: 2 / 10,132 FAILED
  Total failed: 2 / 618,271  - File based WAL FAILED

2.4. Memory based:
!  - Direct access: 1 / 10,131 FAILED
!  - TSQLRestClientDB: 2 / 615,382 FAILED
  Total failed: 3 / 644,543  - Memory based FAILED

2.5. Client server access:
!  - TSQLite3HttpClient: 1 / 3 FAILED
  Total failed: 1 / 15,048  - Client server access FAILED

Synopse framework used: 1.13
SQlite3 engine used: 3.7.6.3
Generated with: Delphi 2009 compiler

Time elapsed for all tests: 52.55s
Tests performed at 2.6.2011 12:47:56

Total assertions failed for all test suits:  17 / 5,384,675

Hi, I didn't know where to post this small error (should I open ticket as I did for 6593f0fbd1 in similar case or ?). I post it here, because is somehow related with provided pas units with Delphi 2009 (unicode), but it has nothing with object issue .

In SQLite3i18n.pas at line 2872 and 2905 typecast to PAnsiChar should be done to be compilable, because default for MakeIntResource is not any more PAnsiChar in Windows.pas.

...
  EnumResourceNamesA(HInstance, PAnsiChar(RT_STRING), @CB_EnumStringProc, PtrInt(@CB_EnumStringValues));
...

I'm assuming that you are doing ExtractAllResources with your Delphi 7 .

Anyway, many thanks for your excellent framework.
I'm enjoying learning it (through trying to make useful app) bit by bit (now I'm on i18n area as you see), sometimes is hard to understand some practices, but on the end I always reach the goal with help of your superb documentation in code and generated one.

The code is not compilable under Delphi 2009 from version 2011-04-06 19:25    [a286d5c455] • added TMemoryMap ...
[DCC Fatal Error] SynCommons.pas(2874): F2084 Internal Error: DT5830

I changed the code to be compilable, but I don't know if this is the way you want it :

{$ifdef ISDELPHI2009}
  TMemoryMap = record
{$else}
  TMemoryMap = object
  protected
{$endif}