unit Unit1;
interface
uses
System.StartUpCopy,
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IdSSLOpenSSL,
System.ioutils, IdSSLOpenSSLHeaders, FMX.StdCtrls, FMX.Controls.Presentation;
type
TForm1 = class(TForm)
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
function StartupFileExists(const AFilename: string): Boolean;
begin
Result := TFile.Exists(TPath.Combine(TPath.GetDocumentsPath, AFilename));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(OpenSSLVersion);
end;
procedure TForm1.FormShow(Sender: TObject);
var
fn : string;
begin
if not StartupFileExists('libssl.so') then
showmessage('libssl.so in '+ TPath.GetDocumentsPath + ' nicht gefunden');
fn := TPath.GetDocumentsPath;
IdOpenSSLSetLibPath(fn); // no effect
Showmessage(OpenSSLVersion); // opensll 1.0.1k-fips 8 Jan 2015
Showmessage(WhichFailedToLoad); // empty
end;
end.