Browse Source

* Add support to use GNU TLS

git-svn-id: trunk@40886 -
michael 6 years ago
parent
commit
b8ef2c11a1
1 changed files with 9 additions and 1 deletions
  1. 9 1
      packages/fcl-web/examples/simpleserver/simpleserver.pas

+ 9 - 1
packages/fcl-web/examples/simpleserver/simpleserver.pas

@@ -1,8 +1,16 @@
 {$mode objfpc}
 {$mode objfpc}
 {$h+}
 {$h+}
+{ $define USEGNUTLS}
 program simpleserver;
 program simpleserver;
 
 
-uses sysutils, custhttpapp, fpwebfile, sslbase, opensslsockets;
+uses
+  sysutils,
+{$ifdef USEGNUTLS}
+  gnutlssockets,
+{$else}
+  opensslsockets,
+{$endif}
+  sslbase,custhttpapp, fpwebfile;
 
 
 Type
 Type