mORMot Open Source

p^.Value.Kind is rkBool
p^.Prop^ is shown as TRttiProp but I can not have any of each properties in the debugger, and evaluating it as expression in the debugger I am getting "TRttiProp ()"

You had right, I tried to find out what caused this error and I found it:
I had a THttpClientSocket object with an unauthorized interface service to create a JWT when needed without destroying and recreating the service interface. If more than 65 secs passed without using it and a request is done after that, using it, the above exception is created.

using OnAuthentificationFailed with result (true/false) and changing TRestClientUri.SessionHttpHeader it does not work
Also, SessionHttpHeader is added to headers once before the loop of OnAuthentificationFailed

Also:
[dcc32 Error] mormot.app.daemon.pas(868): E2016 Array type required

Example httpServerRaw with FPCUSEVERSIONINFO  enabled in FPC 3.2

Verbose: Compiling C:\delphi\G\mORMot2\src\app\mormot.app.console.pas
Verbose: Compiling C:\delphi\G\mORMot2\src\core\mormot.core.base.pas
Verbose: Compiling C:\delphi\G\mORMot2\src\core\mormot.core.os.pas
mormot.core.os.posix.inc(31,9) Error: Duplicate identifier "FileInfo"
mormot.core.os.posix.inc(31,9) Hint: Identifier already defined in mormot.core.os.pas at line 2602
mormot.core.os.pas(8357,0) Verbose: There were 1 errors compiling module, stopping

The service daemon with the last updates works perfectly. I noticed that if you just run from the command line the service executable without options I can log an exception from the windows' Tservice but it is harmless.

Another point that needs to be handled better in windows is the platform independent commands in mormot.core.os to run an executable from a mormot server (RunProcess, RunCommand, etc)

In my scenario, the service periodically looks for updates. If it finds an available update, it downloads it and runs an other executable to do the update, the ServiceUpdater.
I have created this executable, the ServiceUpdater, using mormot framework that stops the service, unzips and replaces the executable and re-runs the service.
This executable does not work, if the services runs it. It waits for the service to stop till timeout.
Looking the code, I noticed that all mormot's commands from windows are based on Createprocess where the host process can not end before the executed process

I change the mormot's RunProcess/RunCommand to ShellExecute with command 'open' and now the service stops and the ServiceUpdater can continue to do the update.
Probably it could be included for windows. I will test this situation also in linux.

OK Thanks a lot

Thank you @ab, it works now

Clean from github, last commit + the code you requested above
Alexandria 11.2 patch1
Only added win64 target

https://gist.github.com/dkounal/63adc5a … 01c26c29a9

I tried it the weekend and I noticed that it creates an exception when trying to create the service
mormot.core.windows.inc

function TServiceController.Start(const Args: array of PChar): boolean;
begin
  if length(Args) = 0 then
    result := StartService(fHandle, 0, nil)
  else
    result := StartService(fHandle, length(Args), @Args[0]);
end;

tried admin account, same problem

Problem found again today. From logs it happens after mormot2 enters zeos' pas units, after exceptions to other sql queries and probably due to the sqlwriter that creates the query for zeos.
Reported to zeos forum and waiting approval. To be honest, I feel uncertain using zeos for the future.
I transformed most insert queries to Trestbatch where insert ignore is available. Anyway time penalty with memberexists is the same.

Finally Orm.WriteLock/WriteUnLock when used in other parts of my program when multiple threads call add in the same table probably the same record (same IDValue). I also defined the ZEOS_DISABLE_POOLED directive in zeoslib
Just wondering why the following lock that exists in Orm.InternalAdd does not help and I have to use Orm.WriteLock/WriteUnLock

  fRest.AcquireExecution[execOrmWrite].Safe.Lock;
  try
    // may be within a batch in another thread -> use execOrmWrite lock
    result := EngineAdd(t, json); // will call static if necessary
  finally
    fRest.AcquireExecution[execOrmWrite].Safe.UnLock;
  end;

I am using Mariadb with

AcquireExecutionMode[execOrmGet]:=amBackgroundThread;
AcquireExecutionMode[execOrmWrite]:=amBackgroundThread;

From a small search, INSERT IGNORE is supported by SQLITE, postgres, Oracle, mysql, mariadb,firebird
SQLITE,mysql : INSERT IGNORE
Oracle: INSERT .... IGNORE_ROW_ON_DUPKEY_INDEX
Firebird: UPDATE OR INSERT

For Oracle there is enough info:
https://blogs.oracle.com/sql/post/how-t … e-database
http://guyharrison.squarespace.com/blog … -hint.html (old article)

Reading the following response from overflow:

Probably an insertOrIgnore (or an extra boolean flag in add to add 'or ignore') is better for this case and it is supported by sqlite

The definition is:

lowr:ilist<TepGenericSlave>;

The creation is:

lowr:=Collections.NewList<TepGenericSlave>;

The pop is used like the following and produces exceptions:

TepGenericSlave=class
....

obj:=TepGenericSlave.create;
...
repeat
...
lowr.Pop(obj,[popFromHead]);
...
until ....;

The pop is used like the following and does not produce exceptions:

TepGenericSlave=class
....

obj:=TepGenericSlave.create;
...
repeat
...
obj:=nil;
lowr.Pop(obj,[popFromHead]);
...
until ....;

shortstring was renabled in 10.4
CE license can not be renewd from what I read, you have right they are problematic.
You uninstall it and you reinstall it with registry cleared

https://stackoverflow.com/questions/666 … ith-sydney

Just an other problem with RetrieveListJson and LIMIT/OFFSET
I am running the following command:

srvdb.Orm.RetrieveListJson(TormRepErrors,'dat > :(20220913): AND dat < :(20220925): ORDER BY dat DESC LIMIT 20 OFFSET 0',[],'*');

The query returned by mormot.orm.sql 's TRestStorageExternal.AdaptSqlForEngineList(var SQL: RawUtf8): boolean; is

select ID,dat,typ,mid,termnam,mariadbver,pchrver,user_ as user,ctid,app,uid,dver,build,msg from reperrors where dat>:(20220913): and dat<:(20220925): order by dat desc limit 20

The next page will be retrieved with

srvdb.Orm.RetrieveListJson(TormRepErrors,'dat > :(20220913): AND dat < :(20220925): ORDER BY dat DESC LIMIT 20 OFFSET 20',[],'*');

But now the query returned by mormot.orm.sql 's TRestStorageExternal.AdaptSqlForEngineList(var SQL: RawUtf8): boolean; is

SELECT RowID,dat,typ,mid,termnam,mariadbver,pchrver,user,ctid,app,uid,dver,build,msg FROM RepErrors WHERE dat > :(20220913): AND dat < :(20220925): ORDER BY dat DESC LIMIT 20 OFFSET 20

Can you notice that the first return is "ID" but in the second it is returning a "RowID"? it seems that in the second, it does not "touch" the initial query.
The problem is that resulting JSON has different the first field if searched by name