[fpc-pascal] JSON Dataset in FCL-DB.

[Leonardo M. Ramé]

----- Original Message -----

> From: Leonardo M. Ramé <martinrame at yahoo.com>
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Cc: 
> Sent: Saturday, December 17, 2011 10:00 AM
> Subject: Re: [fpc-pascal] JSON Dataset in FCL-DB.
> 
> ----- Original Message -----
> 
>>  From: Michael Van Canneyt <michael at freepascal.org>
>>  To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
>>  Cc: Lazarus mailing list <lazarus at lazarus.freepascal.org>
>>  Sent: Friday, December 16, 2011 5:52 PM
>>  Subject: Re: [fpc-pascal] JSON Dataset in FCL-DB.
>> 
>> 
>> 
>>  On Fri, 16 Dec 2011, Leonardo M. Ramé wrote:
>> 
>>>>   What is missing currently is the delta to update data on the 
> server, 
>>  but that 
>>>>   should be easily added.
>>>> 
>>>>   Michael.
>>> 
>>> 
>>>   Thanks. 
>>> 
>>>   Btw. I've found this dependency related error when I tried to 
> compile.
>>> 
>> 
>>  Fixed in revision 19858.
>> 
>>  Michael.
> 
> 
> 
> Michael, could you apply this? Without it fpjsondataset unit is not found:
> 
> Index: fpmake.pp
> 
> ===================================================================
> --- fpmake.pp   (revision 19860)
> +++ fpmake.pp   (working copy)
> @@ -37,6 +37,7 @@
>      P.SourcePath.Add('src/sqldb/examples');
>      P.SourcePath.Add('src/sqldb/oracle');
>      P.SourcePath.Add('src/sdf');
> +    P.SourcePath.Add('src/json');
>      P.SourcePath.Add('src/datadict');
>      P.SourcePath.Add('src/memds');
>      P.SourcePath.Add('src/codegen');
> @@ -661,6 +662,9 @@
>          end;
>      T.ResourceStrings := True;
> 
> +    // JSON
> +    T:=P.Targets.AddUnit('fpjsondataset.pp');
> +
>      P.ExamplePath.Add('tests');
>      T:=P.Targets.AddExampleProgram('dbftoolsunit.pas');
>      T:=P.Targets.AddExampleProgram('dbtestframework.pas');
> 
>  


Also this on tests directory:

Index: testjsondataset.pp
===================================================================
--- testjsondataset.pp  (revision 19860)
+++ testjsondataset.pp  (working copy)
@@ -3,9 +3,8 @@
 {$mode objfpc}{$H+}

 uses
-  Classes, sysutils, DB, jsondataset, fpjson, jsonparser;
+  Classes, sysutils, DB, fpjsondataset, fpjson, jsonparser;

-{$R *.res}

 Function ExtractData(Const AFileName : string) : TJSONObject;

--  
Leonardo M. Ramé
http://leonardorame.blogspot.com