mORMot Open Source

I have noticed that the following works:
if MemberExists(TOrmsometing,0) then ....
but the following does not:
Delete(TOrmsometing,0)

Is it possible in mormot.orm.sql line 1317 to allow zero IDs to be deleted through orm?

function TRestStorageExternal.EngineDelete(TableModelIndex: integer;
  ID: TID): boolean;
begin
  if (ID <= 0) or
     (TableModelIndex < 0) or
     (Model.Tables[TableModelIndex] <> fStoredClass) then
    result := false

Thank you in advance

Is it possible to have sqlite generated columns as described here for an Torm in order to be used in queries?

https://www.sqlite.org/gencol.html

Which is the proposed way to create them (if it is possible)?

I tried to request the same with different approaches from two different TRestServerDB, one sqlite memory tables (Srv1) and one that maps to a Mariadb database(Srv2).
I noticed the following differences:
a. Using RetrieveListJson and MultiFieldValues, the Srv1 does not recognize the field name 'ID' (raises exception) and only works with field name 'RowID'. In contrast, Srv2 accepts without exceptions both field names 'ID' and 'RowID' but it always returns the field name 'ID' in json.
b. Running a query with ExecuteJson([Tormtable],'select * from table where field=1'), the Srv1 does NOT return the RowID field in json, in contrast the Srv2 returns it as 'ID'
c. Using again ExecuteJson the query 'select RowID from table' works for both Srv1 and Srv2, but Srv1 returns RowID and Srv2 returns ID as row id field name.
d. Using again ExecuteJson the query 'select ID from table' works only for Srv2, and Srv1 raises exception.

The above are helpful with what we expect to be returned.

I am trying to use the following code:
var b:boolean=true;
bi:TFieldBits=ALL_FIELDS;
ee:TormMyclass
begin
ee.GetJsonValues(true,b,bi);

I am getting exception in TResultsWriter.AddColumns(aKnownRowsCount: integer);
in line 2824:
      len := PStrLen(PAnsiChar(c^) - _STRLEN)^; // ColNames[] <> ''
Colnames is:
('"RowID":', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', 'yid', 'erid', 'dat', 'rid', 'xxID', 'typ', 'person', 'sim', 'pd', 'uvd', 'aym', 'ser', 'endata', 'uFdata', 'user')

Thank you in advance

I tried today to include a part my code with mormot2 in a delphi package.
During compile I am getting an error [dcc32 Fatal Error] mormot.db.raw.sqlite3.pas(1): F2084 Internal Error: GH8402 and a message box that it can not find the file in the package directory path(????)
I have tried to included it as a unit with its directory path in uses list, but the error persists

I have read problems concerning include it in a dll, but is it free of problems with a delphi package?

Trying to use the Angelize, I noticed that a default settings file is created when it runs for the first time.
When adding the first child service, the Servicename of angelize is changed to the name of the first child service.
That causes trouble if it is already installed with an other name, by modifying the main angelize settings file: you can not uninstall it, as the angelize service name has been changed.
Probably this change in the angelize servicename should not happen if the main angelize sevice is already installed as a service

Also I did not understand how to deal with the following case:
I have a child windows service executable that I want to be monitored/controlled by agl.exe.
I am adding it with agl's /new parameter and after that I install it as windows service by calling agl.exe with /install parameter?
With the above, the agl is installed as a windows service with the service name of the child service and the child windows service is not installed and can not be run.

How do you propose to deal with?
Thank you in advance

I am using thttprequest from mormot2 inside a service to get response from an external API and I am using Tcurlhttp to do the connection (plus the  USELIBCURL directive in the project's optionst)
The same code is compiled with delphi (windows) and FPC(Linux Ubuntu).
In windows it works OK with libcurl.dll v8.1.2.0 but in ubuntu linux (v7.81.0) I am getting the following error:

libcurl error 56 (Failure when receiving data from the peer)

I do not believe it is the difference between the curl version, because running the request from command line in linux, it works and it does not provide any error
The problem has probably to do with the input headers I add, as removing a header gives responce back.
I am adding the following way the headers:

headers:='Authorization: Basic '+BinToBase64(uname+':'+passw)+#10+'api-key: '+applkey+#10;
for n:=0 to high(headername) do
    headers:=headers+headername[n]+': '+headervalue[n]+#10;

I noticed that leaving Authorization only, or api-key only, I get no curl error, but the usual response page from the rest server requesting both. The rest server I am contacting is not mormot.
it seems not be an FPC problem, compiled in windows 64bit with FPC it works OK.

Does anyone can imagine a reason for this behavior of curl in linux when used through mormot?

@ab is mormot2 using its own code-library for curl, and not ubuntu's curl?
Thank you in advance

I am using Postgresql as external database and with TbatchRest I can not use the boInsertOrReplace option (as it is allowed with Mysql) due to different SQL syntax.
@ab recommends to use TbatchRest even in the server side, as it is more fast using multiple records inserts in one sql command.
Sometimes, a number of records in the batch could exist already in the db table and need an update. Or, we do not know if a record with the same primary key exists already and we have to replace it.
How do you deal with this situation in the server side?

With Mysql I was very satisfied as boInsertOrReplace and Mormot do the job with just a change in the first word in the query.
Now, with postgresql, I am not sure what is better....
Include delete commands in the batch for all records that they are going to be inserted after that?

How do you deal with that situation and what do you propose?

Edit: The records to be inserted have a predefined primary ID and it is not filled by mormot or the datase

I am trying to transform a legacy desktop application to a service based on Mormot2 and a GUI windows application
To have asynchronous communication between GUI and Service I am using websockets following the rest-websockets example in ex dir of mormot2
The problem is that this transformation happens in small steps. During this transformation I am using a TRestServerFullMemory with the method interfaces without an http server inside the legacy application
What should I use as client rest interface when creating the callback interface?
callback := TLongWorkCallback.Create(Client, ILongWorkCallback);

I am using the following:

  ImwbCallback = interface(IInvokable)
    ['{E59F752F-E961-4493-95A8-A5302CD1D857}']
    procedure LogMain(const typ:Integer; const msg:string);
  end;

  ImwbService = interface(IInvokable)
    ['{BC6964B7-3D10-4EFB-962E-45348AD71DA9}']
    procedure StartWork(const PrID: int64; const onFinish: ImwbCallback);
  end;
   
  TmwbCallback = class(TInterfacedCallback, ImwbCallback)
    protected
    procedure LogMain(const typ:Integer; const msg:string);
  end;

begin
memsrv:=TRestServerFullMemory.Create(TOrmModel.Create([],rooturl)); 
memsrv.Model.Owner:=memsrv;
memsrv.server.CreateMissingTables;
memsrv.ServiceDefine(TmwbService,[ImwbService],sicshared).ByPassAuthentication:=true;
memsrv.Resolve(ImwbService,wbService);
callback:=TmwbCallback.Create(memsrv, ImwbCallback);
wbservice.StartWork(myid,callback);

The above seems to work and I am getting callbacks, but there are cases where error is produced saying the client has been disconnected.
What can cause this "disconnection"? if the above is "illegal" what should I do to have callbacks that will work the following day when my app's transformation is finished?
Thank you in advance