mORMot Open Source

My Code:

type
  TTestItensVO = class(TCollectionItemAutoCreateFields)
  private
    fitems_id           : Integer;
    fitems_descriptions : RawUTF8;
  published
    property items_id               : Integer    read fitems_id                write fitems_id;
    property Itens_descriptions : RawUTF8 read fitems_descriptions  write fitems_descriptions;
  end;

  TTestItensVOSubVO = class(TInterfacedCollection)
   private
      function GetCollItem(aIndex: Integer): TTestItensVO;
    protected
      class function GetClass: TCollectionItemClass; override;
    public
      property Item[aIndex: Integer]: TTestItensVO read GetCollItem; default;
      function Add: TTestItensVO;
  end;

type
   TTestVO = class
  private
    fcode      : Integer;
    fname     : String;
    fanswers : String;
    ftotal      : Real;
    fitems     : TTestItensVOSubVO;
  published
    property code      : integer                    read fcode        write fcode;
    property name     : string                      read fname      write fname;
    property answers : string                      read fanswers   write fanswers;
    property total      : real                         read ftotal        write ftotal;
    property items     : TTestItensVOSubVO read fitems       write fitems;
    constructor Create;
    destructor Destroy; override;
  end;
.
.
constructor TTestVO.Create;
begin
  items := TTestItensVOSubVO.Create;
end;
destructor TTestVO.Destroy;
begin
  FreeAndNil(fitems);
  inherited;
end;
function TTestItensVOSubVO.Add: TTestItensVO;
begin
  result := TTestItensVO(inherited Add);
end;
class function TTestItensVOSubVO.GetClass: TCollectionItemClass;
begin
  result := TTestItensVO;
end;
function TTestItensVOSubVO.GetCollItem(aIndex: Integer): TTestItensVO;
begin
  result := TTestItensVO(GetItem(aIndex));
end;
.
.
procedure TFormTest.SBObjectListClick(Sender: TObject);
var
  StringJson : RawUTF8;
  ListObj      : TList;
  Itens         : Integer;
  Elements   : Integer;
  TestVO      : TTestVO;
begin
  StringJson :='[{"code": 1,"name": "Margaret","answers": "yes","total": 10,"items": [{"items_id": 1,"items_descriptions": "item1"},{"items_id": 2,"items_descriptions": "item2"}]},' +
               '{"code": 2,"name": "Mary","answers": "no","total": 20,"items":[{"items_id": 3,"items_descriptions": "item3"},{"items_id": 4,"items_descriptions": "item4"}]}]';
  ListObj    := JSONToObjectList(TTestVO,StringJson);
  try
    for Itens := 0 to ListObj.Count -1 do
      begin
        TestVO := ListObj[Itens];
        ShowMessage(TestVO.name);
        for Elements := 0 to TestVO.items.Count -1 do
         ShowMessage('Item: ' + IntToStr(TestVO.items.Item[Elements].items_id) + ' Descriptions: ' + TestVO.items.Item[Elements].Itens_descriptions);
      end;
  finally
    FreeAndNil(ListObj);
  end;
end;
this code error:
First chance exception at $00710079. Exception class $C0000005 with message 'access violation at 0x00710079: read of address 0x00000008'. Process Teste.exe (11100)

type
   TTestVO = class
  private
    fcode    : Integer;
    fname    : String;
    fanswers : String;
    ftotal   : Real;
  published
    property code    : integer read fcode    write fcode;
    property name    : string  read fname    write fname;
    property answers : string  read fanswers write fanswers;
    property total   : real    read ftotal   write ftotal;
  end;

var
  StringJson : RawUTF8;
  ListObj    : TList;
  Itens      : Integer;
  TestVO     : TTestVO;
begin
  StringJson :='[{"code": 1,"name": "Margaret","answers": "yes","total": 10},{"code": 2,"name": "Mirian","answers": "no","total": 20}]';

  ListObj    := JSONToObjectList(TTestVO,StringJson);

  try
    for Itens := 0 to ListObj.Count -1 do
      TestVO := ListObj[Itens];
  finally
    for Itens := 0 to ListObj.Count - 1 do
      TTestVO(ListObj.Items[Itens]).Free;
    FreeAndNil(ListObj);
  end;

I am trying to remove this object from memory and I have the following error:

"Invalid pointer operation."

I'm sending an object JSON with the POST method by ExtJs 6.01.
the object is inside request payload or (http request body).
I would like to capture the object with class(TSQLHttpServer) is possible?

