!end;
!
!destructor TSQLServer.Destroy;
!begin
!  FHttpServer.Free;
!  inherited;
!end;
You will need to specify also no the client side that those {\f1\fs20 TSQLValue1} and {\f1\fs20 TSQLValue2} tables are virtual.
You have several possibilities:
- Inherit each table not from {\f1\fs20 TSQLRecord}, but from {\f1\fs20 @**TSQLRecordVirtualTableAutoID@}, as was stated above as standard procedure for virtual tables - see @76@;
- If your tables are defined as {\f1\fs20 TSQLRecord}, ensure that the Client side set the table property of its own model to {\f1\fs20 rCustomAutoID};
- If your tables are defined as {\f1\fs20 TSQLRecord}, ensure that both Client and Server set the table property of its own model to {\f1\fs20 rCustomAutoID}.
First option could be done as such:
!type
!!  TSQLValue1 = class(TSQLRecordVirtualTableAutoID)

!end;
!
!destructor TSQLServer.Destroy;
!begin
!  FHttpServer.Free;
!  inherited;
!end;
You will need to specify also on the client side that those {\f1\fs20 TSQLValue1} and {\f1\fs20 TSQLValue2} tables are virtual.
You have several possibilities:
- Inherit each table not from {\f1\fs20 TSQLRecord}, but from {\f1\fs20 @**TSQLRecordVirtualTableAutoID@}, as was stated above as standard procedure for virtual tables - see @76@;
- If your tables are defined as {\f1\fs20 TSQLRecord}, ensure that the Client side set the table property of its own model to {\f1\fs20 rCustomAutoID};
- If your tables are defined as {\f1\fs20 TSQLRecord}, ensure that both Client and Server set the table property of its own model to {\f1\fs20 rCustomAutoID}.
First option could be done as such:
!type
!!  TSQLValue1 = class(TSQLRecordVirtualTableAutoID)

  - added Base64MagicDecode() and SQLToDateTime() functions 
  - added IsEqual(const A,B: TSQLFieldBits): boolean function
  - enhanced FPC/Lazarus Win32/Win64 compilation
  - TDynArrayHashed is now a record with Delphi 2009+, due to a bug in latest
    version of Delphi compiler when using TDynArrayHashed = object(TDynArray)
  - fixed [7658da5529] unexpected hash collision in TDynArrayHashed
  - fixed unexpected GPF in TSynCache.Find() e.g. when cache is disabled
  - fixed function GetJSONField() to properly decode JSON number with exponent
  - handle variant serialization in/from JSON using new VariantLoadJSON(),
    VariantSaveJSON() functions and TTextWriter.AddVariantJSON() method
  - handle variant serialization in/from our binary custom format, using new
    VariantLoad(), VariantSaveLength() and VariantSave() functions
  - added VariantToUTF8() overloaded functions for fast conversion
  - added VariantToInteger()/VariantToIntegerDef() functions for direct process
    of numerical variants (e.g. array indexes)
................................................................................
  - confusing-named RoundTo2Digits() function renamed into Trunc2ToDigit()
  - added simple, non banker rounding SimpleRoundTo2Digits() function
  - fixed potential comparison error in TSynTableFieldProperties.SortCompare()
    when sorting UTF8 Field with tfoCaseInsensitive in Options
  - speedup of QuotedStr() function and TDynArrayHashed hashing process
  - several speedup in GetJSONField() and JSON parsing: it will now expect true,
    false or null to be in lowercase only (as in json.org specifications)


  - function GotoNextJSONField() renamed GotoNextJSONItem(), and fixed to
    handle nested JSON array or objects in addition to string/numbers
  - added function JSONRetrieveIDField() for fast retrieval of a "ID":.. value
  - added function JSONRetrieveStringField() for retrieval of a string field
    name or value from JSON buffer
  - added TextColor() and TextBackground() functions - will initialize internal
    console process after any manual AllocConsole call
................................................................................
// - any integer value is left as its ascii representation
// - wasString is set to true if the JSON value was a "string"
// - works for both field names or values (e.g. '"FieldName":' or 'Value,')
// - EndOfObject (if not nil) is set to the JSON value char (',' ':' or '}' e.g.)
function GetJSONField(P: PUTF8Char; out PDest: PUTF8Char;
  wasString: PBoolean=nil; EndOfObject: PUTF8Char=nil): PUTF8Char;













