mORMot Open Source

Yes if you restart service/application after delete. On start of your app, mormot ORM get max(ID) and keep ID in memory and increment before add new record.

@flydev, in you log did exception happen when TRestServerDB Begin/End CurrentThread happen? Or in @kabiri happen by chance.

message type 0x31 arrived from server while idle
message type 0x32 arrived from server while idle
message type 0x54 arrived from server while idle
message type 0x44 arrived from server while idle
message type 0x43 arrived from server while idle
message type 0x5a arrived from server while idle
in Vi 260430200702 6658 confirm using same connection in multiple threads

For testing, I will decrease http threads to 3-4, use mormot.db.sql.postgres.pas driver (smaller overhead compared to zeos), use tmThreadPool.
For logging use ptOneFilePerThread, for easy analyze the db log file.
  LogFamily := TSynLog.Family;
  LogFamily.Level := LOG_VERBOSE;
  LogFamily.PerThreadLog := ptOneFilePerThread;
You need small changes in mormot.db.sql.postgres.pas
TSqlDBPostgresConnection.Connect; already have logging
TSqlDBPostgresConnection.Disconnect; you need to add logging in finally block, log code like in Connect
TSqlDBPostgresStatement Prepare/ExecutePrepared already have logging
Start testing and after crash analyze the log

Why you use tmMainConnection? By default you have 32(you can change on creation of http server) http working threads and only one db connection (no db pool) in main thread. This working threads must wait from main thread to get/set data from single mainthread db connection.
If you use tmThreadPool, then all 32 working thread will create db connection and you will not have waiting/switch between threads for db connection. Yes some databases have problem with threading, but posgresql as I know don't have a problem.

What type of http server you use (TRestHttpServerUse)? I have a problem with useHttpAsync and FirebirdSql connection in interface service! Switching to useHttpSocket, problem disappear, different threading model. Problem was bug in my code, after bug resolve, both useHttpAsync and useHttpSocket are OK.

Try to create table without index (primary key). After inserts, create index. Inserting in table with index is slower.

Some external dll function raise exception! I notice similar log with Firebird Client fbclient.dll when disconnect, only on Win64. Win32 and Linux64 is OK, no exception!
As I investigate on net, there is some code in dll like:

try
  SomeFunc;
  result:=true;
except
  result:=false;
end;

Do you need another model in context of ORM or just another root uri for method based service?
If you need just another root, you can create TSQLRestServer inherited from TSQLRestServerFullMemory
TSQLRestServerOrders = class(TSQLRestServerFullMemory)
with constructor like

constructor TSQLRestServerOrders.Create(const aRoot: RawUTF8);
begin
  inherited CreateWithOwnModel([], false, aRoot);
end;
//... and change your code to
  FModel := TSQLModel.Create([], 'api');
  FService := TSSPOSRESTProcessor.Create(FModel);
  FOrders := TSQLRestServerOrders.Create('orders');
  FServer := TSQLHttpServer.Create(FPort, [FService, FOrders], '+', useHttpApiRegisteringURI);

Typo missing / before root?
'/root/PerfilService.getperfilesusuario'
edited:
just tested work with and without '/', check some typo

For MVC app you can add parameter CustomOutHttpHeader to your public methods. @ab add this future when I need  response header for htmx application.

procedure TMyMVCApplication.Test(... , out CustomOutHttpHeader: RawUtf8); 
begin
  ...
  CustomOutHttpHeader := 'HX-Retarget: #dialog';
end;

-dFPC_LIBCMM -dFPC_LIBCMM_NOMSIZE

Declared in SynCommons.pas, do you mix old and new pas files?

Port 465 for SMTP with SSL/TLS encryption? Do you build same app bitness (32/64). Check your dll bitness if you use openssl.

mormot.db.proxy.pas

Yes it is right approach. Just note, TSQL*ConnectionProperties is connection pool, not real db connection! Real db connection is TSQL*ConnectionProperties.ThreadSafeConnection and is created for your running thread. This connection is keep open and reuse for every call in same thread, because db connect is time expensive. I you really need to close thread connection you can call TSQL*ConnectionProperties.EndCurrentThread at the end of your interface/method.

You need to change record to packed record, also change Name type from string to RawUtf8 type.

All main developers work together including @bellard and @chqrlie and plan to merge all changes in one repo.

