paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 07:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add support to use GNU TLS

Browse Source 
git-svn-id: trunk@40886 -
This commit is contained in:
michael 2019-01-17 09:52:40 +00:00
parent 080e2bc2bb
commit b8ef2c11a1
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-web/examples/simpleserver/simpleserver.pas
View File

@ -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