enhanced TLS support in TRestHttpClientSocket

synopse · Jun 18, 2022 · 893a006 · 893a006
1 parent 4f9f551
commit 893a006
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/src/mormot.commit.inc b/src/mormot.commit.inc
@@ -1 +1 @@
-'2.0.3474'
+'2.0.3475'
diff --git a/src/rest/mormot.rest.http.client.pas b/src/rest/mormot.rest.http.client.pas
@@ -170,6 +170,8 @@   TRestHttpClientGeneric = class(TRestClientUri)
 
     /// returns 'Server:Port' current value
     function HostName: RawUtf8;
+    /// low-level access to the HTTP request TLS options
+    function TLS: PNetTlsContext;
     /// optional custom HTTP "User Agent:" header value
     property UserAgent: RawUtf8
       read fExtendedOptions.UserAgent write fExtendedOptions.UserAgent;
@@ -715,6 +717,11 @@ function TRestHttpClientGeneric.HostName: RawUtf8;
     result := '';
 end;
 
+function TRestHttpClientGeneric.TLS: PNetTlsContext;
+begin
+  result := @fExtendedOptions.TLS;
+end;
+
 
 { ************ TRestHttpClientSocket REST Client Class over Sockets }
 
@@ -730,7 +737,7 @@ procedure TRestHttpClientSocket.InternalOpen;
   if fSocketClass = nil then
     fSocketClass := THttpClientSocket;
   fSocket := fSocketClass.Open(
-    fServer, fPort, nlTcp, fConnectTimeout, fHttps);
+    fServer, fPort, nlTcp, fConnectTimeout, fHttps, @fExtendedOptions.TLS);
   {$ifdef VERBOSECLIENTLOG}
   if LogClass <> nil then
     fSocket.OnLog := LogClass.DoLog; // verbose log