mORMot Open Source

hello, I have created a small example to be able to generate demonstrate the error, before it worked in previous versions of mormot something happens now

Var
 Main:TDocVariantData;
 PArray1,PArray2,PArray3:PDocVariantData;



begin
  Main.Init();

  Main.AddValue('value0',10);

  Main.AddValue('object',_Obj([]));

  PArray1:=Main._[Main.AddValue('array1',_Arr([]))];
  PArray2:=Main._[Main.AddValue('array2',_Arr([]))];
  PArray3:=Main._[Main.AddValue('array3',_Arr([]))];

  PArray3.AddItem(_Obj(['value3',30]));
  PArray2.AddItem(_Obj(['value2',20]));
  PArray1.AddItem(_Obj(['value1',10]));

  writeln(Main.ToJSON());
  readln;
end.

the correct result expected in earlier versions of mormot 1 is this

{"value0": 10, "object": {}, "array1": [{"value1": 10}], "array2": [{"value2" : 20}], "array3": [{"value3": 30}]}

now in the latest version of mormot 1 is this

{"value0":10,"object":{},"array1":[],"array2":[],"array3":[{"value3":30}]}

hello ab,
I have been migrating a large project which used ADO components to mormot, as a very large one, I decided for the moment to use the TQuery class of unit SynDB with which I have done very well and in the future to use interfaces, so I have managed to get my software used db oracle database, sqlserver, postgre, mysql, of course I had to standardize the sql statements, but nevertheless it was easy and fast, but I had a problem when I wanted to use sqlite database, the behavior of the TQuery.First method fails and however with the other databases mentioned above it is not, debugging I have noticed that most of the SynOleDB, SynDBZeos, SynDBODBC units at some time before or after executing a new statement initialize the property fCurrentRow: = -1 or fCurrentRow: = 0
but the SynDBSQLite3 unit does not at any time, there is some reason in particular, since when I initialized the property by modifying the sources

procedure TSQLDBSQLite3Statement.ExecutePrepared;
var SQLToBeLogged: RawUTF8;
    Timer: TPrecisionTimer;
    DB: TSQLDataBase;
begin
  fCurrentRow:=0; /////CHANGE HERE/////
  inherited ExecutePrepared; // set fConnection.fLastAccessTicks

I would like to know if I make that change in the sources I will not have problems in the future thanks.

Hello, I am trying to implement the mormot unit with a third-party component called Digital-metaphor Reportbuilder, this has a feature that can be seen here: http://www.digital-metaphors.com:8080/D … DE_Plugins to add other database manager, and I'm working well but I had to make a small change to the sources, since I want this to work with several databases, the problem is that the reporbuilder needs to update some tables and I am using TSynDBDataSet that allows me to apply changes in the tables, this is all fine but when the tables are blank the TSynDBDataSet the ColumnDataSize calculation is wrong and if I use IgnoreColumnDataSize it works as a memo field even worse since reporbuilder is stricter with the definition of the table, for that reason make some changes so that the user that create a ClientDataSet with TSynDBDataSet is the one that decides how is the definition of the table and not the same mormot, being able to achieve something like this:

 DataClient:=TSynDBDataSet.Create(nil);
 DataClient.CommandText:='SELECT FOLDERID,FOLDERNAME,PARENTID FROM FOLDERS';
 Ds1.DataSet:=DataClient;
 DataClient.Connection:=FProp;
 DataClient.OwnerDef:=True;  // MY PROPERTY
   with DataClient.FieldDefs do
   begin
     Clear;
      Add('folderid',ftLargeint, 0);
      Add('foldername',ftWideString, 60);
      Add('parentid',ftLargeint);
    end;
 DataClient.Open;

the change I made in the unit SynDBVCL procedure InternalInitFieldDefs

procedure TSynBinaryDataSet.InternalInitFieldDefs;
var F: integer;
    DBType: TFieldType;
    S:String;
    N:Integer;
begin
  FieldDefs.Clear;

  ****************ADD*************
  if (Owner is TSynDBDataSet) then begin
    if TSynDBDataSet((Self).Owner).OwnerDef then begin   //property add  OwnerDef
      with TSynDBDataSet((Self).Owner) do begin
        for F := 0 to FieldDefList.Count-1 Do
          TSynBinaryDataSet(Self).FieldDefs.Add(FieldDefList[F].Name,FieldDefList[F].DataType,FieldDefList[F].Size);
      End;
    exit;
    end
  end;
*************************************

  if fDataAccess=nil then
    exit;
  for F := 0 to fDataAccess.ColumnCount-1 do
    with  fDataAccess.Columns[F] do begin
    case ColumnType of
    SynCommons.ftInt64: DBType := ftLargeint;
    SynCommons.ftDate:  DBType := ftDateTime;
    SynCommons.ftUTF8:  DBType := ftWideString; // means UnicodeString for Delphi 2009+
    SynCommons.ftBlob:  DBType := ftBlob;
    SynCommons.ftDouble, SynCommons.ftCurrency: DBType := ftFloat;
    else raise EDatabaseError.CreateFmt(
      'GetFieldData ColumnType=%s',[TSQLDBFieldTypeToString(ColumnType)]);
    end;
    FieldDefs.Add(UTF8ToString(ColumnName),DBType,ColumnValueDBSize);
  end;
end;

Any suggestion that you can do this in another way thanks.

Hi, I'm trying to implement the Samples \ 16 - Execute SQL via services for a cross-platform client in delphi fmx, works fine without using

.SetOptions ([], [optExecInMainThread, optFreeInMainThread]) on the server, trying not to generate a new connection to the sqlserver every time I run a query on the client side, but when I use optExecInMainThread, calls to the methods from The client does not work, What am I doing wrong. Thank you.