Explorar o código

* Add support to use GNU TLS

git-svn-id: trunk@40886 -
michael %!s(int64=6) %!d(string=hai) anos
pai
achega
b8ef2c11a1
Modificáronse 1 ficheiros con 9 adicións e 1 borrados
  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}
 {$h+}
+{ $define USEGNUTLS}
 program simpleserver;
 
-uses sysutils, custhttpapp, fpwebfile, sslbase, opensslsockets;
+uses
+  sysutils,
+{$ifdef USEGNUTLS}
+  gnutlssockets,
+{$else}
+  opensslsockets,
+{$endif}
+  sslbase,custhttpapp, fpwebfile;
 
 Type