mORMot Open Source

Thank you think using TSQLRestServerNamedPipe solve my problem?

Do you think that it is complicated to manage  TSQLite3HttpServer for multiple instances?I mean, I could make the change or is too complicated?

Do I must create a program that makes a server?

How can I send you a sample of my program?

Sorry but maybe I have not explained,
I use sqlite Manager to view real-time changes in the temp table.
If I run the program and I execurte Database.Update (temp), and then I go to see sqlite Mangager I see new recorcd of temp.
Instead, if I run the program 2 times and one run an update, I see the change in sqlite manager and I can not see in the second program.
So I asked you how can I see the correct data from DB and you told me to use    Database.UpdateFromServer ([temp], refreshed) but the data its not  the same that I read by  sqlite manager.Why?

I used your example "Synops-sqlite-demo-read-only" and I added a single class TSQLTemp "then I wanted to clump them elements of subclasses User.Temps Role.Temps and where the role is the role of the user. I wrote this function:

procedure TForm1.LoadTemplatesForUserAndRole(const AUser: TSQLUser);
var
Temp: TSQLTemp;
fIds: TIntegerDynArray;
ARole: TSQLUserRole;
begin
  AUser.Temps.SourceGet(globalClient, AUser.ID, fIds);
  AUser.Roles.FillMany(globalClient, AUser.ID);

  while AUser.Roles.FillOne do
    begin
      if AUser.Roles.Dest <> nil then
        try
          ARole:= TSQLUserRole.Create(globalClient, integer(AUser.Roles.Dest));
//But at this point is overwritten Fids
          ARole.Temps.SourceGet(globalClient, ARole.ID, fIds);
         

        finally
          FreeAndNil(ARole);
        end;
    end;

  Temp:= TSQLTemp.CreateAndFillPrepare(globalClient, fIds);

  DisplayTempDataset(Temp);

end;

I Don't want to take advantage of your kindness but I have another doubt.

I created a class TSQLTemp  connected to two other classes, if I wanted to run the merge of the two classes what to do?.

User.Temps + User.Roles.Temps = All the elements of a single user "temp" and "temp" all the elements of all the roles of the same single user

unit FileTables;

interface

uses
  SynCommons,
  SQLite3Commons;

type
  TSQLTempUsers = class;
  TSQLTempRoles = class;

  TSQLTemp = class(TSQLRecord)
  private
    fCodice: Integer;
    fName : RawUTF8;
  published
    property Codice: Integer read fCodice write fCodice;
    property Name: RawUTF8 read fName write fName;
  end;

  TSQLUser = class;
  TSQLTempUsers = class(TSQLRecordMany)
  private
    fSource: TSQLTemp;
    fDest: TSQLUser;
  published
    property Source: TSQLTemp read fSource;
    property Dest: TSQLUser read fDest;
  end;

  TSQLUserRole = class(TSQLRecord)
  private
    fRoleName: RawUTF8;
    fTemps: TSQLTempRoles;
  public
    // create standard roles: admin & user
    class procedure CreateStandardRoles(const ADatabase: TSQLRest);
  published
    property RoleName: RawUTF8 read fRoleName write fRoleName;
    property Temps: TSQLTempRoles read fTemps;
  end;

  TSQLUserRoles = class(TSQLRecordMany)
  private
    fValidUntil: TTimeLog;
    fSource: TSQLUser;
    fDest: TSQLUserRole;
  published
    property ValidUntil: TTimeLog read fValidUntil write fValidUntil;
    property Dest: TSQLUserRole read fDest;
    property Source: TSQLUser read fSource;
  end;

  TSQLTempRoles = class(TSQLRecordMany)
  private
    fSource: TSQLTemp;
    fDest: TSQLUserRole;
  published
    property Source: TSQLTemp read fSource;
    property Dest: TSQLUserRole read fDest;
  end;

  // user of our system
  TSQLUser = class(TSQLRecord)
  private
    fRoles: TSQLUserRoles;
    fLogin, fPassword: RawUTF8;
    fName : RawUTF8;
    fSubName: RawUTF8;
    fTemps: TSQLTempUsers;
    procedure SetPassword(const APwd: RawUTF8);
  public
    function HasRole(const ARoleName: RawUTF8; const ARoleID: integer = -1): boolean; overload;
    // returned aRowID is an ID of row in PIVOT TABLE !!!
    // so that we can access additional data stored in pivot connection
    function HasRole(const ARoleName: RawUTF8; const ARoleID: integer; var ARowID: integer): boolean; overload;
    // returns 0 on fail, UserID on success
    class function SignIn(const ALogin, APassword: RawUTF8): Integer;
    // counts all users
    // -1 on error
    class function GetCount(): integer;
  published
    property Roles: TSQLUserRoles read fRoles write fRoles;
    property Name: RawUTF8 read fName write fName;
    property SubName: RawUTF8 read fSubName write fSubName;
    property Login: RawUTF8 read fLogin write fLogin;
    property Password: RawUTF8 read fPassword write SetPassword;
    property Temps: TSQLTempUsers read fTemps;
  end;

Thanks for "fTable.IDColumnHiddenValue (riga) "

ok maybe now, I understand how it works,
but then I ask you is it right to call for each GetValue  the method : Dest.FillPrepare ( fTable) as an example, or is it better to create it only once in the function ?

function TcxCustomDataSource.GetValue(ARecordHandle: TcxDataRecordHandle;
  AItemHandle: TcxDataItemHandle): Variant;
....
begin

try
  Dest: = TSQLTemplate.Create;
Dest.FillPrepare ( fTable)
Dest.FillRow (row)
...
finally
     FreeAndNil(Dest);
  end;
end;

function TcxCustomDataSource.GetValue(ARecordHandle: TcxDataRecordHandle;
  AItemHandle: TcxDataItemHandle): Variant;
var
  col : TcxGridColumn;
  row : Integer;
  Dest : TSQLTemplate;
//  id : Integer;
begin
  col := TcxGridColumn(DataController.GetItem(integer(AItemHandle)));
  row := Integer(ARecordHandle)+1;
  try

  // id := fTable.IDColumnHiddenValue(row);
  Dest  := TSQLTemp.Create;
  Dest.FillPrepare(fTable);
  Dest.FillRow(row);
  case  col.Tag  of

    IndexOfNome:
      Result := Dest.Name;
    IndexOfDesc:
      Result := Dest.Desc;
    IndexOfID:
      Result := Dest.ID;
 
  end;
  finally
     FreeAndNil(Dest);
  end;
end;

procedure TcxCustomDataSource.SetValue(ARecordHandle: TcxDataRecordHandle;
  AItemHandle: TcxDataItemHandle; const AValue: Variant);
var
  col : TcxGridColumn;
  row : Integer;
  Dest : TSQLTemp;
//  id : Integer;
  refreshed :Boolean;
begin

  col:= TcxGridColumn(DataController.GetItem(integer(AItemHandle)));
  row := Integer(ARecordHandle)+1;
  try

  Dest  := TSQLTemp.Create;
  Dest.FillPrepare(fTable);
  Dest.FillRow(row);

  if assigned(Dest) then
  begin
  case  col.Tag  of
    IndexOfNome:
      Dest.Name := AValue ;
    IndexOfDesc:
      Dest.Desc := AValue ;
    IndexOfID:
      Dest.ID := AValue ;

  end;
  globalClient.Update(Dest);
  globalClient.UpdateFromServer([fTable],refreshed); // this is to refresh the grid content

  end;
  finally
     FreeAndNil(Dest);
  end;
end;

I ask this because in the quantum grid getValue procedure is launched for each column. Thanks