/// test if the supplied buffer is a "string" value or a numerical value
// (floating point or integer), according to the characters within
// - this version will recognize null/false/true as strings
// - e.g. IsString('0')=false, IsString('abc')=true, IsString('null')=true
function IsString(P: PUTF8Char): boolean;

/// test if the supplied buffer is a "string" value or a numerical value
................................................................................

{/ delete the window resources used to receive GDI messages
  - must be called for each CreateInternalWindow() function
  - both parameter values are then reset to ''/0 }
function ReleaseInternalWindow(var aWindowName: string; var aWindow: HWND): boolean;

type

  TPatchCode = array[0..4] of byte;

  PPatchCode = ^TPatchCode;

/// Self-modifying code - change some memory buffer in the code segment
// - if Backup is not nil, it should point to a Size array of bytes, ready
// to contain the overriden code buffer, for further hook disabling
procedure PatchCode(Old,New: pointer; Size: integer; Backup: pointer=nil;
  LeaveUnprotected: boolean=false);

/// Self-modifying code - change one PtrUInt in the code segment
procedure PatchCodePtrUInt(Code: PPtrUInt; Value: PtrUInt;
  LeaveUnprotected: boolean=false);

/// Self-modifying code - add an asm JUMP to a redirected function
// - if Backup is not nil, it should point to a Size array of bytes, ready
// to contain the overriden code buffer, for further hook disabling
procedure RedirectCode(Func, RedirectFunc: Pointer; Backup: PPatchCode=nil);

/// Self-modifying code - restore a code from its RedirectCode() backup
procedure RedirectCodeRestore(Func: pointer; const Backup: TPatchCode);

{$else}

/// compatibility function, to be implemented according to the running OS
// - expect more or less the same result as the homonymous Win32 API function
function GetTickCount: Cardinal;
................................................................................
asm
  bswap eax
end;
{$endif}
{$endif}

{$ifndef FPC}
procedure FillCharInvoke;
asm
  call System.@FillChar
end;

procedure MoveInvoke;
asm
  call System.Move
end;


{$ifdef CPU64}
{$ifndef NOX64PATCHRTL}

