mORMot Open Source

Hello everybody , I am encountering an issue when stopping my server, which is built using mORMot2. When I close the server, I get the following exception:

  ! EXC ERestException {Message : "TMYRestServerDb.destroy : TRestOrmServerDb.RefCount = 201"} [Main] at 68ad63

Hello everyone,

I’m facing an issue when executing custom SQL queries using methods like `.Execute()`or `.ExecuteJSon()`. Every time I run a custom query, a new connection is created to the database, which is causing performance issues and overwhelming the database (postgress) with too many open connections.

- I need to execute custom SQL queries (e.g., complex `SELECT` statements with `JOIN`, `WHERE`, etc...) that cannot be easily expressed using the standard ORM methods
- When I use `Execute`or `ExecuteJSON`, a new connection is created each time, which is not efficient.
- This results in too many open connections, impacting performance and potentially hitting the database's connection limit.

Example of My Query:
there're more complexe queries  than this one :

function TNSAServ.FetchOrderDetails(ACustomerID: RawUtf8): RawUtf8;
var
  Query: RawUtf8;
begin
  Query := FormatUtf8(
    'SELECT o.OrderID, o.OrderDate, c.CustomerName, p.ProductName, p.Price ' +
    'FROM Orders o ' +
    'JOIN Customers c ON c.CustomerID = o.CustomerID ' +
    'JOIN Products p ON p.ProductID = o.ProductID ' +
    'WHERE o.CustomerID = % ' +
    'ORDER BY o.OrderDate DESC',
    [ACustomerID]);

  // Execute the query and return the result as JSON
  Result := fServer.ExecuteJson([], Query );
end;

In this example, the query retrieves order details for a specific customer by joining three tables (`Orders`, `Customers`, and `Products`). However, each call to `ExecuteJson` creates a new connection, which is not optimal.

Hello everyone,

I am encountering an issue when attempting to use RTTI (Run-Time Type Information) in Delphi to convert a record into a dynamic TDocVariantData. My goal is to loop through all fields or properties of a record and dynamically build a variant structure.

function RecordToDocVariant<T>(const ARecord: T): Variant;
var
  Ctx: TRttiContext;
  Typ: TRttiType;
  Prop: TRttiProperty;
begin
  Result := TDocVariantData.New;
  Ctx := TRttiContext.Create;
  try
    Typ := Ctx.GetType(TypeInfo(T)); // Retrieve RTTI for type T
    if Typ = nil then
      raise Exception.Create('RTTI not available for the type');

    for Prop in Typ.GetProperties do
    begin
      Result.AddValue(Prop.Name, Prop.GetValue(@ARecord).AsVariant);
    end;
  finally
    Ctx.Free;
  end;
end;

Example Call
Here’s how I’m calling the function:

var
  MyRecord: TMyRecord;
  DocVariant: Variant;
begin
  MyRecord.ID := 123;
  MyRecord.Code := 'ABC123';

  DocVariant := RecordToDocVariant<TMyRecord>(MyRecord);
  WriteLn(DocVariant.ID);      
  WriteLn(DocVariant.Code); 
end;

I've been banging my head against the wall for the past few hours trying to get TRestHttpServer working with HTTPS. Every time I try to start the server, it fails with this error:

! OSERR    mormot.rest.http.server.TRestHttpServer(035F7860) http.sys URI registration error #183 for https://+:xxxx/root
! EXC      ERestHttpServer {Message:"TRestHttpServer: http.sys URI registration error #183 for https://+:xxxx/root"}

Here's what I'm trying to do:

MyServer.HttpServer := TRestHttpServer.Create(
  xxxxx,   
  [MyServer], 
  '+', 
  HTTP_DEFAULT_MODE, 
  16, 
  secTLSSelfSigned
);

I'm running the app as admin, and I've tried different ports and using '*' instead of '+' for the binding address, but no luck. The weird thing is that it works fine if I remove the HTTPS stuff, but I really need secure communication for this project.
I've looked through the documentation and searched the forum, but I can't figure out what I'm missing. Is there some special setup needed for HTTP.sys when using self-signed certificates? Or am I doing something completely wrong with the TRestHttpServer creation?