- added TAuthSession.SentHeaders, RemoteIP and ConnectionID properties
    - added process of Variant and WideString types in TSQLRecord properties
    - added JSON serialization of Variant and WideString types in JSONToObject()
      / ObjectToJSON() functions and WriteObject method
    - added TTypeInfo.ClassCreate() method to create a TObject instance from RTTI
    - TEnumType.GetEnumNameValue() will now recognize both 'sllWarning' and
      'Warning' text as a sllWarning item (will enhance JSONToObject() process)


    - added ClassInstanceCreate() function calling any known virtual constructor
    - added TPropInfo.ClassFromJSON() to properly unserialize TObject properties
    - added TSQLPropInfo.SQLFieldTypeName property
    - fixed [f96cf0fc5d] and [221ee9c767] about TSQLRecordMany JSON serialization
    - fixed issue when retrieving a TSQLRecord containing TSQLRecordMany
      properties with external tables (like 'no such column DestList' error)
      via SQLite3 virtual tables (e.g. for a JOINed query like FillPrepareMany)
................................................................................
    function GetCaptionStrings(UsedValuesBits: Pointer=nil): string;
    /// add caption names, ready to be display, to a TStrings class
    // - add pointer(ord(element)) as Objects[] value
    // - if UsedValuesBits is not nil, only the corresponding bits set are added
    // - can be used e.g. to populate a combo box as such:
    // ! PTypeInfo(TypeInfo(TMyEnum))^.EnumBaseType^.AddCaptionStrings(ComboBox.Items);
    procedure AddCaptionStrings(Strings: TStrings; UsedValuesBits: Pointer=nil);


    /// get the corresponding enumeration ordinal value, from its name without
    // its first lowercase chars ('Done' will find otDone e.g.)
    // - return -1 if not found (don't use directly this value to avoid any GPF)
    function GetEnumNameTrimedValue(const EnumName: ShortString): Integer; overload;
    /// get the corresponding enumeration ordinal value, from its name without
    // its first lowercase chars ('Done' will find otDone e.g.)
    // - return -1 if not found (don't use directly this value to avoid any GPF)
................................................................................
{$endif}

function TEnumType.GetCaption(const Value): string;
// GetCaptionFromPCharLen() expect ASCIIz -> use temp RawUTF8
begin
  GetCaptionFromPCharLen(pointer(GetEnumNameTrimed(Value)),result);
end;




















procedure TEnumType.AddCaptionStrings(Strings: TStrings; UsedValuesBits: Pointer=nil);
var i, L: integer;
    Line: array[byte] of AnsiChar;
    P: PAnsiChar;
    V: PShortString;
    s: string;
................................................................................
begin
  fInternalJSONWriter.Free;
  inherited;
end;

procedure TJSONSerializer.WriteObject(Value: TObject; Options: TTextWriterWriteObjectOptions);
var Added: boolean;

