JSON Event

Fires with the JSON data being written.

Syntax

type TJSONEvent = procedure (
  Sender: TObject;
  const Text: String
) of Object;

property OnJSON: TJSONEvent read FOnJSON write FOnJSON;

Remarks

This event fires when output data is written.

Text contains the JSON data currently being written.