* Add support to use GNU TLS

git-svn-id: trunk@40886 -
2025-04-19 12:39:27 +02:00 · 2019-01-17 09:52:40 +00:00 · 2019-01-17 09:52:40 +00:00 · b8ef2c11a1
commit b8ef2c11a1
parent 080e2bc2bb
1 changed files with 9 additions and 1 deletions
--- a/packages/fcl-web/examples/simpleserver/simpleserver.pas
+++ b/packages/fcl-web/examples/simpleserver/simpleserver.pas
@ -1,8 +1,16 @@
 {$mode objfpc}
 {$h+}
+{ $define USEGNUTLS}
 program simpleserver;

-uses sysutils, custhttpapp, fpwebfile, sslbase, opensslsockets;
+uses
+  sysutils,
+{$ifdef USEGNUTLS}
+  gnutlssockets,
+{$else}
+  opensslsockets,
+{$endif}
+  sslbase,custhttpapp, fpwebfile;

 Type