mORMot Open Source

SRY i have to test again, i have to define FORCE_OPENSSL in my dproj

Ok with 64 Bit Windows the Error is a little bit other displayed, but from the content the same

20251212 09343114  % EXC   ESChannel {Message:"recv: Handshake aborted"} [R3:IMSYS ThumbnailCache BinaryD] at 01091990 mormot.net.sock.windows.inc TSChannelNetTls.FreeAndCheckSocket (2057)  {8 3.47 3.68 1 19.4GB/63.9GB 23f00f01}

I testet it with OpenSSL (USE_OPENSSL defined) same error, is there anything more i have to do to activate openssl ?

Thank you it works

Thank you I found the solution: I had to to set AServer.RootRedirectGet which wasn’t required before.

One Question where can i set this Option globally ?

atm i us a SOA call which gives blob for guid to solve problem

Hi Arnaud, via ChatGPT i found this and it seems to help:

In Registry:
HKEY_CURRENT_USER\Software\Embarcadero\BDS\22.0\Debugging

Add EnableWaitChainDetection as DWORD with value 0

it disables the Thread Wait Chain Feature from Delphi.

After a long time i had to debug my m2 service with 64Bit again today.

and there is a delay of 55s at the moment. Starting Service in RS 12.3 64Bit Debugger

https://imgtr.ee/image/image.SE1M

Using the 32Bit exe with RS 12.3 Debugger it only takes 1s at the same function

Int the Picture there is a gap in the log at 12:14:12.528 -> 12.15.02.944 of 50s I don't know what the programm does at this point ???

Hi i found the Error

My Enum is like this:
TEinheitEnum = (
first,
second,
third,
fourth
);

in class constructor i set member fEinheit to "third" (Because i like it initialized with third value) The Enum is kind of sorted
Now in client its set to "first"

if its set to first, the value is missing in JSON - Data send to server (as you said its optimized)
Because of this the expected Value is not sent to server.

As Solution i put my desired default value in top of enum
enum is now : (third, first, second, fourth)
It does not look good, but it works now.

Hi Arnaud,

i have the same problem in
TRestServerUriContext.InternalExecuteSoaByInterface

Here you call DoLog and DoLog cuts the the received string, is it possible to add something like LogResponseMaxBytes here ?
Else i have to look at client Log what's send and this is not possible in many times.

I too asked this question long time ago and actually using SynCrossPlatform Client with some Patches. It works generally great.

The Problem is that you have to generate special Client.pas Unit from Server. And it would be great if this step can be removed.
for the iOS/Android it is not neccessary to port the whole m2. only the client stuff and rtti because i think no one will make a server on mobile platform.

Hi Arnaud, ty for your patch.

Today we wanted to see the Result of a SOA Call in Log. In former Versions there was the complete JSON Array.
In the new m2 there is only 1 line saying Response with 1.7MB

Is it possible to add the complete JSON to Log again. We need it to debug problems. Log Size and Performance does not matter in our case ! More important is to log the Information.
A switch to enable / Disable Big Data would be ok too.

Hi As BUGFix i commented the Lines 1539-1541 in mormot.rest.mvc

  result := fContext.Validate(
    cookie, PRecordData, PRecordTypeInfo, PExpires, nil, Invalidate);
//  if result <= 0 then
//    // delete any invalid/expired cookie on server side
//    Finalize;
end;

I think both Variants are to complicated. I genereate ContentSecurityPolicy in GetViewInfo which generates 2 Nonce Values for script and style
This both values i give to mustache {{main.cspnonce}}

if i use callback it is called after mvc, how could i add my nonces to main.xy ?
if i use ttomas version i have to add my code to every function, i have a lot

To make it easy, i made a little patch to TRestUriParams and added a new value: ContentSecurityPolicy

   LowLevelUserAgent: RawUtf8;
    /// itSDS: für ContentSecurityPolicy !
    ContentSecurityPolicy: RawUtf8; // itSDS
    /// initialize the non RawUtf8 values
    procedure Init; overload;

Then i added a little bit of code to mormot.rest.http.server.pas

  call.LowLevelUserAgent := Ctxt.UserAgent;
  call.ContentSecurityPolicy := ''; // itSDS
  if fHosts.Count > 0 then

  Ctxt.OutCustomHeaders := call.OutHead;

  if call.ContentSecurityPolicy <> '' then // itSDS
    Ctxt.AddOutHeader(['Content-Security-Policy: ', call.ContentSecurityPolicy]);

  if call.OutInternalState <> 0 then

what do you think ?