mORMot Open Source

unit SynSQLiteTestUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SynCommons, SQLite3Commons, SQLite3;

type
  TBaseSQLRecord = class(TSQLRecord)
  private
    FCreatedAt: TTimeLog;
    FCreatedBy: RawUTF8;
    FUpdatedAt: TTimeLog;
    FUpdatedBy: RawUTF8;
  published
    property CreatedAt: TTimeLog read FCreatedAt write FCreatedAt;
    property CreatedBy: RawUTF8 read FCreatedBy write FCreatedBy;
    property UpdatedAt: TTimeLog read FUpdatedAt write FUpdatedAt;
    property UpdatedBy: RawUTF8 read FUpdatedBy write FUpdatedBy;
  end;

  TSQLEmployee = class(TBaseSQLRecord)
  private
    FNumber: Integer;
    FFirstName: RawUTF8;
    FLastName: RawUTF8;
  published
    property Number: Integer read FNumber write FNumber;
    property FirstName: RawUTF8 read FFirstName write FFirstName;
    property LastName: RawUTF8 read FLastName write FLastName;
  end;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FClient: TSQLRest;
    FSQLModel: TSQLModel;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FSQLModel := TSQLModel.Create([
    TSQLEmployee
  ]);
  FClient := TSQLRestClientDB.Create(FSQLModel, nil,
    ChangeFileExt(Application.ExeName,'.sqlite'), TSQLRestServerDB);
  TSQLRestServerDB(FClient).CreateMissingTables;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FClient.Free;
  FSQLModel.Free;
end;

end.

type
  TSQLTaskReceiverList = class;
  TSQLTask = class(TSQLRecord)
  private
    FTitle: RawUTF8;
    FDescr: RawUTF8;
    FReceivers: TSQLTaskReceiverList;
  public
    property Title: RawUTF8 read FTitle write FTitle;
    property Descr: RawUTF8 read FDescr write FDescr;
    property Receivers: TSQLTaskReceiverList read FReceivers;
  end;

  TSQLReceiver = class(TSQLRecord)
  private
    FFirstName: RawUTF8;
    FLastName: RawUTF8;
  published
    property FirstName: RawUTF8 read FFirstName write FFirstName;
    property LastName: RawUTF8 read FLastName write FLastName;
  end;

  TSQLTaskReceiverList = class(TSQLRecordMany)
  private
    FSource: TSQLTask;
    FDest: TSQLReceiver;
  published
    property Source: TSQLTask read FSource;
    property Dest: TSQLReceiver read FDest;
  end;

begin
var
  I: Integer;
  TaskID: Integer;
  SQLTask: TSQLTask;
begin
  TaskID := 2;
  // fetch the task with the specified ID
  SQLTask := TSQLTask.CreateAndFillPrepare(FDatabase, 'ID=?', [], [TaskID]);
  try
    // fill the local variable with task data
    if SQLTask.FillOne then
    begin
      // here I've tried to use FillMany, it returns correctly 2 rows to be fetched
      SQLTask.ReceiverList.FillMany(FDatabase, TaskID);
      // I hoped the FillOne here will fill up the SQLTask.ReceiverList record, but it doesn't
      if SQLTask.ReceiverList.FillOne then
      begin
        // here I'm getting the access violation, what am I doing wrong ?
        ShowMessage(UTF8ToString(SQLTask.ReceiverList.Dest.FirstName) +
          UTF8ToString(SQLTask.ReceiverList.Dest.LastName));
      end;
    end;
  finally
    SQLTask.Free;
  end;
end;