Hi,
it is better to use TJSONParser than GetJSON.
GetJSON is defined as:
procedure DefJSONParserHandler(AStream: TStream; const AUseUTF8:
Boolean; out
Data: TJSONData);
Var
P : TJSONParser;
begin
Data:=Nil;
P:=TJSONParser.Create(AStream,[joUTF8]);
try
Data:=P.Parse;
finally
P.Free;
end;
end;
with
procedure DefJSONParserHandler(AStream: TStream; const AUseUTF8:
Boolean; out
Data: TJSONData);
Var
P : TJSONParser;
begin
Data:=Nil;
P:=TJSONParser.Create(AStream,[*joStrict,*joUTF8]);
try
Data:=P.Parse;
finally
P.Free;
end;
end;
it should pass more
Best,
Benito
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal