mORMot Open Source

[{"resultat": {"resource": "/genre", "genre": [{"numero": 1,"description": "Femme"},{"numero": 2,"description": "Homme"}]}}]

[{\"resultat\":\"{\\\"resource\\\":\\\"/genre\\\",\\\"genre\\\":[{\\\"numero\\\":1,\\\"description\\\":\\\"Femme\\\"}, \\n {\\\"numero\\\":2,\\\"description\\\":\\\"Homme\\\"}]}\"}]

function TRESTMethods.Gender(aURI: string; aID: integer): RawJSON;
begin
  ...
      Res := aServer.fDbProps.Execute(Format('select * from genre(%s)', [QuotedStr(aURI)]), []);
      Result := Res.FetchAllAsJSON(True);
  ...
end;

procedure TfrmSakilaServer.StartServer;
begin
  //
  Model := TSQLModel.Create([], ROOT_NAME);
  DB := TSQLRestServerFullMemory.Create(Model, false);
  // register our ISakilaRESTInterface service on the server side
  DB.ServiceRegister(TSakilaRESTMethods, [TypeInfo(ISakilaRESTInterface)], SERVICE_INSTANCE_IMPLEMENTATION).
    SetOptions([], [optExecInMainThread, optFreeInMainThread]);
  HttpServer := TSQLHttpServer.Create(DEFAULT_HTTP_PORT, [DB], '+', HTTP_DEFAULT_MODE, 32, secNone);
  HttpServer.AccessControlAllowOrigin := '*';           // allow cross-site AJAX queries
end;

DB := TSQLRestServerFullMemory.Create(Model, false);

/// SOA interface methods definition to circumvent FPC missing RTTI
// - generated at 2016-07-27 09:30:40
unit mORMotRESTFPCInterfaces;

{
  WARNING:
    This unit has been generated by a mORMot 1.18.2797 server.
    Any manual modification of this file may be lost after regeneration.

  Synopse mORMot framework. Copyright (C) 2017 Arnaud Bouchez
    Synopse Informatique - https://synopse.info

  This unit is released under a MPL/GPL/LGPL tri-license,
  and therefore may be freely included in any application.

  This unit is intended to work on older FPC compilers, which lack of RTTI
  for interfaces - see http://bugs.freepascal.org/view.php?id=26774
  
  USAGE:

  Add this mORMotRESTFPCInterfaces unit to your uses clause, so that the following
  interfaces would be defined as expected by mORMot under FPC:

   - IRestMethods
  
}

procedure TfrmServeur.InitializeTables;
var
  Country: TSQLCountry;    // TSQLCountry derives from TSQLBaseRecord which derives from TSQLRecord
begin
  DBClient := TSQLRestClientDB.Create(TSQLModel(TSQLCountry), nil, DBNAME, TSQLRestServerDB);
  //
  if DBClient.TableRowCount(TSQLCountry) = 0 then
  begin
    Country := TSQLCountry.Create;
    try
      // Add the 193 countries
      Country.Name := 'Afghanistan';
      DBClient.Add(TSQLRecord(Country), True);
      Country.Name := 'Albania';
      DBClient.Add(TSQLRecord(Country), True);
      ......
      Country.Name := 'Zimbabwe';
      DBClient.Add(TSQLRecord(Country), True);
   finally
      User.Free;
    end;
  end;
end;

//
procedure TestNoteCase(Rest: TSQLRest);
var
  aCase: NoteORM.TNoteCase;
  aNote: NoteORM.TNote;
begin
  //
  aCase := NoteORM.TNoteCase.Create;
  //
  try
    //
    aCase.Description := 'Case 1';
    Rest.Add(aCase, True);
    //
    aNote := NoteORM.TNote.Create;
    //
    try
      aNote.Title     := 'Note 1';
      aNote.Body      := 'Note 1 body. Lots of other stuff too.';
      // Notes.lpr(63,31) Error: Incompatible types: got "Pointer" expected "TNoteCase"
      //aNote.NoteCase  := aCase.AsTSQLRecord;
      aNote.NoteCase  := TNoteCase(aCase.AsTSQLRecord);   <---- IS THIS OK?
      Rest.Add(aNote, True);
      //
      aNote.Title     := 'Note 2';
      aNote.Body      := 'Note 2 body. Lots of other stuff too.';
      // Save a nil to the record
      aNote.NoteCase  := TNoteCase(nil);                  <---- IS THIS OK?
      Rest.Add(aNote, True);
    finally
      aNote.Free;
    end;
  finally
    aCase.Free;
  end;
end;

aNote.NoteCase  := aCase.AsTSQLRecord;

aNote.NoteCase  := TNoteCase(aCase.AsTSQLRecord);

aNote.NoteCase  := TNoteCase(nil);