Sorry Daniel, not a answer to your question, just use this topic for info of fork of quickjs where continue development of this lib.
https://github.com/quickjs-ng/quickjs
Some projects using quickjs switch to this fork. Any plan for mormot?

56*(8-1)=392 db connections

Hi @itSDS,
0. Can you check/compare M1/M2 context.json, http://localhost:888/root/wrapper/context
1. Yes, depend of mustache template. I'm not sure that is possible correct order of types. I only look at SMS template to convert to pas2js template and in this template first is created all enums, then all record, then all arrays. Manuel modification is needed (reorder types) in created client.
2. Check 0. In M2 context we have all nested records/arrays as temporary type. This is needed for client that don't support nested types. Pas2js support nested records and arrays from some version, but don't support nested array of nested record and we need this temp types

// New Delphi/FPC version support
TPeople = packed record
  MyArr: array of record
                 name: RawUtf8;
               end;
end;
// in Pas2JS, must be transformed to
TTmp1 = record
  name: RawUtf8;
end;
TMyArr2 = array of TTmp1;
TPeople: TMyArr2;

This temp types also simplify code to all helper variant2* *2variant functions, if you use this types.
Some changes must be done in template if you don't need this temp types. Looking at context.json

					"nestedRecord": {
						"nestedRecord": null,
						"fields": [
							{
								"typeWrapper": "wRawUtf8",
								"typeSource": "RawUtf8",
								"typeDelphi": "RawUtf8",
								"typePascal": "String",
								"typeCS": "string",
								"typeJava": "String",
								"typeTS": "string",
								"typeSwagger": {
									"type": "string"
								},
								"propName": "Name",                 <---
								"fullPropName": "CatNested.Name",   <---
								"nestedIdentation": "  ",          
								"isSimple": true
							},

You can change in template fullPropName to propName, depend what you need to be generated.
I tested only on FPC and Pas2JS template. Delphi testing is needed and all clients templates.
It is good to add field isNested: true to all anonymous temp types to be able to create or not code for this types in template!

@ab, I create pull request
@rdevine, I update pull request
This type of interface is tested

  TSex = (cMale, cFemale);

  TCat = packed record
    Name: RawUtf8;
    Sex: TSex;
    Birthday: TDateTime;
  end;

  TCatDynArray = array of TCat;
  TCat3Array = array[0..2] of TCat;

  TPeople = packed record
    FirstName: RawUtf8;
    LastName: RawUtf8;
    Sex: TSex;
    Birthday: TDateTime;
    Cat: TCat;
    CatNested: packed record
        Name: RawUtf8;
        Sex: TSex;
        Birthday: TDateTime;
      end;
    Cat3: TCat3Array;
    Cats: TCatDynArray;
    CatsNested: array of TCat;
  end;

  ICalculator = interface(IInvokable)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FE}']
    function Add(n1, n2: integer): integer;
    function ArrayValue(const arrJSON: RawUtf8; ix: integer): variant;
    function CountArray(const jsn: RawUtf8): integer;
    function SumArray(const jsn: RawUtf8): double;
    procedure FullName(const aFirstName, aLastName: RawUtf8;
      var aFullName: RawUtf8; var aSize: integer);
    function CatIsMale(const aCat: TCat): Boolean;
    function GetCat: TCat;
    function GetPeople(aId: integer; var aPeople: TPeople): Boolean;
    function AddPeople(const aPeople: TPeople): integer;
    function AddCat2People(const aCat: TCat; var aPeople: TPeople): boolean;
  end; 

With this changes created client need only 2 manual changes, move array types before TPeople record and Replace All nested type names with correct type name.
In https://github.com/TTomas/mORMot-Web/tr … Pas2JSTest you can view context.json and exported client mORMotPas2JsClientExport.pas and edited mORMotPas2JsClient.pas.
I try version without helper record/array function, In GetPeople onSuccess to use

      onSuccess(TPeople(res[0]),Boolean(res[1]));

For simple types we can use this casting, but Birthday TDateTime field will be corrupt in pas2js. After this type of casting this field is no longer TDateTime (double/Number) but String (mormot serialize as iso8601) and using any datetime function is broken. This is JS world!
Using helper functions everythig is OK. Template is modified SMS and still there is a lot of SMS code in template. Need more testing on different structures.
@ab we need correct type naming for temporary nested fields (CatNested/CatsNested).