mORMot Open Source

I initially made that change, but the WebSocket connection kept closing, and I encountered other types of opcodes...

So, I reverted to the original code, recompiled, and switched to the Microsoft Edge browser (the same one that was working on Windows).
Now it works without issues. It has been running for two hours and hasn't closed.

You were absolutely right; the problem was on the JavaScript client side.

Thank you very much for all your help.

Regarding "mORMot2 regression tests" on my M4 MacBook Air:

With the "OpenSSLMacA64.tgz" libraries you provided, everything now shows as OK. Thanks.

Total failed assertions across all test suites: 0/197,972,570

For the "echo" test program, I added the following "writeln()" statements:

function TWebProcessInFrame.GetHeader: boolean;
begin
  result := false;

  WriteLn('');
  WriteLn('Start GetHeader');

  if len = 0 then
  begin
    data := '';
    FillCharFast(hdr, SizeOf(hdr), 0);
  end;
  if not HasBytes(@hdr, 2) then // first+len8
    exit;
  opcode := TWebSocketFrameOpCode(hdr.first and 15);
  masked := hdr.len8 and FRAME_LEN_MASK <> 0;

  WriteLn('opcode: ', opcode);
  WriteLn('masked: ', masked);

  if masked then
    hdr.len8 := hdr.len8 and (FRAME_LEN_MASK - 1);
  if hdr.len8 < FRAME_LEN_2BYTES then
    hdr.len32 := hdr.len8
  else if hdr.len8 = FRAME_LEN_2BYTES then
  begin
    if not HasBytes(@hdr, 4) then // first+len8+len32.low
      exit;
    hdr.len32 := bswap16(hdr.len32);
  end
  else if hdr.len8 = FRAME_LEN_8BYTES then
  begin
    if not HasBytes(@hdr, 10) then // first+len8+len32+len64.low
      exit;
    if hdr.len32 <> 0 then // size is more than 32 bits (4GB) -> reject
      hdr.len32 := maxInt
    else
      hdr.len32 := bswap32(hdr.len64);
    if hdr.len32 > WebSocketsMaxFrameMB shl 20 then
      EWebSockets.RaiseUtf8('%.GetFrame: length = % should be < % MB',
        [process, KB(hdr.len32), WebSocketsMaxFrameMB]);
  end;

  WriteLn('hdr_mask: ', hdr.mask);
  WriteLn('hdr_first: ', hdr.first);
  WriteLn('hdr_len8: ', hdr.len8);
  WriteLn('hdr_len32: ', hdr.len32);
  WriteLn('hdr_len64: ', hdr.len64);

  if masked then
  begin
    len := 0; // not appended to hdr
    if not HasBytes(@hdr.mask, 4) then
      EWebSockets.RaiseUtf8('%.GetFrame: truncated mask', [process]);
  end;
  len := 0; // prepare upcoming GetData
  result := true;
end;

And it shows:

Start GetHeader
opcode: focPong
masked: TRUE
hdr_mask: 0
hdr_first: 138
hdr_len8: 0
hdr_len32: 0
hdr_len64: 0

Sometimes the error occurs and the WebSocket connection closes the second time "focPong" is executed; at other times, it happens the fourth time.

For the moment, I don't have another Mac computer.

That’s how I adjusted the package:

@Javierus , Thank you very much for all that number of examples, in addition to all the SAD documentation that you have provided.

I'm using FPC 3.2.3 (fixes) with Windows 11 and wanted to learn about HTTP Basic Authentication.
So I took the "08-basicauth" example, but I ran into the following issues:

1. It was showing a related error that "RegisterInterfaces" was missing...
   I fixed it by adding the following code to the "api.interfaces.pas" file:

   initialization
     TInterfaceFactory.RegisterInterfaces([TypeInfo(IBasicAuthApi)]);

2. Inside the Log file, an error related to "useHttpApiRegisteringURI" is displayed.
   "TRestHttpServer(06222840) Create: HttpSetServiceConfiguration() failed: ERROR_ACCESS_DENIED (5) for root - useHttpApiRegisteringURI may need admin rights"
   "EXC   ERestHttpServer {Message:"TRestHttpServer: http.sys URI registration error ERROR_ACCESS_DENIED for http://+:8080/root (you need to register the URI - try to use useHttpApiRegisteringURI)"}"
   I solved it by changing from "HTTP_DEFAULT_MODE" to "useHttpAsync"

     // Create HTTP server
     fHttpServer := TRestHttpServer.Create(aPort, [fRestServer],
       '+', useHttpAsync, {threaded=}32); 

3. It showed several memory leaks when exiting the program.
   I solved it by adding a variable "fModel: TOrmModel;" and you don't need to free "fBasicAuthApi"

     // Create in-memory REST server (no database needed)
     fModel := TOrmModel.Create([]);
     fRestServer := TRestServerFullMemory.Create(
       fModel, 'root', {authentication=}true); 
   
   destructor TBasicAuthServer.Destroy;
   begin
     Stop;
     fHttpServer.Free;
     //fBasicAuthApi.Free;
     fModel.Free;
     fRestServer.Free;
     inherited Destroy;
   end;

4. The program did not work correctly, with or without authentication it did not show the expected results. 
   After spending hours understanding how it worked, I found that the problem is with "methodName"

   For some reason "Ctxt.UriMethodPath" always returns empty.
   And within the code you have to:

     methodName := Ctxt.UriMethodPath;
     if methodName = '' then
     begin
       // Fallback to full URI
       methodName := Ctxt.Call^.Url;
     end;

   The problem is that it returns the entire Url.
   For example, we obtain that:
   methodName ="root/BasicAuthApi.PublicSection" , but it was expected that methodName ="PublicSection"
   methodName ="root/BasicAuthApi.OnlyRole2" , but it was expected that methodName ="OnlyRole2"
   methodName ="root/BasicAuthApi.OnlyRole1Json?par1=hello" , but it was expected that methodName ="OnlyRole1Json"

   I solved it by doing the following code (maybe not the best solution, but it works)

     methodName := Ctxt.UriMethodPath;
     if methodName = '' then
     begin
       tmpUrl := Ctxt.Call^.Url;
       mPosIni := PosI('.',tmpUrl) + 1;
       mPosEnd := PosI('?',tmpUrl);
       if mPosEnd >0 then
         mLen :=  mPosEnd - mPosIni
       else
         mLen := length(tmpUrl);
       methodName := Copy(tmpUrl,mPosIni,mLen);
     end;

Currently, the "DynArrayLoadCsv" function only allows csv file content to have a delimiter/separator ','.

IMHO, the function should have the option (not mandatory) to specify the delimiter/separator.

Respectfully, I propose changing the definition to: (It does not affect programs that have already been created.)

function TDynArrayLoadCsv(var Value: TDynArray; Csv: PUtf8Char;
  Intern: TRawUtf8Interning = nil; CommaSep: AnsiChar=','): boolean;

function DynArrayLoadCsv(var Value; const Csv: RawUtf8; TypeInfo: PRttiInfo;
  Intern: TRawUtf8Interning = nil; CommaSep: AnsiChar=','): boolean;

And its respective implementation code: (I've only changed the constant ',' to a variable "CommaSep: AnsiChar")

An example of using a CSV file containing the semicolon ';' delimiter/separator:

if DynArrayLoadCsv(csvItems, csvContent, TypeInfo(TCsvItems), nil, ';') then
begin
  
end;

IMHO, I agree with you.

Thanks.