mORMot Open Source

Thank You @Ab.

Thank You @Ab for the reply. 

I  tried hard for hours to find out the exact reason for this issue, but my knowledge is limited, and could not find the actual reason for this issue.

But I assume it is something that is related to the initialization of the Object from JSON.

It can be easily reproduced on a mormot server using this code. (I am trying the Example of ex\ThirdPartyDemos\martin-doyle\04-InterfacedBasedServices\src)

FYI : using Delphi 10.3 community Edition

procedure TForm1.Button1Click(Sender: TObject);
var
  sTemp : RawUtf8;
begin
 Model := TOrmModel.Create([],'root');
 HttpClient := TRestHttpClient.Create('localhost', '11111',Model,false);
 HttpClient.ServerTimestampSynchronize;
 sTemp:= HttpClient.DefinitionToJson;

 if Assigned(Model) then FreeAndNil(Model);
 if Assigned(HttpClient) then FreeAndNil(HttpClient);

 Model := TOrmModel.Create([],'root');
 httpClient:=   TRestHttpClient.CreateFromJson(Model,sTemp,false) as TRestHttpClient ;
  HttpClient.ServerTimestampSynchronize;    // ERROR at this point
 if Assigned(Model) then FreeAndNil(Model);
 if Assigned(HttpClient) then FreeAndNil(HttpClient);
End;

Thank You for pointing out and surely will follow good programming practice.  Any good link\articles\Books that you can suggest for good Delphi Programming practices that you follow.

Thank You for your time and effort.

Perfect !!!!  It is working as expected.

Thanks, @ab for your support

Does it make sense in having a  read-only property for the RestHttpServer that exposes the current state (ExecuteState  (THttpServerExecuteState)) of the HTTP Server?

Also, in general, Is it better that I start a new thread when I have a specific issue?

In Mormot 1 this  is working  as expected  and is raising the exception when the port is consumed by any other service.
  Try
      HTTPServer := TSQLHttpServer.create(777),[RestSrvr]);
  Except
    on e:ECrtSocket do
       ShowMessage('Port is already in use. Please check  if any other program  is using this port and restart this Service.');
   End;

In Mormot 2 this is not working as expected and is not raising the exception when the port is consumed by any other service.
  try
       HTTPServer :=TRestHttpServer.create(777,[FRestSrvr]);
   Except
        on e: ECrtSocket do
           ShowMessage(e.message);
      End;
   
Can you please guide me if I am doing it wrong?  Is there some way to see if the RestHttpserver has started?

Thank You