mORMot Open Source

unit NoteInterface;

interface
uses
  SysUtils,
  SynCommons,
  SynCrypto,
  mORMot;

type
 TSQLRecordTimeStamped = class(TSQLRecord)
  private
    fCreatedAt: TCreateTime;
    fModifiedAt: TModTime;
  published
    property CreatedAt: TCreateTime read fCreatedAt write fCreatedAt;
    property ModifiedAt: TModTime read fModifiedAt write fModifiedAt;
  end;

  TSQLSomeone = class(TSQLRecordTimeStamped)
  private
    fFirstName: RawUTF8;
    fFamilyName: RawUTF8;
    fEmail: RawUTF8;
    fHashedPassword: RawUTF8;
    fLogonName: RawUTF8;
  public
    procedure SetPlainPassword(const PlainPassword: RawUTF8);
    function CheckPlainPassword(const PlainPassword: RawUTF8): boolean;
    function Name: RawUTF8; 
  published
    property LogonName: RawUTF8 index 30 read fLogonName write fLogonName stored AS_UNIQUE;
    property FirstName: RawUTF8 index 50 read fFirstName write fFirstName;
    property FamilyName: RawUTF8 index 50 read fFamilyName write fFamilyName;
    property Email: RawUTF8 index 40 read fEmail write fEmail;
    property HashedPassword: RawUTF8 index 64 read fHashedPassword write fHashedPassword;
  end;

  TSQLUser = class(TSQLSomeone)
  private
    public
          class procedure InitializeTable(Server: TSQLRestServer; const FieldName: RawUTF8;
      Options: TSQLInitializeTableOptions); override;
  end;

    TSQLContent = class(TSQLRecordTimeStamped)
  private
    fContent: RawUTF8;
    fTitle: RawUTF8;
    fUser: TSQLUser;

  published
    property Title: RawUTF8 index 120 read fTitle write fTitle;
    property Content: RawUTF8 read fContent write fContent;
    property User: TSQLUser read fUser write fUser;
  end;


  TSQLNote = class(TSQLContent)
  private
  public
    class procedure InitializeTable(Server: TSQLRestServer; const FieldName: RawUTF8;
      Options: TSQLInitializeTableOptions); override;
  end;

  INoteManager = interface(IInvokable)
   ['{539876CF-E719-4129-A359-2916A99F8FA3}']
    function LogIn(const Username:RawUTF8; const Password:RawUTF8):Boolean;
    function LogOut:Boolean;
    function Add(const Text:RawUTF8;Out Note:TSQLNote):Boolean;
    function Delete(const Note:TSQLNote):Boolean;
    function Update(var Note:TSQLNote;Text:RawUTF8):Boolean;
  end;



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


    function CreateModel: TSQLModel;
implementation

const
  SALT = 'JustANoteManager';

function CreateModel: TSQLModel;
begin
  result := TSQLModel.Create([TSQLNote,TSQLUser],'note');
end;

function TSQLSomeone.CheckPlainPassword(const PlainPassword: RawUTF8): boolean;
begin
  result := fHashedPassword=SHA256(SALT+LogonName+PlainPassword);
end;

function TSQLSomeone.Name: RawUTF8;
begin
  result := FirstName+' '+FamilyName;
end;

procedure TSQLSomeone.SetPlainPassword(const PlainPassword: RawUTF8);
begin
  fHashedPassword := SHA256(SALT+LogonName+PlainPassword);
end;

{ TSQLUser }

class procedure TSQLUser.InitializeTable(Server: TSQLRestServer;
  const FieldName: RawUTF8; Options: TSQLInitializeTableOptions);
begin
  inherited;

end;

{ TSQLNote }

class procedure TSQLNote.InitializeTable(Server: TSQLRestServer;
  const FieldName: RawUTF8; Options: TSQLInitializeTableOptions);
begin
  inherited;

end;

end.

unit NoteInterface;

interface
uses mORMot;

type
  TNote=record
  ID:Integer;
  Text:RawUTF8;
  Timestamp:TDateTime;
  end;

  INoteManagaer = interface(IInvokable)
   ['{539876CF-E719-4129-A359-2916A99F8FA3}']
    function LogIn(Username,Password:RawUTF8):Boolean;
    function LogOut:Boolean;
    function Add(Text:RawUTF8;Out Note:TNote):Boolean;
    function Delete(Note:TNote):Boolean;
    function Update(var Note:TNote;Text:RawUTF8):Boolean;
  end;
const
  ROOT_NAME = 'root';
  PORT_NAME = '888';
  APPLICATION_NAME = 'NoteManager';

implementation

end.

program NoteTest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  NoteInterface in 'NoteInterface.pas';

type
  TServiceCalculator = class(TInterfacedObject, INoteManagaer)
  public
       function LogIn(Username,Password:RawUTF8):Boolean;
    function LogOut:Boolean;
    function Add(Text:RawUTF8;Out Note:TNote):Boolean;
    function Delete(Note:TNote):Boolean;
    function Update(var Note:TNote;Text:RawUTF8):Boolean;
  end;

{ TServiceCalculator }

function TServiceCalculator.Add(Text: RawUTF8; out Note: TNote): Boolean;
begin
  //?
end;

function TServiceCalculator.Delete(Note: TNote): Boolean;
begin
 //?
end;

function TServiceCalculator.LogIn(Username, Password: RawUTF8): Boolean;
begin
  //?
end;

function TServiceCalculator.LogOut: Boolean;
begin
  //?
end;

function TServiceCalculator.Update(var Note: TNote;
  Text: RawUTF8): Boolean;
begin
 //?
end;

var
  aModel: TSQLModel;
  aServer: TSQLRestServer;
  aHTTPServer: TSQLHttpServer;
begin
  aModel := TSQLModel.Create([],ROOT_NAME);
  try
    aServer := TSQLRestServerFullMemory.Create(aModel,'test.json',false,true);//?
    try
      aServer.ServiceRegister(TServiceCalculator,[TypeInfo(INoteManagaer)],sicShared);
      aHTTPServer := TSQLHttpServer.Create(PORT_NAME,[aServer],'+',useHttpApiRegisteringURI);
      try
        writeln(#10'Press [Enter] to close the server.'#10);
        readln;
      finally
        aHTTPServer.Free;
      end;
    finally
      aServer.Free;
    end;
  finally
    aModel.Free;
  end;
end.

program project1;
{$I Synopse.inc}
{$APPTYPE CONSOLE}
uses {$ifdef Linux} cthreads, cwstring, {$endif} mORMotSelfTests;
begin
  SQLite3ConsoleTests;
end.                 

SynZip.pas(582,87) Error: Incompatible types: got "QWord" expected "LongWord"