Ajustes em ftArray, JsonInterface e ClientSQL

- Suporte a campos ftArray como String (limite inicial 255).
- Correções de Null/NullClass na JsonInterface (inclui Lazarus).
- Remoção de memory leaks em Lazarus/FPC.
- Propriedade BinaryRequest removida do ClientSQL (padrão binário será no ClientPooler).
- Ajuste da numeração de versão.

Author: Ronierys2

CORE/Source/Basic/uRESTDWBasicDB.pas

@@ -817,13 +817,13 @@ interface
   Property    FieldDefs;
   Property    ReadData             : Boolean               Read GetReadData;
   Property    MasterDetailList     : TMasterDetailList     Read vMasterDetailList         Write vMasterDetailList;
+  Property    BinaryRequest        : Boolean               Read vBinaryRequest; //            Write vBinaryRequest;
  Published
   Property MasterDataSet           : TRESTDWClientSQL      Read vMasterDataSet            Write SetMasterDataSet;
   {$IFDEF FPC}
   Property DatabaseCharSet;
   {$ENDIF}
   Property MasterCascadeDelete     : Boolean               Read vCascadeDelete            Write vCascadeDelete;
-  Property BinaryRequest           : Boolean               Read vBinaryRequest            Write vBinaryRequest;
   Property Datapacks               : Integer               Read vDatapacks                Write SetDatapacks;
   Property OnGetDataError          : TOnEventConnection    Read vOnGetDataError           Write vOnGetDataError;         //Recebe os Erros de ExecSQL ou de GetData
   Property AfterScroll             : TOnAfterScroll        Read vOnAfterScroll            Write vOnAfterScroll;

CORE/Source/Basic/uRESTDWStorageBin.pas

@@ -160,10 +160,22 @@ interface
    AStream.Read(vFieldType, SizeOf(vFieldType));
    vFieldDef.DataType := DWFieldTypeToFieldType(vFieldType);
    FFieldTypes[I] := vFieldType;
+
+   If vFieldType in [{$IFDEF FPC}45, {$ENDIF}dwftExtended] Then
+    FFieldTypes[I] := {$IFDEF FPC}Integer(ftFMTBcd){$ELSE}Integer(ftExtended){$ENDIF}
+   Else
+    FFieldTypes[I] := vFieldType;
    // field size
    AStream.Read(vInt, SizeOf(vInt));
+   If vFieldType = dwftVarBytes Then //Max Array Size
+    Begin
+     FFieldTypes[I] := Integer(ftString);
+     FFieldSize[I]  := 255;
+     vInt           := FFieldSize[I];
+    End
+   Else
+    FFieldSize[I] := vInt;
    vFieldDef.Size := vInt;
-   FFieldSize[I]  := vInt;
    // field precision
    AStream.Read(vInt, SizeOf(vInt));
    FFieldPrecision[I] := vInt;
@@ -341,7 +353,13 @@ interface
     FFieldTypes[I] := vFieldType;
    // field size
    AStream.Read(vFieldSize, SizeOf(vFieldSize));
-   FFieldSize[I] := vFieldSize;
+   If vFieldType = dwftVarBytes Then //Max Array Size
+    Begin
+     FFieldTypes[I] := Integer(ftString);
+     FFieldSize[I]  := 255;
+    End
+   Else
+    FFieldSize[I] := vFieldSize;
    // field precision
    AStream.Read(vFieldPrecision, SizeOf(vFieldPrecision));
    {$IFDEF FPC}
@@ -589,8 +607,9 @@ interface
                                    End;
                                  End;
            // N Bytes - Strings
+           dwftVarBytes,
            dwftFixedChar,
-           dwftString            :Begin
+           dwftString            : Begin
                                     stream.Read(vInt64, SizeOf(vInt64));
                                     vString := '';
                                     If vInt64 > 0 Then
@@ -611,7 +630,7 @@ interface
                                         Move(vString[InitStrPos], pData^, Length(vString));
                                       {$ENDIF}
                                      End;
