mORMot Open Source

Great!
Would you like to have the code we modified in order to change the JSON creation (adding the datatypes) in TSQLDBStatement.FetchAllToJSON when the expanded is False?
And also our function JSONToDataSet which fills a TDataSet with the JSON using the JSON with the types in it?

Hello again,

Okay, so we are still struggling a little bit in order to achieve our goal.
So far, we have changed a little bit the TSQLDBStatement.FetchAllToJSON function in order to save the data types in the JSON as the following :

{"fieldCount":2, "values": ["col1", "col2", "type1", "type2", "val11", "val12", "val21", "val22", ...] }

And we have created a function called JSONToDataSet which from a JSON string fills a TDataSet with the data in the JSON, using a TJSONTable for helping reading the JSON.

The problem is with handling blob fields. In the JSON it is stored base64 encoded, but in order to be used in the application, it should be decoded.
(we are doing : TBlobField(DataSet.Fields[ i ]).Value := JSONTable.RowValues[ i ])
Do you know how to do that ?
Thank you very much for your help.

Hello again, we have another problem unfortunately...

The code works great on Windows, but with Android... In fact, we used SynCommons, mORMot and mORMotVCL in order to have the RawJSON type and the JSONToDataSet function.
With Android and other mobile devices, we should use SynCrossPlatform*. But all our functions do not work anymore. For example we had :

function ...(int id) : TDataSet;
begin
  JSON   := Methods.GetTopics(id);
  Result  := JSONToDataSet(Nil, JSON);
end

What should we use now ? Is it still possible to keep our IMethods interface, with functions returning RawJSON ?

Our server is a web services which returns results of SQL requests with datasets, in fact the client needs data from the database and the server gives him the datasets as JSON (with SQLToJSON).

Thanks for your help.

Hi again.
We are working on the client side now and its works fine.
The service method returns a RawJSON (which was sent with DbConnection.Execute(...).FetchAllAsJSON(true)).
In order to store the data on the client side we are doing :
var values: TDocVariantData;
values.InitJSON(res, JSON_OPTIONS[true]);
DataSource1.DataSet := TDocVariantArrayDataSet.Create(Self,values.Values,[],[]);
DataSource1.DataSet.Open;

Is it the correct way to achieve it or is there a better/faster way to do ?

Thanks

Hello,

Thank you for your answers. Right now, we are testing the Interface-based services, it works good but we are struggling trying to connect the TSQLDBZEOSConnectionProperties to our database.
The database is on Firebird 3.0 on Port 3055 (localhost), everytime we have an error : "Classe d'exception EZSQLException avec un message 'Requested database driver was not found'". The connection URL is :
'zdbc:firebird-3.0://localhost:3055/D:\ATOM\database\ATOM.FDB?username=SYSDBA;password=masterkey;LibLocation=C:\Firebird_3_0\WOW64\fbclient.dll'
We tested with adding the ZConnexion in a form, it connects well and its URL is exactly the same as above.
By putting breakpoints, we saw that no Driver is in FDrivers property of TZDriverManager. Is something missing ? Maybe something like 'registerDriver ?