mORMot Open Source

Google suggests the most used term.

But i think that both are correct.

In description itself mentions "out of synch".

Thanks for the improvements!

Just to confirm, about libcurl share interface. I check the code twice and the cookies are not being shared, correct?

It is important that this behavior does not change.

Great news!

Thanks ab for everything.

Lazarus + FPC to Win32 = All green 47,79s
Lazarus + FPC to Win64 = All green 38,50s

Delphi 10.3 to Win32 = All green 51,47s
Delphi 10.3 to Win64 = All green 46,17s

Thanks @okoba and @ab for these tests and improvements.

@okoba any particular reason for using the "aliases" for classes in V2?
Example TSQLRest instead of TRest.

As described in the documentation, it is not recommended to use late binding in Lazarus / FPC.

Use TDocVariantData.
You can cast the Variant with TDocVariantData(V).Add ..., or use a TDocVariantData directly.

var
  D : TDocVariantData;
  V : Variant;
...
  D.Init();
  D.A_['id'].AddItem(1);
  D.A['id'].AddItem(2); 
  writeln(D.ToJSON());       //'{"id":[1,2]}'


  //using with
  D.Init();
  with D.A_['id']^ do
  begin
    AddItem(1);
    AddItem(2);
  end;     
  writeln(D.ToJSON());       //'{"id":[1,2]}'


  //Casting the variant
  V := _Json('{id:[]}');
  TDocVariantData(V).A['id'].AddItem(1);
  TDocVariantData(V).A['id'].AddItem(2);
  writeln(VariantSaveJSON(V)); //'{"id":[1,2]}'

There doesn't seem to be a size limit problem, because:

- This text is not so long.
- You mentioned that you've already saved bigger text without a problem.
- If you remove the "UIDCotacao" parameter, the error does not occur.

I will try to do a test here

I will test this.

As the database is SQLite I need to check if using as external will not modify any existing behavior.

My bad. I forgot to change "AType" in text definition, and thought that mORMot did not support reserved words in decoding.
I tested it now and it works perfectly.

Regarding the original question of the post, it seems that there is really no way to do this, since the parser only accepts "array of" simple or record types.

So "array of array of" will not work.
And "array of TDoubleDynArray" will not be accepted.

If you cannot modify the json structure, then you will have another problem with the "type" property, which is a reserved word.

Another option is to create a TSQLRestRoutingREST to be used by the service and override the ExecuteSOAByInterface method to handle the error.

Using this approach, I can send a custom error and messagem on an interface-based service.

However, since you want to validate the type of data, it would be best to use method-based services.

I prefer RawUTF8, because it is easy to know the origin of the type.

When looking at the source there is no doubt that it is the type added by mORMot.

Perfectly understood.

The first fix had already worked for me, both in the test project, and in the real application.

This is also working, and it seems in fact the most logical place to put the waitfor.

I hope it also resolves for @mpv.

Unfortunately you are correct.

The fix worked with the test project I put in the first post (I checked again and it works).

But with the real application the same error occurs.

For now I will leave the workaround of removing the servers before finalizations of httserver.
So I don't have to modify the SynCrtSock.

 AHTTPServer.Shutdown();
  while AHTTPServer.DBServerCount > 0 do
    AHTTPServer.RemoveServer(AHTTPServer.DBServer[0]);  

At the moment I still can't use Linux as the main OS.

With WLS2, this is on my list trying to install Ubuntu with GUI support as Windows Subsystem.

Edit:
After upgrading to WSL2, I was able to activate the graphical interface in Ubuntu, and installed FPC + Lazarus with fpcupdeluxe.

At least on my machine the performance was better than via VirtualBox.

For anyone interested:

https://docs.microsoft.com/en-us/window … tall-win10
https://dev.to/darksmile92/linux-on-win … a-rdp-522g

Ok. thanks for the info.

Some findings:

- As pointed by pvn occurs with httpApi only.

- It is not directly related to the logs, any routine that adds a small delay to EndCurrentThread, such as a writeln will cause the error.

- Maybe it's a race condition problem.

It is difficult to debug. Because the debug itself can prevent the race condition from occurring.

I sent a pull request with the workarround to remove the DBServers on  Destroy.

Forcing the addition of the double escape is wrong.

What is the client code to send the request?
There must be something wrong with the code that is not escaping.

Make a test request with the postman or with the Rest Debuger (free tool from Embarcadero).

Converting to variant is necessary if you want easy access to Json values.

The double scape must be done by the client.
In other words, in CTxt.Call^.InBody you should already receive with the double scapes.

In your post, you informed that it is arriving without the double scape, so it was suggested to apply the double scape.

@damiand

Please see if this thread applies to your case:

https://synopse.info/forum/viewtopic.php?id=5691

Thanks @mpv

Solved by upgrading libcurl.

PS: Really weird the AV

Thanks @Vitaly

This instability in Delphi 7 occurs only when the unit is open?
Or the simple fact of including it in the uses already generates instability?

If you use cnpack there is an option to highlight the words that are in the cursor.
This makes the editor very slow on units with many lines.
There is an option in the cnpack settings to disable this in units with more than x lines. It can help ...

Furthermore, I fully agree to focus mORMo2 on FPC and newer versions of Delphi.

Now I understand what you mean.

I use packages in an application (which does not use mORMot).
I use both forms, at runtime (for core) and dimamically (plugins).
But the core packages are loaded by the exe, not by bpl.

To create a modular (GUI) application packages are an excellent option without a doubt.