Ajustes para versões anteriores do Delphi

dliocode · Jun 28, 2023 · 140ba65 · 140ba65
1 parent 16d643c
commit 140ba65
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Providers/DataLogger.Provider.REST.HTTPClient.pas b/src/Providers/DataLogger.Provider.REST.HTTPClient.pas
@@ -428,14 +428,14 @@ procedure TProviderRESTHTTPClient.HTTP(const AMethod: TRESTMethod; const AItemRE
     LHTTP.ConnectionTimeout := 60000;
     LHTTP.ResponseTimeout := 60000;
     LHTTP.SendTimeout := 60000;
+    LHTTP.SecureProtocols := [THTTPSecureProtocol.TLS12, THTTPSecureProtocol.TLS13];
 {$ENDIF}
     LHTTP.HandleRedirects := True;
     LHTTP.UserAgent := 'DataLogger.Provider.REST.HTTPClient';
     LHTTP.ContentType := FContentType;
     LHTTP.AcceptCharSet := 'utf-8';
     LHTTP.AcceptEncoding := 'gzip, deflate';
-    LHTTP.Accept := '*/*';
-    LHTTP.SecureProtocols := [THTTPSecureProtocol.TLS12, THTTPSecureProtocol.TLS13];
+    LHTTP.Accept := '*/*';    
 
     if not FAuthorization.Trim.IsEmpty then
       LHTTP.CustomHeaders['Authorization'] := FAuthorization;

diff --git a/src/Providers/DataLogger.Provider.REST.NetHTTPClient.pas b/src/Providers/DataLogger.Provider.REST.NetHTTPClient.pas
@@ -421,14 +421,14 @@ procedure TProviderRESTNetHTTPClient.HTTP(const AMethod: TRESTMethod; const AIte
     LHTTP.ConnectionTimeout := 60000;
     LHTTP.ResponseTimeout := 60000;
     LHTTP.SendTimeout := 60000;
+    LHTTP.SecureProtocols := [THTTPSecureProtocol.TLS12, THTTPSecureProtocol.TLS13];
 {$ENDIF}
     LHTTP.HandleRedirects := True;
     LHTTP.UserAgent := 'DataLogger.Provider.REST.NetHTTPClient';
     LHTTP.ContentType := FContentType;
     LHTTP.AcceptCharSet := 'utf-8';
     LHTTP.AcceptEncoding := 'gzip, deflate';
-    LHTTP.Accept := '*/*';
-    LHTTP.SecureProtocols := [THTTPSecureProtocol.TLS12, THTTPSecureProtocol.TLS13];
+    LHTTP.Accept := '*/*';    
 
     if not FAuthorization.Trim.IsEmpty then
       LHTTP.CustomHeaders['Authorization'] := FAuthorization;