TFPReportJSONStreamer

type TFPReportJSONStreamer = class(TFPReportStreamer)

public

  procedure WriteInteger(); override;

  procedure WriteInt64(); override;

  procedure WriteQWord(); override;

  procedure WriteFloat(); override;

  procedure WriteString(); override;

  procedure WriteBoolean(); override;

  procedure WriteDateTime(); override;

  procedure WriteStream(); override;

  procedure WriteIntegerDiff(); override;

  procedure WriteInt64Diff(); override;

  procedure WriteQWordDiff(); override;

  procedure WriteFloatDiff(); override;

  procedure WriteStringDiff(); override;

  procedure WriteBooleanDiff(); override;

  procedure WriteDateTimeDiff(); override;

  procedure WriteStreamDiff(); override;

  function ReadInteger(); override;

  function ReadInt64(); override;

  function ReadQWord(); override;

  function ReadFloat(); override;

  function ReadString(); override;

  function ReadDateTime(); override;

  function ReadBoolean(); override;

  function ReadStream(); override;

  function PushCurrentElement; override;

  function PushElement();

  function PopElement; override;

  function FindChild(); override;

  function NewElement(); override;

  function ChildCount; override;

  function GetChild(); override;

  function CurrentElementName; override;

  constructor Create(); override;

  destructor Destroy; override;

  procedure InitFromStream();

  function StreamToHex();

  function StreamsEqual();

  function HexToStringStream();

  function HexToMemoryStream();

  property JSON: TJSONObject; [rw]

  property OwnsJSON: Boolean; [rw]

  property CurrentElement: TJSONObject; [rw]

end;

TFPReportJSONStreamer

TFPReportStreamer

TObject