How to create a restful class as using mormot
the TSQLHttpServer
but need to use restful, I use firebird and needed to have access to methods PUT / GET / DELETE
mormot are only example I use sqlite firebird

I have used directly as below but need RESTful.

unit UnitJson;

interface
uses
  SynCommons, mORMot, mORMotHttpServer,mORMotReport,
  System.SysUtils,Vcl.Forms, Winapi.Windows, System.Classes,Contnrs,XSBuiltIns,System.StrUtils;
type

  TMyService = class(TSQLRestServerFullMemory)

  published
    procedure myapp(Ctxt: TSQLRestServerURIContext);
  end;

  TMyHTTPServer = class(TSQLHttpServer)

  private
    oModel: TSQLModel;
    oSQLRestServerFullMemory: TMyService;
  public
    Model  : TSQLModel;
    function ServiceRegister(AImplementationClass: TInterfacedClass; const AInterfaces: PTypeInfo;const AContractExpected: RawUTF8): boolean;
    constructor Create(const APorta: RawUTF8; AThreadPoolCount: Integer); reintroduce;
    destructor Destroy; override;
  end;
// Class Return
  ['{E6C6ADFD-5977-4759-B400-AA4140F1D683}']
    function cadastrosCrud(acao,tabela,conteudo,ordem,ativo,start,limit,chave:String;StrJson:RawUTF8): RawJSON;
  end;
 
  TMyClassDirect = class(TInterfacedObject, IMyInterface)

  public
    function cadastrosCrud(acao,tabela,conteudo,ordem,ativo,start,limit,chave:String;strjson:RawUTF8): RawJSON;
  end;

implementation

{ TMyService }

procedure TMyService.myapp(Ctxt: TSQLRestServerURIContext);
var
  sFileName: TFileName;
begin
  sFileName := Ctxt.ResourceFileName;
  if sFileName = '' then
    Ctxt.Redirect('myapp/index.html')
  else
    Ctxt.ReturnFile(ExtractFilePath(Application.ExeName) + sFileName, true);
end;

{ TMyHTTPServer }

constructor TMyHTTPServer.Create(const APorta: RawUTF8; AThreadPoolCount: Integer);
begin
  oModel := TSQLModel.Create([], 'app');
  oSQLRestServerFullMemory := TMyService.Create(oModel, '', false, false);
  inherited Create(APorta, [oSQLRestServerFullMemory], '+', useHttpApiRegisteringURI, AThreadPoolCount);
end;

function TMyHTTPServer.ServiceRegister(AImplementationClass: TInterfacedClass; const AInterfaces: PTypeInfo; const AContractExpected: RawUTF8): boolean;
begin
  oSQLRestServerFullMemory.ServiceRegister(AImplementationClass,[AInterfaces], sicSingle).ContractExpected := AContractExpected;
  Result := true;
end;

destructor TMyHTTPServer.Destroy;
begin
  FreeAndNil(oModel);
  FreeAndNil(oSQLRestServerFullMemory);
  inherited;
end;

{ TMyClassDirect }

function TMyClassDirect.cadastrosCrud(acao,tabela,conteudo,ordem,ativo,start,limit,chave:String;strjson:RawUTF8): RawJSON;
var
  ExtjsVO          : TExtjsVO;
  ListaCadastros   : TList;
  CadastrosControl : TCadastrosController;
begin
  ExtjsVO       := TExtjsVO.Create;
  ListaCadastros := TList.Create();
  CadastrosControl  := TCadastrosController.Create;
  try
    if CadastrosControl.Crud_Cadastros(acao,tabela,conteudo,ordem,ativo,start,limit,chave,ListaCadastros,strjson) then
      begin
        ExtjsVO.rows    := ListaCadastros;
        ExtjsVO.success := true;
        ExtjsVO.total   := CadastrosControl.Registros;
      end
    else
      begin
        ExtjsVO.success := False;
        ExtjsVO.total   := 0;
      end;
  except
    on E: Exception do
      begin
        ExtjsVO.success   := False;
        ExtjsVO.rows      := ListaCadastros;
        ExtjsVO.total     := 0;
      end;
  end;

  Result := ObjectToJson(ExtjsVO,[]);

  FreeAndNil(ExtjsVO);
  FreeAndNil(ListaCadastros);
  FreeAndNil(CadastrosControl);

  Manager.CloseConnectionDef('Firebird_Pooled');

end;

end.

I generated a report using FastReport and would like to send to client extjs, what steps?
I am using Delphi XE7 with mormot.