{ Some notes about MOVNTI opcode use below:
  - Delphi inline assembler is not able to compile the instruction -> so we
    had to write some manual DB $... values instead :(
................................................................................
asm // same params than _CopyRecord{ dest, source, typeInfo: Pointer }
{$ifdef CPUX64}
  .NOFRAME
{$endif}
  jmp System.@CopyRecord
end;
{$else PUREPASCAL}
procedure RecordCopyInvoke;


asm

  call System.@CopyRecord



end;

procedure RecordCopy(var Dest; const Source; TypeInfo: pointer);
asm  // faster version of _CopyRecord{dest, source, typeInfo: Pointer} by AB
        { ->    EAX pointer to dest             }
        {       EDX pointer to source           }
        {       ECX pointer to typeInfo         }
................................................................................
end;
{$endif PUREPASCAL}
{$endif FPC}
{$endif ENHANCEDRTL}
{$endif DELPHI5OROLDER}
{$endif USEPACKAGES}

/// used internally to retrieve hidden System.pas function address from asm stub
function GetAddressFromCall(AStub: Pointer): Pointer;
begin
  if AStub=nil then
    result := AStub else
  if PBYTE(AStub)^ = $E8 then begin
    Inc(PtrInt(AStub));
    Result := Pointer(PtrInt(AStub)+SizeOf(integer)+PInteger(AStub)^);
  end else
    Result := nil;
end;


{ ************  Custom record / dynamic array JSON serialization }

type
  /// information about one customized JSON serialization
  TJSONCustomParserRegistration = record
    RecordTypeName: RawUTF8;
................................................................................
      exit;
    end;
    end;
  end;
  result := Source;
end;

function GetJSONFieldOrObjectOrArray(var P: PUTF8Char; wasString: PBoolean=nil;
  EndOfObject: PUTF8Char=nil; HandleValuesAsObjectOrArray: Boolean=false): PUTF8Char;
var Value: PUTF8Char;
begin
  result := nil;
  while ord(P^) in [1..32] do inc(P);
  if HandleValuesAsObjectOrArray and (P^ in ['{','[']) then begin
    Value := P;
    P := GotoNextJSONObjectOrArray(P);
    if P=nil then
      exit; // invalid content
    if wasString<>nil then
      wasString^ := false; // was object or array
    if EndOfObject<>nil then
     EndOfObject^ := P^;
    P^ := #0; // so Values[] will be a valid ASCIIZ string
    inc(P);
    result := Value;
  end else
    result := GetJSONField(P,P,wasString,EndOfObject);
end;

function VariantLoadJSON(var Value: variant; JSON: PUTF8Char;
  ForceStringAs: TReturnedStringType;
  EndOfObject: PUTF8Char; HandleObjectArray: PDocVariantOptions): PUTF8Char;
var wasString: boolean;
    Val: PUTF8Char;
begin
  result := JSON;
................................................................................

var
  LastDispInvokeType: TSynInvokeableVariantType;

procedure SynVarDispProc(Result: PVarData; const Instance: TVarData;
      CallDesc: PCallDesc; Params: Pointer); cdecl;
const DO_PROP = 1; GET_PROP = 2; SET_PROP = 4;
var i: integer;
    Value: TVarData;
    Handler: TCustomVariantType;
    CacheDispInvokeType: TSynInvokeableVariantType; // to be thread-safe
begin
  if Instance.VType=varByRef or varVariant then // handle By Ref variants 
    SynVarDispProc(Result,PVarData(Instance.VPointer)^,CallDesc,Params) else begin
    if Result<>nil then
      VarClear(Variant(Result^));
    case Instance.VType of
    varDispatch, varDispatch or varByRef,
    varUnknown, varUnknown or varByRef, varAny:
      // process Ole Automation variants
................................................................................
        CacheDispInvokeType := LastDispInvokeType; 
        if (CacheDispInvokeType<>nil) and
           (CacheDispInvokeType.VarType=TVarData(Instance).VType) and
           (CallDesc^.CallType in [GET_PROP, DO_PROP]) and
           (Result<>nil) and (CallDesc^.ArgCount=0) then begin
          CacheDispInvokeType.IntGet(Result^,Instance,@CallDesc^.ArgTypes[0]);
          exit;
        end else
        // handle our custom types
        for i := 0 to SynVariantTypes.Count-1 do

          with TSynInvokeableVariantType(SynVariantTypes.List[i]) do
          if VarType=TVarData(Instance).VType then
          case CallDesc^.CallType of
          GET_PROP, DO_PROP:
            if (Result<>nil) and (CallDesc^.ArgCount=0) then begin
              IntGet(Result^,Instance,@CallDesc^.ArgTypes[0]);
              LastDispInvokeType := SynVariantTypes.List[i]; // speed up in loop
              exit;
            end;
          SET_PROP:
            if (Result=nil) and (CallDesc^.ArgCount=1) then begin
              ParseParamPointer(@Params,CallDesc^.ArgTypes[0],Value);
              IntSet(Instance,Value,@CallDesc^.ArgTypes[1]);
              exit;
            end;
          end;
      end;
      // here we call the default code handling custom types
      if FindCustomVariantType(Instance.VType,Handler) then
        TSynInvokeableVariantType(Handler).DispInvoke(
          {$ifdef DELPHI6OROLDER}Result^{$else}Result{$endif},
          Instance,CallDesc,@Params)
      else raise EInvalidOp.Create('Invalid variant invoke');


    end;
    end;
  end;
end;

procedure VariantsDispInvoke;
asm

  call Variants.@DispInvoke;



end;

{$endif FPC}
{$endif ISDELPHIXE2}

function SynRegisterCustomVariantType(aClass: TSynInvokeableVariantTypeClass): TSynInvokeableVariantType;
{$ifdef DELPHI6OROLDER}
................................................................................
{$ifdef DELPHI6OROLDER}
    GetVariantManager(VarMgr);
    VarMgr.DispInvoke := @SynVarDispProc;
    SetVariantManager(VarMgr);
{$else}
  {$ifndef FPC}
  {$ifndef ISDELPHIXE2} // Delphi XE2 just does not like our performance trick :(
    RedirectCode(GetAddressFromCall(@VariantsDispInvoke),@SynVarDispProc);
  {$endif}
  {$endif}
{$endif}
    GarbageCollectorFreeAndNil(SynVariantTypes,TObjectList.Create);
  end;
  result :=  aClass.Create; // register variant type
  SynVariantTypes.Add(result);
................................................................................
  if EndOfObject<>nil then
    EndOfObject^ := P^;
  P^ := #0; // make zero-terminated
  PDest := @P[1];
  if P[1]=#0 then
    PDest := nil;
end;























function IsString(P: PUTF8Char): boolean;  // test if P^ is a "string" value
begin
  if P=nil then begin
    result := false;
    exit;
  end;
................................................................................
{$endif PUREPASCAL}
{$else}
begin
{$endif DELPHI5OROLDER}
  {$ifndef FPC}
   {$ifdef CPU64}
   {$ifndef NOX64PATCHRTL}
   RedirectCode(GetAddressFromCall(@FillCharInvoke),@FillChar);
   RedirectCode(GetAddressFromCall(@MoveInvoke),@Move);
   {$endif NOX64PATCHRTL}
   {$endif CPU64}
   {$ifndef ENHANCEDRTL}
    {$ifndef PUREPASCAL}
     {$ifndef DELPHI5OROLDER}
      {$ifndef USEPACKAGES}
       {$ifdef DOPATCHTRTL}
  RedirectCode(GetAddressFromCall(@RecordCopyInvoke),@RecordCopy);
       {$endif DOPATCHTRTL}
      {$endif USEPACKAGES}
     {$endif DELPHI5OROLDER}
     {$ifndef LVCL}
      {$ifndef DELPHI5OROLDER}
  if not SupportsSSE2 then // back to default X87 code for older CPUs
    PatchCode(@FillChar,@FillCharX87,FILLCHAR_SIZE);
      {$endif DELPHI5OROLDER}
      {$ifndef ISDELPHI2007ANDUP} // use faster FillChar/Move for older Delphi
  RedirectCode(GetAddressFromCall(@FillCharInvoke),@FillChar);
  RedirectCode(GetAddressFromCall(@MoveInvoke),@Move);
      {$endif ISDELPHI2007ANDUP}
     {$endif LVCL}
    {$endif PUREPASCAL}
   {$endif ENHANCEDRTL}
  {$endif FPC}
end;

................................................................................
  {$ifndef NOVARIANTS}
  Assert(SizeOf(TSynTableData)=sizeof(TVarData));
  {$endif NOVARIANTS}

finalization
  GarbageCollectorFree;
end.

  - added Base64MagicDecode() and SQLToDateTime() functions 
  - added IsEqual(const A,B: TSQLFieldBits): boolean function
  - enhanced FPC/Lazarus Win32/Win64 compilation
  - TDynArrayHashed is now a record with Delphi 2009+, due to a bug in latest
    version of Delphi compiler when using TDynArrayHashed = object(TDynArray)
  - fixed [7658da5529] unexpected hash collision in TDynArrayHashed
  - fixed unexpected GPF in TSynCache.Find() e.g. when cache is disabled

  - handle variant serialization in/from JSON using new VariantLoadJSON(),
    VariantSaveJSON() functions and TTextWriter.AddVariantJSON() method
  - handle variant serialization in/from our binary custom format, using new
    VariantLoad(), VariantSaveLength() and VariantSave() functions
  - added VariantToUTF8() overloaded functions for fast conversion
  - added VariantToInteger()/VariantToIntegerDef() functions for direct process
    of numerical variants (e.g. array indexes)
................................................................................
  - confusing-named RoundTo2Digits() function renamed into Trunc2ToDigit()
  - added simple, non banker rounding SimpleRoundTo2Digits() function
  - fixed potential comparison error in TSynTableFieldProperties.SortCompare()
    when sorting UTF8 Field with tfoCaseInsensitive in Options
  - speedup of QuotedStr() function and TDynArrayHashed hashing process
  - several speedup in GetJSONField() and JSON parsing: it will now expect true,
    false or null to be in lowercase only (as in json.org specifications)
  - fixed function GetJSONField() to properly decode JSON number with exponent
  - added function GetJSONFieldOrObjectOrArray() in unit's interface section  
  - function GotoNextJSONField() renamed GotoNextJSONItem(), and fixed to
    handle nested JSON array or objects in addition to string/numbers
  - added function JSONRetrieveIDField() for fast retrieval of a "ID":.. value
  - added function JSONRetrieveStringField() for retrieval of a string field
    name or value from JSON buffer
  - added TextColor() and TextBackground() functions - will initialize internal
    console process after any manual AllocConsole call
................................................................................
// - any integer value is left as its ascii representation
// - wasString is set to true if the JSON value was a "string"
// - works for both field names or values (e.g. '"FieldName":' or 'Value,')
// - EndOfObject (if not nil) is set to the JSON value char (',' ':' or '}' e.g.)
function GetJSONField(P: PUTF8Char; out PDest: PUTF8Char;
  wasString: PBoolean=nil; EndOfObject: PUTF8Char=nil): PUTF8Char;

/// decode a JSON content in an UTF-8 encoded buffer
// - GetJSONField() will only handle JSON "strings" or numbers - if
// HandleValuesAsObjectOrArray is TRUE, this function will process JSON {
// objects } or [ arrays ] and add a #0 at the end of it
// - this function decodes in the P^ buffer memory itself (no memory allocation
// or copy), for faster process - so take care that it is an unique string
// - PDest points to the next field to be decoded, or nil on any unexpected end
// - wasString is set to true if the JSON value was a "string"
// - EndOfObject (if not nil) is set to the JSON value char (',' ':' or '}' e.g.)
function GetJSONFieldOrObjectOrArray(var P: PUTF8Char; wasString: PBoolean=nil;
  EndOfObject: PUTF8Char=nil; HandleValuesAsObjectOrArray: Boolean=false): PUTF8Char;

/// test if the supplied buffer is a "string" value or a numerical value
// (floating point or integer), according to the characters within
// - this version will recognize null/false/true as strings
// - e.g. IsString('0')=false, IsString('abc')=true, IsString('null')=true
function IsString(P: PUTF8Char): boolean;

/// test if the supplied buffer is a "string" value or a numerical value
................................................................................

{/ delete the window resources used to receive GDI messages
  - must be called for each CreateInternalWindow() function
  - both parameter values are then reset to ''/0 }
function ReleaseInternalWindow(var aWindowName: string; var aWindow: HWND): boolean;

type
  /// small memory buffer used to backup a RedirectCode() redirection hook
  TPatchCode = array[0..4] of byte;
  /// pointer to a small memory buffer used to backup a RedirectCode() hook
  PPatchCode = ^TPatchCode;

/// self-modifying code - change some memory buffer in the code segment
// - if Backup is not nil, it should point to a Size array of bytes, ready
// to contain the overriden code buffer, for further hook disabling
procedure PatchCode(Old,New: pointer; Size: integer; Backup: pointer=nil;
  LeaveUnprotected: boolean=false);

/// self-modifying code - change one PtrUInt in the code segment
procedure PatchCodePtrUInt(Code: PPtrUInt; Value: PtrUInt;
  LeaveUnprotected: boolean=false);

/// self-modifying code - add an asm JUMP to a redirected function
// - if Backup is not nil, it should point to a TPatchCode buffer, ready
// to contain the overriden code buffer, for further hook disabling
procedure RedirectCode(Func, RedirectFunc: Pointer; Backup: PPatchCode=nil);

/// self-modifying code - restore a code from its RedirectCode() backup
procedure RedirectCodeRestore(Func: pointer; const Backup: TPatchCode);

{$else}

/// compatibility function, to be implemented according to the running OS
// - expect more or less the same result as the homonymous Win32 API function
function GetTickCount: Cardinal;
................................................................................
asm
  bswap eax
end;
{$endif}
{$endif}

{$ifndef FPC}

function SystemFillCharAddress: Pointer;
asm
  {$ifdef CPU64}
  mov rax,offset System.@FillChar
  {$else}
  mov eax,offset System.@FillChar
  {$endif}
end;


{$ifdef CPU64}
{$ifndef NOX64PATCHRTL}

{ Some notes about MOVNTI opcode use below:
  - Delphi inline assembler is not able to compile the instruction -> so we
    had to write some manual DB $... values instead :(
................................................................................
asm // same params than _CopyRecord{ dest, source, typeInfo: Pointer }
{$ifdef CPUX64}
  .NOFRAME
{$endif}
  jmp System.@CopyRecord
end;
{$else PUREPASCAL}


function SystemRecordCopyAddress: Pointer;
asm
  {$ifdef CPU64}
  mov rax,offset System.@CopyRecord
  {$else}
  mov eax,offset System.@CopyRecord
  {$endif}
end;

procedure RecordCopy(var Dest; const Source; TypeInfo: pointer);
asm  // faster version of _CopyRecord{dest, source, typeInfo: Pointer} by AB
        { ->    EAX pointer to dest             }
        {       EDX pointer to source           }
        {       ECX pointer to typeInfo         }
................................................................................
end;
{$endif PUREPASCAL}
{$endif FPC}
{$endif ENHANCEDRTL}
{$endif DELPHI5OROLDER}
{$endif USEPACKAGES}














{ ************  Custom record / dynamic array JSON serialization }

type
  /// information about one customized JSON serialization
  TJSONCustomParserRegistration = record
    RecordTypeName: RawUTF8;
................................................................................
      exit;
    end;
    end;
  end;
  result := Source;
end;























function VariantLoadJSON(var Value: variant; JSON: PUTF8Char;
  ForceStringAs: TReturnedStringType;
  EndOfObject: PUTF8Char; HandleObjectArray: PDocVariantOptions): PUTF8Char;
var wasString: boolean;
    Val: PUTF8Char;
begin
  result := JSON;
................................................................................

var
  LastDispInvokeType: TSynInvokeableVariantType;

procedure SynVarDispProc(Result: PVarData; const Instance: TVarData;
      CallDesc: PCallDesc; Params: Pointer); cdecl;
const DO_PROP = 1; GET_PROP = 2; SET_PROP = 4;

var Value: TVarData;
    Handler: TSynInvokeableVariantType;
    CacheDispInvokeType: TSynInvokeableVariantType; // to be thread-safe
begin
  if Instance.VType=varByRef or varVariant then // handle By Ref variants
    SynVarDispProc(Result,PVarData(Instance.VPointer)^,CallDesc,Params) else begin
    if Result<>nil then
      VarClear(Variant(Result^));
    case Instance.VType of
    varDispatch, varDispatch or varByRef,
    varUnknown, varUnknown or varByRef, varAny:
      // process Ole Automation variants
................................................................................
        CacheDispInvokeType := LastDispInvokeType; 
        if (CacheDispInvokeType<>nil) and
           (CacheDispInvokeType.VarType=TVarData(Instance).VType) and
           (CallDesc^.CallType in [GET_PROP, DO_PROP]) and
           (Result<>nil) and (CallDesc^.ArgCount=0) then begin
          CacheDispInvokeType.IntGet(Result^,Instance,@CallDesc^.ArgTypes[0]);
          exit;
        end;
      end;
      // handle any custom variant type
      if FindCustomVariantType(Instance.VType,TCustomVariantType(Handler)) then begin
        if Handler.InheritsFrom(TSynInvokeableVariantType) then

          case CallDesc^.CallType of
          GET_PROP, DO_PROP: // fast direct call of our IntGet() virtual method
            if (Result<>nil) and (CallDesc^.ArgCount=0) then begin
              Handler.IntGet(Result^,Instance,@CallDesc^.ArgTypes[0]);
              LastDispInvokeType := Handler; // speed up in loop
              exit;
            end;
          SET_PROP: // fast direct call of our IntSet() virtual method
            if (Result=nil) and (CallDesc^.ArgCount=1) then begin
              ParseParamPointer(@Params,CallDesc^.ArgTypes[0],Value);
              Handler.IntSet(Instance,Value,@CallDesc^.ArgTypes[1]);
              exit;
            end;
          end;

        // here we call the default code handling custom types


        Handler.DispInvoke({$ifdef DELPHI6OROLDER}Result^{$else}Result{$endif},
          Instance,CallDesc,@Params)

      end else
        raise EInvalidOp.CreateFmt('Invalid variant type %d invoke',[Instance.VType]);
    end;
    end;
  end;
end;

function VariantsDispInvokeAddress: pointer;
asm
  {$ifdef CPU64}
  mov rax,offset Variants.@DispInvoke
  {$else}
  mov eax,offset Variants.@DispInvoke
  {$endif}
end;

{$endif FPC}
{$endif ISDELPHIXE2}

function SynRegisterCustomVariantType(aClass: TSynInvokeableVariantTypeClass): TSynInvokeableVariantType;
{$ifdef DELPHI6OROLDER}
................................................................................
{$ifdef DELPHI6OROLDER}
    GetVariantManager(VarMgr);
    VarMgr.DispInvoke := @SynVarDispProc;
    SetVariantManager(VarMgr);
{$else}
  {$ifndef FPC}
  {$ifndef ISDELPHIXE2} // Delphi XE2 just does not like our performance trick :(
    RedirectCode(VariantsDispInvokeAddress,@SynVarDispProc);
  {$endif}
  {$endif}
{$endif}
    GarbageCollectorFreeAndNil(SynVariantTypes,TObjectList.Create);
  end;
  result :=  aClass.Create; // register variant type
  SynVariantTypes.Add(result);
................................................................................
  if EndOfObject<>nil then
    EndOfObject^ := P^;
  P^ := #0; // make zero-terminated
  PDest := @P[1];
  if P[1]=#0 then
    PDest := nil;
end;

function GetJSONFieldOrObjectOrArray(var P: PUTF8Char; wasString: PBoolean=nil;
  EndOfObject: PUTF8Char=nil; HandleValuesAsObjectOrArray: Boolean=false): PUTF8Char;
var Value: PUTF8Char;
begin
  result := nil;
  while ord(P^) in [1..32] do inc(P);
  if HandleValuesAsObjectOrArray and (P^ in ['{','[']) then begin
    Value := P;
    P := GotoNextJSONObjectOrArray(P);
    if P=nil then
      exit; // invalid content
    if wasString<>nil then
      wasString^ := false; // was object or array
    if EndOfObject<>nil then
     EndOfObject^ := P^;
    P^ := #0; // so Values[] will be a valid ASCIIZ string
    inc(P);
    result := Value;
  end else
    result := GetJSONField(P,P,wasString,EndOfObject);
end;

function IsString(P: PUTF8Char): boolean;  // test if P^ is a "string" value
begin
  if P=nil then begin
    result := false;
    exit;
  end;
................................................................................
{$endif PUREPASCAL}
{$else}
begin
{$endif DELPHI5OROLDER}
  {$ifndef FPC}
   {$ifdef CPU64}
   {$ifndef NOX64PATCHRTL}
   RedirectCode(SystemFillCharAddress,@FillChar);
   RedirectCode(@System.Move,@Move);
   {$endif NOX64PATCHRTL}
   {$endif CPU64}
   {$ifndef ENHANCEDRTL}
    {$ifndef PUREPASCAL}
     {$ifndef DELPHI5OROLDER}
      {$ifndef USEPACKAGES}
       {$ifdef DOPATCHTRTL}
  RedirectCode(SystemRecordCopyAddress,@RecordCopy);
       {$endif DOPATCHTRTL}
      {$endif USEPACKAGES}
     {$endif DELPHI5OROLDER}
     {$ifndef LVCL}
      {$ifndef DELPHI5OROLDER}
  if not SupportsSSE2 then // back to default X87 code for older CPUs
    PatchCode(@FillChar,@FillCharX87,FILLCHAR_SIZE);
      {$endif DELPHI5OROLDER}
      {$ifndef ISDELPHI2007ANDUP} // use faster FillChar/Move for older Delphi
  RedirectCode(SystemFillCharAddress,@FillChar);
  RedirectCode(@System.Move,@Move);
      {$endif ISDELPHI2007ANDUP}
     {$endif LVCL}
    {$endif PUREPASCAL}
   {$endif ENHANCEDRTL}
  {$endif FPC}
end;

................................................................................
  {$ifndef NOVARIANTS}
  Assert(SizeOf(TSynTableData)=sizeof(TVarData));
  {$endif NOVARIANTS}

finalization
  GarbageCollectorFree;
end.

end;


{ TBSONVariant }

function TBSONVariant.TryJSONToVariant(var JSON: PUTF8Char;
  var Value: variant; EndOfObject: PUTF8Char): boolean;
// warning: this code should NOT modify the JSON buffer in-place !
  procedure Return(kind: TBSONElementType; P: PUTF8Char; GotoEndOfObject: AnsiChar='}');
  begin
    if GotoEndOfObject<>#0 then
      while P^<>GotoEndOfObject do if P^=#0 then exit else inc(P);
    P := GotoNextNotSpace(P+1);
    if EndOfObject<>nil then
      EndOfObject^ := P^;

end;


{ TBSONVariant }

function TBSONVariant.TryJSONToVariant(var JSON: PUTF8Char;
  var Value: variant; EndOfObject: PUTF8Char): boolean;
// warning: code should NOT modify JSON buffer in-place, unless it returns true
  procedure Return(kind: TBSONElementType; P: PUTF8Char; GotoEndOfObject: AnsiChar='}');
  begin
    if GotoEndOfObject<>#0 then
      while P^<>GotoEndOfObject do if P^=#0 then exit else inc(P);
    P := GotoNextNotSpace(P+1);
    if EndOfObject<>nil then
      EndOfObject^ := P^;