mORMot Open Source

constructor TOrmPropInfoRttiTID.Create(aPropInfo: PRttiProp; aPropIndex: integer; aOrmFieldType: TOrmFieldType; aOptions: TOrmPropInfoListOptions);
...

  if IdemPropName(TypeName^, 'TID') or
     (ord(TypeName^[1]) and $df <> ord('T')) or // expect T...ID pattern
     (PWord(@TypeName^[L - 1])^ and $dfdf <> ord('I') + ord('D') shl 8) or
     (Rtti.Counts[rkClass] = 0) then
    exit;
  if (L > 13) and IdemPropName('ToBeDeletedID', @TypeName^[L - 12], 13) then
  begin   // 'TOrmClientToBeDeletedID' -> TOrmClient + CascadeDelete=true
    fCascadeDelete := true;
    Found := Rtti.FindName(@TypeName^[1], L - 13, rkClass);
  end
...
end;

    else if not (p^ in ['/', '_', '-', '.', '$', '0'..'9', 'a'..'z', 'A'..'Z']) then
      exit; // not a valid plain URI character

{.$define CLIENTUSEWININET}
// force HTTP/1.1 RESTful JSON default mORMot Client class to use WinHttp
// - e.g. to try Windows built-in proxy settings
// - but is slower and less stable in some context (e.g. useHttpAsync)

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  mORMot,
  mORMotHTTPServer,
  System.SysUtils,
  SynSQLite3Static,
  Unit2 in 'Unit2.pas';

var
  MyRest: TMyRest;

begin
  MyRest := TMyRest.Create(CreateModel);
  try
    with TSQLHttpServer.Create('80', [MyRest], '+', useHttpApiRegisteringURI) do
      try
        Writeln('Server started.');
        Write('Press Enter to terminate...');
        Readln;
        Shutdown;
      finally
        Free;
      end;
  finally
    FreeAndNil(MyRest);
  end;
end.

unit Unit2;

interface

uses
  mORMot, mORMotSQLite3, SynCommons, SynDBSQLite3;

type

  TMyRest = class(TSQLRestServerDB)
  private

    FDocDBProps: TSQLDBSQLite3ConnectionProperties;
    FRefDBProps: TSQLDBSQLite3ConnectionProperties;

  public

    constructor Create(AModel: TSQLModel);

    destructor Destroy; override;

  end;

  TSQLBranch = class(TSQLRecord)
  private

    FName: RawUTF8;

  published

    property Name: RawUTF8  read FName  write FName;

  end;

  TSQLDocument = class(TSQLRecord)
  private

    FBranch: TSQLBranch;
    FName:   RawUTF8;

  published

    property Branch: TSQLBranch  Read FBranch  write FBranch;

    property Name: RawUTF8  read FName  write FName;

  end;

function CreateModel: TSQLModel;

implementation

uses
  System.SysUtils,
  mORMotDB, SynSQLite3;

function CreateModel: TSQLModel;
begin
  Result := TSQLModel.Create([
    TSQLAuthGroup,  // Main
    TSQLAuthUser,   // Main
    TSQLBranch,     // References
    TSQLDocument    // Documents
  ], 'master')
end;

function DBFileName(const aFileName: String): TFileName;
begin
  Result := IncludeTrailingPathDelimiter(ExeVersion.ProgramFilePath) + aFileName + '.db';
end;

constructor TMyRest.Create(AModel: TSQLModel);

  function createProps(const aFileName: String): TSQLDBSQLite3ConnectionProperties;
  begin
    Result := TSQLDBSQLite3ConnectionProperties.Create(StringToUTF8(DBFileName(aFileName)), '', '', '');
    with Result.MainSQLite3DB do
      begin
        Synchronous := smOff;
        LockingMode := lmExclusive;
      end;
  end;

begin
  FDocDBProps := createProps('Documents');
  VirtualTableExternalRegister(AModel, TSQLDocument, FDocDBProps);

  FRefDBProps := createProps('References');
  VirtualTableExternalRegister(AModel, TSQLBranch, FRefDBProps);

  inherited Create(AModel, DBFileName('Main'));
  AModel.Owner := Self;
  DB.LockingMode := lmExclusive;
  DB.Synchronous := smOff;

  CreateMissingTables;
end;

destructor TMyRest.Destroy;
begin
  inherited Destroy;
  FreeAndNil(FRefDBProps);
  FreeAndNil(FDocDBProps);
end;

end.