Fix: Correção final do AV no DBWare otimizando consumo de memória

Fixed #123

Author: mobius1qwe

src/database/FireDAC/RALDBFiredacMemTable.pas

@@ -1,4 +1,4 @@
-/// Unit for FireDAC MemTable wrapper
+/// Unit for FireDAC MemTable wrapper
 unit RALDBFiredacMemTable;
 
 {$I ..\..\base\PascalRAL.inc}
@@ -320,7 +320,7 @@ procedure TRALDBFDMemTable.LoadFromRALStorage(ADataSet: TDataSet; AStream: TStre
   if FStorage <> nil then
     FStorage.LoadFromStream(ADataSet, AStream)
   else
-    raise Exception.Create('Storage class não localizada');
+    raise Exception.Create(emStorageClassNotFound);
 end;
 
 procedure TRALDBFDMemTable.Notification(AComponent: TComponent; Operation: TOperation);
@@ -344,7 +344,7 @@ procedure TRALDBFDMemTable.OnApplyUpdates(Sender: TObject; AResponse: TRALRespon
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       FSQLCache.ResponseFromStream(vMem);
       for vInt1 := 0 to Pred(FSQLCache.Count) do
@@ -435,7 +435,7 @@ procedure TRALDBFDMemTable.OnExecSQLResponse(Sender: TObject; AResponse: TRALRes
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       vSQLCache := TRALDBSQLCache.Create;
       try
@@ -475,7 +475,7 @@ procedure TRALDBFDMemTable.OnQueryResponse(Sender: TObject; AResponse: TRALRespo
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       FLoading := True;
 

src/database/Zeos/RALDBZeosMemTable.pas

@@ -138,7 +138,7 @@ procedure TRALDBZMemTable.LoadFromRALStorage(ADataSet: TDataSet; AStream: TStrea
   if FStorage <> nil then
     FStorage.LoadFromStream(ADataSet, AStream)
   else
-    raise Exception.Create('Storage class não localizada');
+    raise Exception.Create(emStorageClassNotFound);
 end;
 
 procedure TRALDBZMemTable.InternalDelete;
@@ -324,7 +324,7 @@ procedure TRALDBZMemTable.OnQueryResponse(Sender: TObject; AResponse: TRALRespon
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       FLoading := True;
       vSQLCache := TRALDBSQLCache.Create;
@@ -369,7 +369,7 @@ procedure TRALDBZMemTable.OnExecSQLResponse(Sender: TObject; AResponse: TRALResp
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       vSQLCache := TRALDBSQLCache.Create;
       try
@@ -410,7 +410,7 @@ procedure TRALDBZMemTable.OnApplyUpdates(Sender: TObject; AResponse: TRALRespons
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       FSQLCache.ResponseFromStream(vMem);
       for vInt1 := 0 to Pred(FSQLCache.Count) do

src/database/sqldb/RALDBBufDataset.pas

@@ -300,7 +300,7 @@ procedure TRALDBBufDataset.OnQueryResponse(Sender: TObject; AResponse: TRALRespo
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       FLoading := True;
 
@@ -347,7 +347,7 @@ procedure TRALDBBufDataset.OnExecSQLResponse(Sender: TObject; AResponse: TRALRes
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       vSQLCache := TRALDBSQLCache.Create;
       try
@@ -388,7 +388,7 @@ procedure TRALDBBufDataset.OnApplyUpdates(Sender: TObject; AResponse: TRALRespon
 begin
   if AResponse.StatusCode = HTTP_OK then
   begin
-    vMem := AResponse.ParamByName('Stream').AsStream;
+    vMem := AResponse.Body.AsStream;
     try
       FSQLCache.ResponseFromStream(vMem);
       for vInt1 := 0 to Pred(FSQLCache.Count) do

src/engine/fpHTTP/RALfpHTTPClient.pas

@@ -145,7 +145,6 @@ 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

@@ -168,7 +168,6 @@ procedure TRALIndyClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
       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,7 +182,6 @@ 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

src/engine/synopse/RALSynopseClient.pas

@@ -146,7 +146,6 @@ procedure TRALSynopseClientHTTP.SendUrl(AURL: StringRAL; ARequest: TRALRequest;
         AResponse.ContentDisposition := AResponse.ParamByName('Content-Disposition').AsString;
         AResponse.StatusCode := vResult;
         AResponse.ResponseText := vHttp.Content;
-        AResponse.Params.AddParam('Stream', AResponse.ParamByName('ral_body').AsStream, rpkBODY);
       except
         on e: ENetSock do
         begin