Răsfoiți Sursa

* Add support to use GNU TLS

git-svn-id: trunk@40886 -
michael 6 ani în urmă
părinte
comite
b8ef2c11a1
1 a modificat fișierele cu 9 adăugiri și 1 ștergeri
  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