- 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 GetInterfaceFromEntry() function to speed up interface execution,
      e.g. for TServiceFactoryServer (avoid the RTTI lookup of GetInterface) 
    - added TPropInfo.ClassFromJSON() to properly unserialize TObject properties
    - added TSQLPropInfo.SQLFieldTypeName property
................................................................................
    result := Int32ToUtf8(i);
end;

procedure TSQLPropInfoRTTIEnum.NormalizeValue(var Value: RawUTF8);
var i,err: integer;
begin
  i := GetInteger(pointer(Value),err);
  if err<>0 then // we allow a value stated as text


    i := fEnumType^.GetEnumNameValue(pointer(Value),length(Value)); // -> convert into integer




  if cardinal(i)>cardinal(fEnumType^.MaxValue) then
    Value := '' else  // only set a valid value
    Value := Int32ToUtf8(i);
end;

procedure TSQLPropInfoRTTIEnum.SetValue(Instance: TObject; Value: PUTF8Char; wasString: boolean);
var i,err: integer;
begin
  if Value=nil then
    i := 0 else begin
    i := GetInteger(Value,err);
    if err<>0 then // we allow a value stated as text


      i := fEnumType^.GetEnumNameValue(Value); // -> convert into integer
    if cardinal(i)>cardinal(fEnumType^.MaxValue) then
      i := 0;  // only set a valid value





  end;
  SetOrdProp(Instance,pointer(fPropInfo),i);
end;


{ TSQLPropInfoRTTIChar }

    - 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)
    - fix and enhance boolean values parsing from JSON content ("Yes"=true) 
    - implement woHumanReadableFullSetsAsStar and woHumanReadableEnumSetAsComment
      option for JSON serialization and TEnumType.GetEnumNameTrimedAll()
    - added ClassInstanceCreate() function calling any known virtual constructor
    - added GetInterfaceFromEntry() function to speed up interface execution,
      e.g. for TServiceFactoryServer (avoid the RTTI lookup of GetInterface) 
    - added TPropInfo.ClassFromJSON() to properly unserialize TObject properties
    - added TSQLPropInfo.SQLFieldTypeName property
................................................................................
    result := Int32ToUtf8(i);
end;

procedure TSQLPropInfoRTTIEnum.NormalizeValue(var Value: RawUTF8);
var i,err: integer;
begin
  i := GetInteger(pointer(Value),err);
  if err<>0 then  // we allow a value stated as text
    if fSQLFieldType=sftBoolean then
      i := Ord(IdemPropNameU(Value,'TRUE') or IdemPropNameU(Value,'YES')) else
      i := fEnumType^.GetEnumNameValue(pointer(Value),length(Value)) else
    if fSQLFieldType=sftBoolean then // normalize boolean values range to 0,1
      if Boolean(i) then
        i := 1 else
        i := 0;
  if cardinal(i)>cardinal(fEnumType^.MaxValue) then
    Value := '' else // only set a valid value
    Value := Int32ToUtf8(i);
end;

procedure TSQLPropInfoRTTIEnum.SetValue(Instance: TObject; Value: PUTF8Char; wasString: boolean);
var i,err: integer;
begin
  if Value=nil then
    i := 0 else begin
    i := GetInteger(Value,err);
    if err<>0 then begin // we allow a value stated as text
      if fSQLFieldType=sftBoolean then
        i := Ord(IdemPropNameU(Value,'TRUE') or IdemPropNameU(Value,'YES')) else
        i := fEnumType^.GetEnumNameValue(Value); // -> convert into integer
      if cardinal(i)>cardinal(fEnumType^.MaxValue) then
        i := 0;  // only set a valid text value
    end else
    if fSQLFieldType=sftBoolean then // normalize boolean values range to 0,1
      if Boolean(i) then
        i := 1 else
        i := 0;
  end;
  SetOrdProp(Instance,pointer(fPropInfo),i);
end;


{ TSQLPropInfoRTTIChar }