fpcsrc/packages/openssl/examples/test1.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14

program test1;

{$mode objfpc}{$H+}

uses
  OpenSSL;

begin
  if InitSSLInterface then
    Writeln('Success')
  else
    Writeln('Holy shit!');
end.