Fix: Correção temporária para av no DBWare

Author: mobius1qwe

src/database/RALDBConnection.pas

@@ -23,8 +23,8 @@   TRALDBConnection = class(TRALComponent)
     constructor Create(AOwner: TComponent); overload;
 
     procedure ApplyUpdatesRemote(ACache: TRALDBSQLCache; AResp: TRALThreadClientResponse);
-    procedure OpenRemote(AQuery: TDataset; AStorage : TRALStorageLink; AResp: TRALThreadClientResponse);
-    procedure ExecSQLRemote(AQuery: TDataset; AStorage : TRALStorageLink; AResp: TRALThreadClientResponse);
+    procedure OpenRemote(AQuery: TDataset; AStorage: TRALStorageLink; AResp: TRALThreadClientResponse);
+    procedure ExecSQLRemote(AQuery: TDataset; AStorage: TRALStorageLink; AResp: TRALThreadClientResponse);
 
     function InfoFieldsFromSQL(ASQL: StringRAL): TRALDBInfoFields;
     function GetTables: TRALDBInfoTables;
@@ -91,7 +91,7 @@ procedure TRALDBConnection.ApplyUpdatesRemote(ACache: TRALDBSQLCache; AResp: TRA
   end;
 end;
 
-procedure TRALDBConnection.OpenRemote(AQuery: TDataset; AStorage : TRALStorageLink;
+procedure TRALDBConnection.OpenRemote(AQuery: TDataset; AStorage: TRALStorageLink;
                                       AResp: TRALThreadClientResponse);
 var
   vMem: TStream;

src/engine/fpHTTP/RALfpHTTPClient.pas

@@ -1,4 +1,4 @@
-unit RALfpHTTPClient;
+unit RALfpHTTPClient;
 
 interface
 
@@ -145,6 +145,7 @@ procedure TRALfpHttpClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
       AResponse.ContentDisposition := FHttp.ResponseHeaders.Values['Content-Disposition'];
       AResponse.StatusCode := FHttp.ResponseStatusCode;
       AResponse.ResponseStream := vResult;
+      AResponse.Params.AddParam('Stream', AResponse.ParamByName('ral_body').AsStream, rpkBODY);
     except
       on e: ESocketError do
       begin

src/engine/indy/RALIndyClient.pas

@@ -84,7 +84,7 @@ procedure TRALIndyClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
   FHttp.ConnectTimeout := Parent.ConnectTimeout;
   FHttp.ReadTimeout := Parent.RequestTimeout;
   FHttp.Request.UserAgent := Parent.UserAgent;
-  FHttp.RedirectMaximum := 30;
+  FHttp.RedirectMaximum := 3;
   FHttp.HandleRedirects := true;
 
   FHttp.IOHandler := nil;
@@ -166,7 +166,9 @@ procedure TRALIndyClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
       AResponse.ContentType := FHttp.Response.ContentType;
       AResponse.ContentDisposition := FHttp.Response.ContentDisposition;
       AResponse.StatusCode := FHttp.ResponseCode;
+
       AResponse.ResponseStream := vResult;
+      AResponse.Params.AddParam('Stream', AResponse.ParamByName('ral_body').AsStream, rpkBODY);
     except
       on e: EIdSocketError do
         tratarExcecao(e.LastError, e.Message);

src/engine/netHTTP/RALnetHTTPClient.pas

@@ -182,6 +182,7 @@ procedure TRALnetHTTPClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
         AResponse.ContentType     := vResponse.MimeType;        
         AResponse.StatusCode      := vResponse.GetStatusCode;
         AResponse.ResponseStream  := vResponse.ContentStream;
+        AResponse.Params.AddParam('Stream', AResponse.ParamByName('ral_body').AsStream, rpkBODY);
       end;	 	  
     except
       on e: ENetHTTPClientException do begin