Merged revision(s) 3075 from SourceForge:

 Correção de AV em SocketDriver Indy.

Author: mobius1qwe

CORE/Source/Consts/uRESTDWConsts.pas

@@ -71,7 +71,7 @@
  monthnames                 : Array [1 .. 12] Of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', {do not localize}
                                                            'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); {do not localize}
  RESTDWVersionINFO          = 'v2.0.2-';
- RESTDWRelease              = '3072';
+ RESTDWRelease              = '3075';
  RESTDWCodeProject          = 'Savage Reign - GitHub';
  RESTDWVersao               = RESTDWVersionINFO + RESTDWRelease + '(' + RESTDWCodeProject + ')';
  GOffsetFromUTC             : TDateTime = 0{$IFDEF HAS_DEPRECATED}deprecated{$ENDIF};

CORE/Source/Sockets/Indy/uRESTDWIdBase.pas

@@ -3123,26 +3123,29 @@  TIdHTTPAccess = class(TIdHTTP)
      {$IFEND}
     {$ENDIF}
     AResponseInfo.ResponseNo               := StatusCode;
-    If (vResponseString <> '') Or
-       (ErrorMessage    <> '') Then
+    If (vResponseString <> '')   Or
+       (ErrorMessage    <> '')   Then
      Begin
-      If Assigned(ResultStream) Then
+      If Assigned(ResultStream)  Then
        FreeAndNil(ResultStream);
       If (vResponseString <> '') Then
        ResultStream  := TStringStream.Create(vResponseString)
       Else
        ResultStream  := TStringStream.Create(ErrorMessage);
      End;
-    if Assigned(ResultStream)  then    //anderson
-    begin
+    If Assigned(ResultStream)    Then
+     Begin
       AResponseInfo.FreeContentStream      := True;
       AResponseInfo.ContentStream          := ResultStream;
       AResponseInfo.ContentStream.Position := 0;
-    end;
+     End;
     {$IFNDEF FPC}
-     AResponseInfo.ContentLength         := ResultStream.Size;
+     if Assigned(ResultStream) Then
+      AResponseInfo.ContentLength          := ResultStream.Size
+     Else
+      AResponseInfo.ContentLength          := -1;
     {$ELSE}
-     AResponseInfo.ContentLength         := -1;
+     AResponseInfo.ContentLength           := -1;
     {$ENDIF}
     For I := 0 To vResponseHeader.Count -1 Do
      AResponseInfo.CustomHeaders.AddValue(vResponseHeader.Names [I],