mORMot Open Source

uses
  ...RMotSQLite3, mORMot, mORMotHttpServer;
  type
  TSQLPessoa = class(TSQLRecord)
  private
    FIdade: Integer;
    FNome: RawUTF8;
  published
    property Idade: Integer read FIdade write FIdade;
    property Nome: RawUTF8 read FNome write FNome;
  end;
...
  private
    { Private declarations }
    ModeloDados: TSQLModel;
    ModeloServicos:TSQLModel;
    BaseDados: TSQLRestServerDB;
    ServidorHTTP: TSQLHttpServer;
    ServidorServicos: TSQLRestServer;
    procedure ConfigurarLog;
    procedure InicializarBancoDeDados;
    procedure InicializarServicos;
    procedure InicializarServidorHTTP;
  public
    { Public declarations }
  end;

var
  FrmServidor: TFrmServidor;

implementation

{$R *.dfm}

uses uPessoa,  SynCommons, SynZip, uCalculadoraImpl, uCalculadora;

procedure TFrmServidor.InicializarBancoDeDados;
begin
  // Configura Log
  TSQLLog.Family.Level := LOG_VERBOSE;

  // Cria o modelo da base de dados contendo a classe/tabela TSQLPessoa
  ModeloDados := TSQLModel.Create([TSQLPessoa]);

  //Inicializa a base de dados. Se o arquivo não existir, será criado.
  BaseDados := TSQLRestServerDB.Create(ModeloDados, 'BasededadosSQLite.db3');

  // Atualizará o esquema da base de dados de acordo com o modelo. Ex: Tabela nova/Campo novo
  BaseDados.CreateMissingTables(0);
end;

procedure TFrmServidor.InicializarServicos;
begin
  // Test TInterfacedObject
  ModeloServicos := TSQLModel.Create([],'services');
  ServidorServicos := TSQLRestServerFullMemory.Create(ModeloServicos);
  ServidorServicos.ServiceRegister(TCalculadora,[TypeInfo(ICalculadora)], sicShared);
end;

procedure TFrmServidor.InicializarServidorHTTP;
begin
  ServidorHTTP := TSQLHttpServer.Create('8080', [BaseDados, ServidorServicos]);
  Label1.Caption := 'Servidor rodando na porta 8080'
end;