mORMot Open Source

program Project1;

{$APPTYPE CONSOLE}

uses
  mORMot, mORMotSQLite3, SynSQLite3Static, System.SysUtils;

type
  IRemote = interface(IInvokable)
    ['{48FCB3D5-0992-48A4-ACFD-13FE652802FB}']
    function TestOK: TID;
    function TestError: TID;
  end;
  TRemote = class(TInterfacedObject, IRemote)
  private
    fClient: TSQLRestClientDB;
  public
    procedure AfterConstruction; override;
    function TestOK: TID;
    function TestError: TID;
  end;

var
  rServer, lServer: TSQLRestServerDB;
  rClient: TSQLRestClientDB;
  fRemote: IRemote;

procedure TRemote.AfterConstruction;
begin
  inherited;
  fClient := TSQLRestClientDB.Create(lServer);
end;

function TRemote.TestOK: TID;
var
  aContext: TSQLRestServerURIContext;
begin
  aContext := ServiceContext.Request;
  fClient.ServerTimeStampSynchronize;
  ServiceContext.Request := aContext;
  result := ServiceContext.Request.SessionUser;
end;

function TRemote.TestError: TID;
begin
  fClient.ServerTimeStampSynchronize;
  //ServiceContext.Request=nil here
  result := ServiceContext.Request.SessionUser;
end;

begin
  lServer := TSQLRestServerDB.Create(TSQLModel.Create([]), 'local.db3', false);
  lServer.CreateMissingTables();

  rServer := TSQLRestServerDB.Create(TSQLModel.Create([]), 'remote.db3', true);
  rServer.CreateMissingTables();
  rServer.ServiceRegister(TRemote,[TypeInfo(IRemote)],sicClientDriven);

  rClient := TSQLRestClientDB.Create(rServer);
  rClient.SetUser('User', 'synopse');
  rClient.ServiceRegisterClientDriven(TypeInfo(IRemote), fRemote);

  Writeln('TestOK result: ');
  Writeln(fRemote.TestOK);
  
  try
    Writeln('TestError result: ');
    Writeln(fRemote.TestError);
  except
    on E: Exception do
      writeln(E.Message);
  end;
  readln;
end.

TestOK result:
3

TestError result:
TInterfacedObjectFakeClient.FakeCall(IRemote.TestError) failed: '{
"errorCode":500,
"error":
{"EAccessViolation":{"EAccessViolation":"Access violation at address 00660ADF in
 module 'Project1.exe'. Read of address 00000120"}}
}'