TJsonRpcBaseFormatter

type TJsonRpcBaseFormatter = class(TSimpleFactoryItem,IFormatterBase)

protected

  function GetRootData;

  function GetCurrentScope;

  function HasScope;

  procedure CheckScope;

  procedure ClearStack;

  function StackTop;

  function PopStack;

  procedure PushStack();

  procedure PutEnum();

  procedure PutBool();

  procedure PutAnsiChar();

  procedure PutWideChar();

  procedure PutInt64();

  procedure PutUInt64();

  procedure PutStr();

  procedure PutUnicodeStr();

  procedure PutWideStr();

  procedure PutFloat();

  procedure PutObj();

  procedure PutRecord();

  function GetDataBuffer();

  function GetEnum();

  function GetBool();

  function GetAnsiChar();

  function GetWideChar();

  function GetInt();

  function GetInt64();

  function GetUInt64();

  function GetFloat();

  function GetStr();

  function GetUnicodeStr();

  function GetWideStr();

  function GetObj();

  function GetRecord();

public

  procedure SetSerializationStyle();

  function GetSerializationStyle;

  function GetFormatName;

  function GetPropertyManager;

  procedure Clear;

  procedure BeginObject();

  procedure BeginArray();

  procedure NilCurrentScope;

  function IsCurrentScopeNil;

  procedure EndScope;

  procedure AddScopeAttribute();

  function BeginObjectRead();

  function BeginArrayRead();

  function GetScopeItemNames();

  procedure EndScopeRead;

  property CurrentScope: string; [r]

  procedure BeginHeader;

  procedure EndHeader;

  procedure Put();

  procedure PutScopeInnerValue();

  function Get();

  procedure GetScopeInnerValue();

  function ReadBuffer();

  procedure WriteBuffer();

  procedure SaveToStream();

  procedure LoadFromStream();

  procedure Error();

  constructor Create; override;

  destructor Destroy; override;

end;

TJsonRpcBaseFormatter

TSimpleFactoryItem,IFormatterBase

TObject