fcl-json: use custom TJsonScanner

[piola]

Hello,

I want to use a custom Json scanner, e.g. for calls to FpJson.GetJson. The easiest thing would be overrinding the TJsonParser constructors and replace the FScanner:=TJSONScanner.Create calls with custom ones. However, unfortunately, the FScanner field is private, so no access possible.

Is there a way to achieve that without having to maintain a complete copy of all fcl-json files?

[Leledumbo]

From the source, it's currently not possible. You can however copy the whole thing and replace the scanner with your own, replacing the call to SetJSONParserHandler accordingly. This last one doesn't even mandate any parsing interface to be fulfilled, it only asks for a given TStream, output a TJSONData.