procedure HR(P: PPropInfo=nil);
var i: integer;
begin
  if woHumanReadable in Options then begin





    AddCR;
    for i := 1 to fHumanReadableLevel do
      Add(#9);
  end;
  if P=nil then
    exit;
  AddPropName(P^.Name);
................................................................................
          if (V<>P^.Default) or not (woDontStoreDefault in Options) then begin
            HR(P);
            if {$ifdef FPC}(Kind=tkBool){$else}
               (Kind=tkEnumeration) and (P^.PropType^=TypeInfo(boolean)){$endif} then
              AddString(JSON_BOOLEAN[boolean(V)]) else
              if (woFullExpand in Options) or (woHumanReadable in Options) then
              case Kind of
              tkEnumeration: begin

                 Add('"');
                 AddTrimLeftLowerCase(P^.PropType^^.EnumBaseType^.GetEnumNameOrd(V));
                 Add('"');


              end;
              tkSet: begin

                Add('[');
                with P^.PropType^^.SetEnumType^ do
                if (woHumanReadableFullSetsAsStar in Options) and
                   (MaxValue<32) and GetAllBits(V,MaxValue+1) then
                  AddShort('"*"') else begin
                  PS := @NameList;
                  for j := MinValue to MaxValue do begin
                    if GetBit(V,j) then begin
                      Add('"');
................................................................................
                      Add('"',',');
                    end;
                    inc(PtrUInt(PS),ord(PS^[0])+1); // next item
                  end;
                end;
                CancelLastComma;
                Add(']');


              end;
              else
                Add(V);
              end else
                Add(V); // typecast enums and sets as plain integer by default
          end;
        end;

    - added TAuthSession.SentHeaders, RemoteIP and ConnectionID properties
    - added process of Variant and WideString types in TSQLRecord properties
    - added JSON serialization of Variant and WideString types in JSONToObject()
      / ObjectToJSON() functions and WriteObject method
    - added TTypeInfo.ClassCreate() method to create a TObject instance from RTTI
    - TEnumType.GetEnumNameValue() will now recognize both 'sllWarning' and
      'Warning' text as a sllWarning item (will enhance JSONToObject() process)
    - implement woHumanReadableFullSetsAsStar and woHumanReadableEnumSetAsComment
      option for JSON serialization and TEnumType.GetEnumNameTrimedAll()
    - added ClassInstanceCreate() function calling any known virtual constructor
    - added TPropInfo.ClassFromJSON() to properly unserialize TObject properties
    - added TSQLPropInfo.SQLFieldTypeName property
    - fixed [f96cf0fc5d] and [221ee9c767] about TSQLRecordMany JSON serialization
    - fixed issue when retrieving a TSQLRecord containing TSQLRecordMany
      properties with external tables (like 'no such column DestList' error)
      via SQLite3 virtual tables (e.g. for a JOINed query like FillPrepareMany)
................................................................................
    function GetCaptionStrings(UsedValuesBits: Pointer=nil): string;
    /// add caption names, ready to be display, to a TStrings class
    // - add pointer(ord(element)) as Objects[] value
    // - if UsedValuesBits is not nil, only the corresponding bits set are added
    // - can be used e.g. to populate a combo box as such:
    // ! PTypeInfo(TypeInfo(TMyEnum))^.EnumBaseType^.AddCaptionStrings(ComboBox.Items);
    procedure AddCaptionStrings(Strings: TStrings; UsedValuesBits: Pointer=nil);
    /// retrieve all trimed element names as CSV
    procedure GetEnumNameTrimedAll(var result: RawUTF8);
    /// get the corresponding enumeration ordinal value, from its name without
    // its first lowercase chars ('Done' will find otDone e.g.)
    // - return -1 if not found (don't use directly this value to avoid any GPF)
    function GetEnumNameTrimedValue(const EnumName: ShortString): Integer; overload;
    /// get the corresponding enumeration ordinal value, from its name without
    // its first lowercase chars ('Done' will find otDone e.g.)
    // - return -1 if not found (don't use directly this value to avoid any GPF)
................................................................................
{$endif}

function TEnumType.GetCaption(const Value): string;
// GetCaptionFromPCharLen() expect ASCIIz -> use temp RawUTF8
begin
  GetCaptionFromPCharLen(pointer(GetEnumNameTrimed(Value)),result);
end;

procedure TEnumType.GetEnumNameTrimedAll(var result: RawUTF8);
var i: integer;
    V: PShortString;
begin
  with TTextWriter.CreateOwnedStream(1024) do
  try
    V := @NameList;
    for i := MinValue to MaxValue do begin
      AddTrimLeftLowerCase(V);
      Add(',');
      inc(PtrUInt(V),length(V^)+1);
    end;
    CancelLastComma;
    SetText(result);
  finally
    Free;
  end;
end;

procedure TEnumType.AddCaptionStrings(Strings: TStrings; UsedValuesBits: Pointer=nil);
var i, L: integer;
    Line: array[byte] of AnsiChar;
    P: PAnsiChar;
    V: PShortString;
    s: string;
................................................................................
begin
  fInternalJSONWriter.Free;
  inherited;
end;

procedure TJSONSerializer.WriteObject(Value: TObject; Options: TTextWriterWriteObjectOptions);
var Added: boolean;
    CustomComment: RawUTF8;
procedure HR(P: PPropInfo=nil);
var i: integer;
begin
  if woHumanReadable in Options then begin
    if CustomComment<>'' then begin
      AddShort(' // ');
      AddString(CustomComment);
      CustomComment := '';
    end;
    AddCR;
    for i := 1 to fHumanReadableLevel do
      Add(#9);
  end;
  if P=nil then
    exit;
  AddPropName(P^.Name);
................................................................................
          if (V<>P^.Default) or not (woDontStoreDefault in Options) then begin
            HR(P);
            if {$ifdef FPC}(Kind=tkBool){$else}
               (Kind=tkEnumeration) and (P^.PropType^=TypeInfo(boolean)){$endif} then
              AddString(JSON_BOOLEAN[boolean(V)]) else
              if (woFullExpand in Options) or (woHumanReadable in Options) then
              case Kind of
              tkEnumeration:
              with P^.PropType^^.EnumBaseType^ do begin
                 Add('"');
                 AddTrimLeftLowerCase(GetEnumNameOrd(V));
                 Add('"');
                 if woHumanReadableEnumSetAsComment in Options then
                   GetEnumNameTrimedAll(CustomComment);
              end;
              tkSet:
              with P^.PropType^^.SetEnumType^ do begin
                Add('[');

                if (woHumanReadableFullSetsAsStar in Options) and
                   (MaxValue<32) and GetAllBits(V,MaxValue+1) then
                  AddShort('"*"') else begin
                  PS := @NameList;
                  for j := MinValue to MaxValue do begin
                    if GetBit(V,j) then begin
                      Add('"');
................................................................................
                      Add('"',',');
                    end;
                    inc(PtrUInt(PS),ord(PS^[0])+1); // next item
                  end;
                end;
                CancelLastComma;
                Add(']');
               if woHumanReadableEnumSetAsComment in Options then
                 GetEnumNameTrimedAll(CustomComment);
              end;
              else
                Add(V);
              end else
                Add(V); // typecast enums and sets as plain integer by default
          end;
        end;

  // avoid serializing properties including a default value (JSONToObject function
  // will set the default values, so it may help saving some bandwidth or storage)
  // - woFullExpand will generate a log-friendly layout, including instance class
  // name and reference pointer (it is used in TSynLog)
  // - woStoreClassName will add a "ClassName":"TMyClass", field
  // - woHumanReadableFullSetsAsStar will store an human-readable set with
  // all its enumerates items set to be stored as ["*"]



  TTextWriterWriteObjectOption = (
    woHumanReadable, woDontStoreDefault, woFullExpand, woStoreClassName,
    woHumanReadableFullSetsAsStar);
  /// options set for TTextWriter.WriteObject() method
  TTextWriterWriteObjectOptions = set of TTextWriterWriteObjectOption;

  /// simple writer to a Stream, specialized for the TEXT format
  // - use an internal buffer, faster than string+string
  // - some dedicated methods is able to encode any data with JSON escape
  TTextWriter = class

  // avoid serializing properties including a default value (JSONToObject function
  // will set the default values, so it may help saving some bandwidth or storage)
  // - woFullExpand will generate a log-friendly layout, including instance class
  // name and reference pointer (it is used in TSynLog)
  // - woStoreClassName will add a "ClassName":"TMyClass", field
  // - woHumanReadableFullSetsAsStar will store an human-readable set with
  // all its enumerates items set to be stored as ["*"]
  // - woHumanReadableEnumSetAsComment will add a comment at the end of the
  // line, containing all available values of the enumaration or set, e.g:
  // $ "Enum": "Destroying", // Idle,Started,Finished,Destroying
  TTextWriterWriteObjectOption = (
    woHumanReadable, woDontStoreDefault, woFullExpand, woStoreClassName,
    woHumanReadableFullSetsAsStar, woHumanReadableEnumSetAsComment);
  /// options set for TTextWriter.WriteObject() method
  TTextWriterWriteObjectOptions = set of TTextWriterWriteObjectOption;

  /// simple writer to a Stream, specialized for the TEXT format
  // - use an internal buffer, faster than string+string
  // - some dedicated methods is able to encode any data with JSON escape
  TTextWriter = class

  fColl := Value;
end;

{$endif FPC}
{$endif DELPHI5OROLDER}
{$endif LVCL}













procedure TTestLowLevelTypes.EncodeDecodeJSON;
var J,U: RawUTF8;
    V: TPUtf8CharDynArray;
    i, a, err: integer;
    r: Double;
{$ifndef DELPHI5OROLDER}
................................................................................
{$endif}
{$endif}
{$endif}

{$ifndef LVCL}
{$ifndef DELPHI5OROLDER}
var P: PUTF8Char;


{$endif}
{$endif}
{$ifdef USEVARIANTS}
var Va: Variant;
    c: currency;
{$endif}
begin
................................................................................
  J := GetJSONObjectAsSQL(J,false,true);
  Check(J=U);
  J := '{"RowID":  210 ,"Name":"Alice","Role":"User","Last Login":null, // comment'#13#10+
    '"First Login" : /* to be ignored */  null  ,  "Department"  :  "{\"relPath\":\"317\\\\\",\"revision\":1}" } ]';
  RemoveCommentsFromJSON(@J[1]);
  J := GetJSONObjectAsSQL(J,false,true,1,True);
  Check(J=U);




















































{$ifndef LVCL}
  C2 := TCollTst.Create;
  Coll := TCollTst.Create;
  try
     U := ObjectToJSON(Coll);
     Check(Hash32(U)=$95B54414);
     Check(ObjectToJSON(C2)=U);

  fColl := Value;
end;

{$endif FPC}
{$endif DELPHI5OROLDER}
{$endif LVCL}

type
  TPersistentToJSON = class(TPersistent)
  protected
    fName: RawUTF8;
    fEnum: TSynBackgroundThreadProcessStep;
    fSets: TSynBackgroundThreadProcessSteps;
  published
    property Name: RawUTF8 read fName;
    property Enum: TSynBackgroundThreadProcessStep read fEnum default flagIdle;
    property Sets: TSynBackgroundThreadProcessSteps read fSets default [];
  end;

procedure TTestLowLevelTypes.EncodeDecodeJSON;
var J,U: RawUTF8;
    V: TPUtf8CharDynArray;
    i, a, err: integer;
    r: Double;
{$ifndef DELPHI5OROLDER}
................................................................................
{$endif}
{$endif}
{$endif}

{$ifndef LVCL}
{$ifndef DELPHI5OROLDER}
var P: PUTF8Char;
    O,O2: TPersistentToJSON;
    E: TSynBackgroundThreadProcessStep;
{$endif}
{$endif}
{$ifdef USEVARIANTS}
var Va: Variant;
    c: currency;
{$endif}
begin
................................................................................
  J := GetJSONObjectAsSQL(J,false,true);
  Check(J=U);
  J := '{"RowID":  210 ,"Name":"Alice","Role":"User","Last Login":null, // comment'#13#10+
    '"First Login" : /* to be ignored */  null  ,  "Department"  :  "{\"relPath\":\"317\\\\\",\"revision\":1}" } ]';
  RemoveCommentsFromJSON(@J[1]);
  J := GetJSONObjectAsSQL(J,false,true,1,True);
  Check(J=U);
  O := TPersistentToJSON.Create;
  O2 := TPersistentToJSON.Create;
  try
    J := ObjectToJSON(O,[]);
    Check(J='{"Name":"","Enum":0,"Sets":0}');
    J := ObjectToJSON(O,[woDontStoreDefault]);
    Check(J='{"Name":""}');
    J := ObjectToJSON(O,[woStoreClassName]);
    Check(J='{"ClassName":"TPersistentToJSON","Name":"","Enum":0,"Sets":0}');
    J := ObjectToJSON(O,[woHumanReadable]);
    Check(J='{'#$D#$A#9'"Name": "",'#$D#$A#9'"Enum": "Idle",'#$D#$A#9'"Sets": []'#$D#$A'}');
    with PTypeInfo(TypeInfo(TSynBackgroundThreadProcessStep))^.EnumBaseType^ do
    for E := low(E) to high(E) do begin
      O.fName := Int32ToUTF8(ord(E));
      O.fEnum := E;
      include(O.fSets,E);
      J := ObjectToJSON(O,[]);
      Check(J=FormatUTF8('{"Name":"%","Enum":%,"Sets":%}',[ord(E),ord(E),byte(O.fSets)]));
      JSONToObject(O2,pointer(J),valid);
      Check(Valid);
      Check(O.Name=O2.Name);
      Check(O.Enum=O2.Enum);
      Check(O.Sets=O2.Sets);
      J := ObjectToJSON(O,[woHumanReadable]);
      U := FormatUTF8(
        '{'#$D#$A#9'"NAME": "%",'#$D#$A#9'"ENUM": "%",'#$D#$A#9'"SETS": ["IDLE"',
        [ord(E),UpperCaseU(GetEnumNameTrimed(E))]);
      Check(IdemPChar(pointer(J),pointer(U)));
      JSONToObject(O2,pointer(J),valid);
      Check(Valid);
      Check(O.Name=O2.Name);
      Check(O.Enum=O2.Enum);
      Check(O.Sets=O2.Sets);
    end;
    J := ObjectToJSON(O,[woHumanReadable,woHumanReadableFullSetsAsStar]);
    Check(J='{'#$D#$A#9'"Name": "3",'#$D#$A#9'"Enum": "Destroying",'#$D#$A#9'"Sets": ["*"]'#$D#$A'}');
    J := ObjectToJSON(O,[woHumanReadable,woHumanReadableFullSetsAsStar,woHumanReadableEnumSetAsComment]);
    Check(J='{'#$D#$A#9'"Name": "3",'#$D#$A#9'"Enum": "Destroying", // Idle,Started,Finished,Destroying'+
      #$D#$A#9'"Sets": ["*"] // Idle,Started,Finished,Destroying'#$D#$A'}');
    O2.fName := '';
    O2.fEnum := low(E);
    O2.fSets := [];
    RemoveCommentsFromJSON(@J[1]);
    JSONToObject(O2,pointer(J),valid);
    Check(Valid);
    Check(O.Name=O2.Name);
    Check(O.Enum=O2.Enum);
    Check(O.Sets=O2.Sets);
  finally
    O2.Free;
    O.Free;
  end;
{$ifndef LVCL}
  C2 := TCollTst.Create;
  Coll := TCollTst.Create;
  try
     U := ObjectToJSON(Coll);
     Check(Hash32(U)=$95B54414);
     Check(ObjectToJSON(C2)=U);