JSON Event

Fires with the JSON data being written.

Syntax

type TJSONEvent = procedure JSON(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.