mORMot Open Source

unit Shared;

interface

const
  ROOT_NAME = 'root';
  PORT_NAME = '888';
  APPLICATION_NAME = 'TestMormot';

type
  ITest = interface(IInvokable)
    ['{35F48518-9622-448C-9670-18B77EBD9179}']
    procedure TestProc(out AWStr: WideString; out AWBool: WordBool);
  end;

implementation

uses mORMot;

initialization

TInterfaceFactory.RegisterInterfaces([TypeInfo(ITest)]);

end.

program TestMormotServer;

{$APPTYPE CONSOLE}

uses
  {$I SynDprUses.inc}
  SysUtils,
  Classes,
  SynCommons,
  mORMot,
  mORMotHttpServer,
  Shared in 'Shared.pas';

type
  TServiceTest = class(TInterfacedObject, ITest)
  public
    procedure TestProc(out AWStr: WideString; out AWBool: WordBool);
  end;

procedure TServiceTest.TestProc(out AWStr: WideString; out AWBool: WordBool);
begin
  AWStr := 'test';
  AWBool := False;
end;

var
  Model: TSQLModel;
  Server: TSQLRestServer;
  HTTPServer: TSQLHttpServer;
begin
  Model := TSQLModel.Create([], ROOT_NAME);
  try
    Server := TSQLRestServerFullMemory.Create(Model, 'test.json', false, True);
    try
      Server.ServiceDefine(TServiceTest, [ITest], sicShared);
      HTTPServer := TSQLHttpServer.Create(PORT_NAME, [Server], '+', useHttpApiRegisteringURI);
      try
        Writeln('server started');
        Writeln('press enter to exit');
        Readln;
      finally
        HTTPServer.Free;
      end;
    finally
      Server.Free;
    end;
  finally
    Model.Free;
  end;
end.

program TestMormotClient;

{$APPTYPE CONSOLE}

uses
{$I SynDprUses.inc}
  SysUtils,
  Classes,
  SynCommons,
  mORMot,
  mORMotHttpClient,
  Shared in 'Shared.pas';

var
  Model: TSQLModel;
  Client: TSQLRestClientURI;

procedure TestProc;
var
  Test: ITest;
  I: Integer;
  WStr: WideString;
  WBool: WordBool;
begin
  if Client.Services['Test'].Get(Test) then
    try
      Writeln('client started');
      for I := 0 to 1000 do
      begin
        Test.TestProc(WStr, WBool);
        if (WStr <> 'test') or WBool then 
          Writeln(Format('%s <> ''test''', [WStr])); //here raised accees violation
      end;
    finally
      Test := nil;
    end;
end;

begin
  Model := TSQLModel.Create([], ROOT_NAME);
  try
    Client := TSQLHttpClient.Create('localhost', PORT_NAME, Model);
    try
      Client.ServerTimeStampSynchronize;
      Client.SetUser('User', 'synopse');
      Client.ServiceDefine([ITest], sicShared);
      TestProc;
    finally
      Client.Free;
    end;
  finally
    Model.Free;
  end;
  Writeln('press enter to exit');
  ReadLn;
end.

procedure InternalProcess;
...
  case ValueType of
    smvBoolean, smvEnum, smvSet, smvCardinal:
      case SizeInStorage of
        1: PByte(V)^     := GetCardinal(Val);
        2: PWord(V)^     := GetCardinal(Val);
        4: PCardinal(V)^ := GetCardinal(Val);
      end;
...
end;

fIncrementalSearch := fIncrementalSearch+RawUTF8(NormToUpper[AnsiChar(Key)]);

function Lock(aTable: TSQLRecordClass; aID: TID; aPurgeOlderThan: cardinal=30): boolean;