fix:

mobius1qwe · mobius1qwe · commit a8ac7c3485d9 · 2025-12-29T13:41:36.000-03:00
- ajuste de identação de algumas units.
 - Ajuste em MIMETypes para usar a função interna do RAL com todos os tipos definidos no IANA pra corrigir erro no tráfego de arquivos web em alguns sistemas operacionais que não preenchiam corretamente todos os MIMETypes.

feat:
 - Criação de função StreamToByteString para evitar if no StreamToString, otimizando o processo.

chore:
 - Atualização de submodulo pascal_brotli.
diff --git a/pkg/Delphi/Database/RALDBPackage.dpk b/pkg/Delphi/Database/RALDBPackage.dpk
@@ -38,6 +38,7 @@ contains
   RALDBModule in '..\..\..\src\database\RALDBModule.pas',
   RALDBSQLCache in '..\..\..\src\database\RALDBSQLCache.pas',
   RALDBConnection in '..\..\..\src\database\RALDBConnection.pas',
-  RALDBRegister in '..\..\..\src\database\RALDBRegister.pas';
+  RALDBRegister in '..\..\..\src\database\RALDBRegister.pas',
+  RALDBConnectionPooler in '..\..\..\src\database\RALDBConnectionPooler.pas';
 
 end.
diff --git a/pkg/Delphi/Database/RALDBPackage.dproj b/pkg/Delphi/Database/RALDBPackage.dproj
@@ -180,6 +180,7 @@
         <DCCReference Include="..\..\..\src\database\RALDBSQLCache.pas"/>
         <DCCReference Include="..\..\..\src\database\RALDBConnection.pas"/>
         <DCCReference Include="..\..\..\src\database\RALDBRegister.pas"/>
+        <DCCReference Include="..\..\..\src\database\RALDBConnectionPooler.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>
diff --git a/pkg/Delphi/Engine/UniGUIRAL.dpk b/pkg/Delphi/Engine/UniGUIRAL.dpk
@@ -26,6 +26,7 @@ package UniGUIRAL;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
+{$DESCRIPTION 'PascalRAL | UniGUI Components'}
 {$IMPLICITBUILD ON}
 
 requires
diff --git a/pkg/Delphi/Engine/UniGUIRAL.dproj b/pkg/Delphi/Engine/UniGUIRAL.dproj
@@ -239,6 +239,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="..\..\..\..\..\..\..\..\Public\Documents\Embarcadero\Studio\23.0\Bpl\UniGUIRAL.bpl" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>UniGUIRAL.bpl</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile LocalName="..\..\..\..\..\..\..\Public\Documents\Embarcadero\Studio\23.0\Bpl\UniGUIRAL.bpl" Configuration="Debug" Class="ProjectOutput"/>
                 <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\UniGUIRAL.bpl" Configuration="Debug" Class="ProjectOutput"/>
                 <DeployClass Name="AdditionalDebugSymbols">
diff --git a/src/base/RALAuthentication.pas b/src/base/RALAuthentication.pas
@@ -126,14 +126,13 @@   TRALClientJWTAuth = class(TRALAuthClient)
     property OnBeforeGetToken;
   end;
 
-  /// JWT Authenticator for server components
-
   { TRALServerJWTAuth }
 
+  /// JWT Authenticator for server components
   TRALServerJWTAuth = class(TRALAuthServer)
   private
     FAlgorithm: TRALJWTAlgorithm;
-    FCollectionAuth : TOwnedCollection;
+    FCollectionAuth: TOwnedCollection;
     FAuthToken: TRALBaseRoute;
     FExpSecs: IntegerRAL;
     FJSONKey: StringRAL;
@@ -142,7 +141,7 @@   TRALServerJWTAuth = class(TRALAuthServer)
     FOnValidate: TRALOnTokenJWT;
   protected
     function GetAuthRoute: TRALBaseRoute; override;
-    procedure SetAuthRoute(ARoute : TRALBaseRoute); override;
+    procedure SetAuthRoute(ARoute: TRALBaseRoute); override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
diff --git a/src/base/RALClient.pas b/src/base/RALClient.pas
@@ -253,7 +253,7 @@ procedure GetEngineList(AList: TStrings);
 
 procedure TRALClient.SetEngineType(AValue: String);
 var
-  vClass : TRALClientHTTPClass;
+  vClass: TRALClientHTTPClass;
 begin
   if FEngineType = AValue then
     Exit;
diff --git a/src/base/RALRequest.pas b/src/base/RALRequest.pas
@@ -50,8 +50,8 @@   TRALAuthorization = class(TPersistent)
     property AuthString: StringRAL read FAuthString write SetAuthString;
     property AuthType: TRALAuthTypes read FAuthType write FAuthType;
 
