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

* Enable support for GNU TLS as SSL layer

Browse Source 
git-svn-id: trunk@40859 -
This commit is contained in:
michael 2019-01-14 10:32:42 +00:00
parent 57e7384a18
commit 893a5e8f71
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-web/examples/httpclient/httpget.pas
View File

@ -1,9 +1,16 @@
program httpget;
{$mode objfpc}{$H+}
{$DEFINE USEGNUTLS}
uses
SysUtils, Classes, fphttpclient, sslsockets, fpopenssl, opensslsockets;
SysUtils, Classes, fphttpclient,
{$IFNDEF USEGNUTLS}
fpopenssl, opensslsockets,
{$else}
gnutls, gnutlssockets,
{$endif}
sslsockets;
Type
@ -82,7 +89,7 @@ procedure TTestApp.Run;
begin
if (ParamCount<>2) then
begin
writeln('Usage : ',ExtractFileName(ParamStr(0)), 'URL filename');
writeln('Usage : ',ExtractFileName(ParamStr(0)), ' URL filename');
Halt(1);
end;
With TFPHTTPClient.Create(Nil) do