-                                  End;
+                                   End;
            // 1 - Byte - Inteiro
            dwftByte,
            dwftShortint           :Begin
@@ -888,7 +907,7 @@ interface
           dwftStream,
           dwftOraBlob,
           dwftBlob,
-          dwftBytes               :Begin
+          dwftBytes               : Begin
                                      SetLength(vBytes, 0);
                                      stream.Read(vInt64, SizeOf(DWInt64));
                                      If vInt64 > 0 Then
@@ -906,7 +925,7 @@ interface
                                      Finally
                                       SetLength(vBytes, 0);
                                      End;
-                                   End;
+                                    End;
           // N Bytes - Others
           Else
             Begin
@@ -975,6 +994,7 @@ interface
    If (FFieldTypes[i] In [dwftFixedChar,
                           dwftWideString,
                           dwftString,
+                          dwftVarBytes,
                           dwftFixedWideChar]) Then
     Begin
      AStream.Read(vInt64, Sizeof(vInt64));
@@ -1291,7 +1311,7 @@ interface
     dwftWideString : vByte := FieldTypeToDWFieldType(ftString);
     dwftSingle     : vByte := FieldTypeToDWFieldType(ftFloat);
    End;
- AStream.Write(vByte, SizeOf(vByte));
+   AStream.Write(vByte, SizeOf(vByte));
    // fieldsize
    vInt := ADataset.Fields[i].Size;
    AStream.Write(vInt, SizeOf(vInt));
@@ -1427,6 +1447,7 @@ interface
                                 Stream.Write(vString[1], vInt64);
                               {$ENDIF}
                              End;
+        dwftVarBytes,
         dwftString         : Begin
                               {$IFDEF RESTDWANDROID}
                                vString := MarshaledAString(PData);
@@ -1658,6 +1679,7 @@ interface
                            AStream.Write(vString[InitStrPos], vInt64);
                          End;
      // N - Bytes
+    dwftVarBytes,
     dwftString         : Begin
                           vString  := ADataset.Fields[i].AsString;
                           If EncodeStrs Then

CORE/Source/Consts/uRESTDWConsts.pas

@@ -1,4 +1,4 @@
-Unit uRESTDWConsts;
+Unit uRESTDWConsts;
 
 {$I ..\..\Source\Includes\uRESTDW.inc}
 
@@ -60,8 +60,8 @@
 
  // controle de versão
  RESTDWVersionINFO               = 'v2.1.0-';
- RESTDWRelease                   = '3857';
- RESTDWCodeProject               = 'Galaga - SourceForge';
+ RESTDWRelease                   = '3974';
+ RESTDWCodeProject               = 'Final Fantasy X - GitHub';
  RESTDWVersao                    = RESTDWVersionINFO + RESTDWRelease + '(' + RESTDWCodeProject + ')';
  RESTDWDialogoTitulo             = 'REST DataWare Components ' + RESTDWVersao;
  RESTDWSobreTitulo               = 'REST DataWare '+ RESTDWVersao;

CORE/Source/Sockets/Indy/uRESTDWIdBase.pas

@@ -3281,7 +3281,6 @@  TIdHTTPAccess = class(TIdHTTP)
    {$IFEND}
   vAuthRealm   := AResponseInfo.AuthRealm;
   vContentType := ARequestInfo.ContentType;
-
   If CommandExec  (TComponent(AContext),
                    RemoveBackslashCommands(ARequestInfo.URI),
                    ARequestInfo.RawHTTPCommand,
@@ -3898,10 +3897,8 @@ function TRESTDWIdClientPooler.IsServerLive(Aip: String; Aport: Integer;
        If Assigned(bJsonOBJ) Then
         FreeAndNil(bJsonOBJ);
       End;
-     {$IFNDEF FPC} //TODO XyberX
      If Assigned(bJsonValue) Then
       FreeAndNil(bJsonValue);
-     {$ENDIF}
     End;
   Finally
    If vTempValue <> '' Then