-    property AsAuthBasic : TRALAuthBasic read GetAuthBasic;
-    property AsAuthBearer : TRALJWT read GetAuthBearer;
+    property AsAuthBasic: TRALAuthBasic read GetAuthBasic;
+    property AsAuthBearer: TRALJWT read GetAuthBearer;
   end;
 
   { TRALRequest }
diff --git a/src/engine/fpHTTP/RALfpHTTPClient.pas b/src/engine/fpHTTP/RALfpHTTPClient.pas
@@ -13,7 +13,7 @@ interface
 
   TRALfpHttpClientHTTP = class(TRALClientHTTP)
   private
-    FHttp : TFPHTTPClient;
+    FHttp: TFPHTTPClient;
   protected
     procedure OnGetSSLHandler(Sender : TObject; Const UseSSL : Boolean; Out AHandler : TSocketHandler);
   public
diff --git a/src/others/pascal_brotli b/src/others/pascal_brotli
@@ -1 +1 @@
-Subproject commit b95ec5c58ab41c2008d4c466b7aeea1177f1ad0e
+Subproject commit 0dbccf054ccc8b365854570c85fb881598ae8181
diff --git a/src/utils/RALCripto.pas b/src/utils/RALCripto.pas
@@ -129,7 +129,7 @@ function TRALCripto.Encrypt(AValue: TStream): StringRAL;
     vStream := BeforeEncrypt(AValue);
     vStream.Position := 0;
 
-    Result := StreamToString(vStream, True);
+    Result := StreamToByteString(vStream);
   finally
     FreeAndNil(vStream);
   end;
diff --git a/src/utils/RALMIMETypes.pas b/src/utils/RALMIMETypes.pas
@@ -181,8 +181,8 @@ constructor TRALMIMEType.Create;
   FInternalMIMEList.Delimiter := '=';
   FInternalMIMEList.Duplicates := dupIgnore;
   FInternalMIMEList.Sorted := True;
-  GetSystemTypes;
-  if FInternalMIMEList.Count = 0 then
+//  GetSystemTypes;
+//  if FInternalMIMEList.Count = 0 then
     SetDefaultTypes;
 end;
 
diff --git a/src/utils/RALStream.pas b/src/utils/RALStream.pas
@@ -78,7 +78,9 @@ function BytesToStream(ABytes: TBytes): TStream;
 /// Converts a given AStream to TBytes
 function StreamToBytes(AStream: TStream): TBytes;
 // Converts a given AStream to an UTF8String
-function StreamToString(AStream: TStream; ABinary : boolean = false): StringRAL;
+function StreamToString(AStream: TStream): StringRAL;
+// Converts a given AStream to a byte string
+function StreamToByteString(AStream: TStream): StringRAL;
 // Creates a TStream and writes the given AStr into it
 function StringToStreamUTF8(const AStr: StringRAL): TStream;
 function StringToStream(const AStr: StringRAL): TStream;
@@ -138,7 +140,16 @@ function StringToStreamUTF8(const AStr: StringRAL): TStream;
   Result.Position := 0;
 end;
 
-function StreamToString(AStream: TStream; ABinary : boolean): StringRAL;
+function StreamToByteString(AStream: TStream): StringRAL;
+var
+  vBytes: TBytes;
+begin
+  SetLength(vBytes, AStream.Size);
+  AStream.Read(vBytes[0], AStream.Size);
+  Result := BytesToString(vBytes)
+end;
+
+function StreamToString(AStream: TStream): StringRAL;
 var
   vBytes: TBytes;
 begin
@@ -148,26 +159,19 @@ function StreamToString(AStream: TStream; ABinary : boolean): StringRAL;
 
   AStream.Position := 0;
 
-  if not ABinary then begin
-    if AStream.InheritsFrom(TStringStream) then
-    begin
-      Result := TStringStream(AStream).DataString;
-    end
-    else if AStream.InheritsFrom(TRALStringStream) then
-    begin
-      Result := TRALStringStream(AStream).DataString;
-    end
-    else
-    begin
-      SetLength(vBytes, AStream.Size);
-      AStream.Read(vBytes[0], AStream.Size);
-      Result := BytesToStringUTF8(vBytes)
-    end;
+  if AStream.InheritsFrom(TStringStream) then
+  begin
+    Result := TStringStream(AStream).DataString;
+  end
+  else if AStream.InheritsFrom(TRALStringStream) then
+  begin
+    Result := TRALStringStream(AStream).DataString;
   end
-  else begin
+  else
+  begin
     SetLength(vBytes, AStream.Size);
     AStream.Read(vBytes[0], AStream.Size);
-    Result := BytesToString(vBytes)
+    Result := BytesToStringUTF8(vBytes)
   end;
 end;
 
