fpc/packages/openssl/examples/test1.pas
2015-12-31 07:49:47 +00:00

15 lines
202 B
ObjectPascal

program test1;
{$mode objfpc}{$H+}
uses
OpenSSL;
begin
if InitSSLInterface then
Writeln('Success')
else
Writeln('Load failed, missing functions: ',OpenSSL_unavailable_functions);
end.