mORMot Open Source

Thank you so much for the patch.
I'm now able to use common functions on both side!

I'm extremely excited about the possibility of being able to use you CrossPlatForm approach.
However I would agree that supporting Delphi 5 is not the future for a young mORMot - (FPC/Lazarus/CodeTyphon probably does).

I still want to use mORMot on server side.
I found MsgConnect written by Eugene Mayevski (Eldos.com).

MsgConnect is open-source and free for non commercial use.
(but you need to purchase a commercial license if you are going to charge your customers)

MsgConnect supports:
- Synchronous or Asynchronous communication, callback are available
- You can switch from TCP, UDP, HTTP, MMF (Memory Mapped File) for communication
- I use MMF since I would not want to add another TCP implemetention (MsgConnect is relying on Winsock.pas)
- User authentication is available
- I only tried Java and Delphi 5 but there are different port to Linux, WinCE, Android and .Net (written in pure C++, C#)
- There are some MsgConnect articles here

Of course you probably know this library.
I just posting details for all users.

All this to say that I am integrating MsgConnect as transport layer.
And I use RecordLoadJSON / RecordSaveJSON for Marshalling on both side.
Initial experiments and stress-test have proven very successful and very positive **

So the lack of support for D5 is not an issue for me.

** No mORMot were harmed during testing.

Everything is working now.
About the delay it was perfect.

Thank you!

I think your can reproduce my issue.

1 - open TestSQL3.dpr
2 - comment the call to SQLite3ConsoleTests()
3 - and add my code snippet
For instance

  // SQLite3ConsoleTests;
  Json :='{ "name": "Book the First", "author": { "first_name": "Bob", "last_name": "White" } }';
  RecordLoadJSON(B,@Json[1],TypeInfo(TBookRecord));

4 - Run, You got a memory leak
5 - Reactivate the call to SQLite3ConsoleTests()
6 - Run, No memory leak!

I have been noticing another thing.
I have no leak after a simple call to RecordSaveJSON(), but only if TypeInfo points to a record without nested record

  // SQLite3ConsoleTests;   
  RecordSaveJSON(g,TypeInfo(TGUID)); // Calling RecordSaveJSON() *BEFORE* RecordLoadJSON() will remove the leak
  Json :='{ "name": "Book the First", "author": { "first_name": "Bob", "last_name": "White" } }';
  RecordLoadJSON(B,@Json[1],TypeInfo(TBookRecord));

The code above is working.

  // SQLite3ConsoleTests;   
  RecordSaveJSON(B,TypeInfo(TRecordWithNestedRecord)); // No effect
  Json :='{ "name": "Book the First", "author": { "first_name": "Bob", "last_name": "White" } }';
  RecordLoadJSON(B,@Json[1],TypeInfo(TBookRecord));

Memory leak still remain.