EETHttpClient ValidateCertificateEvent

mirus77 · Dec 20, 2019 · 2bb54f2 · 2bb54f2
1 parent 0d240c6
commit 2bb54f2
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/source/httpclient/u_EETHttpClient_Net.pas b/source/httpclient/u_EETHttpClient_Net.pas
@@ -62,9 +62,16 @@ procedure TEETHttpClientNet.SendRequest(aUrl : String; aRequestStream: TStream;
 procedure TEETHttpClientNet.ValidateCertificateEvent(const Sender: TObject;
   const ARequest: TURLRequest; const Certificate: TCertificate;
   var Accepted: Boolean);
+var
+  bRes : boolean;
 begin
   {* Trigger only if server certificate is not valid for HttpClient !!! *}
-  Accepted := False;
+  bRes := False;
+  if (Certificate.Start < now) and (now < Certificate.Expiry) then
+    bRes := True;
+  if bRes and (HttpsTrustName <> '') then
+    bRes := Certificate.ProtocolName = HttpsTrustName; // www.eet.cz
+  Accepted := bRes;
 end;
 
 end.