mORMot Open Source

program mormot_1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils,windows,messages,variants,classes,mormot,SynCommons,
  mormotsqlite3,mormotdb,syndb,syndbsqlite3,syndbdataset,syndbzeos,synsqlite3,
  synsqlite3static, dateutils, mORMotHttpServer;
const
  ROOT_NAME = 'service';
var
 Model:  TSQLModel;
 srHTTP: TSQLHttpServer;
 DB:     TSQLRestServerDB;
//------------------------------------------------------------------------------
 type
  TRecord = class(TSQLRecord)
    private
      fCname:  RawUTF8;
      fCemail: RawUTF8;
      fCcel:   RawUTF8;
      fCtel:   RawUTF8;
    published
      property Cname: RawUTF8
        read fCname write fCname;
      property Cemail: RawUTF8
        read fCemail write fCemail;
      property Ccel: RawUTF8
        read fCcel write fCcel;
      property Ctel: RawUTF8
        read fCtel write fCtel;
 end;
//------------------------------------------------------------------------------
procedure start_db(const aRawServerName, aDatabaseName, aUserID, aPassword: RawUTF8);
var
 propsClass:  TSQLDBConnectionPropertiesClass;
 props:       TSQLDBConnectionProperties;
 aServerName: RawUTF8;
 aTableName : RawUTF8;
 rec: TRecord;
 MainDBName: RawUTF8;
begin
  aTableName:='contacts';
  MainDBName:=  SQLITE_MEMORY_DATABASE_NAME;
  propsClass:=  TSQLDBZeosConnectionProperties;
  aServerName:= TSQLDBZeosConnectionProperties.URI(dMySQL,aRawServerName);
  Model:=       TSQLModel.Create([TRecord],ROOT_NAME);
  rec  :=       TRecord.Create;
  props:=propsClass.Create(aServerName,aDatabaseName,aUserID,aPassword);
  VirtualTableExternalRegister(Model,TRecord,props,'contacts');
  DB:=TSQLRestServerDB.Create(Model,':memory:',false);
  DB.CreateMissingTables;
end;
//------------------------------------------------------------------------------
procedure start_server;
begin
 try
  srHTTP := TSQLHttpServer.Create('8080', [DB], '+',HTTP_DEFAULT_MODE);
  srHTTP.AccessControlAllowOrigin := '*';
 finally
  writeln('OK.');
 end;
end;
//------------------------------------------------------------------------------
procedure stop_client;
begin
 srHTTP.Free;
 DB.Free;
 Model.Free;
end;
//------------------------------------------------------------------------------
  var s: string;
begin
  try
    //Test('localhost:3306','myphonebook','root','1234');
    writeln('starting db server...');
    start_db('localhost:3306','myphonebook','root','1234');
    writeln('starting http server...');
    start_server;
    Readln(s);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.