78ad20a286
Initial commit git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7144 8e941d3f-bd1b-0410-a28a-d453659cc2b4
94 lines
2.1 KiB
ObjectPascal
94 lines
2.1 KiB
ObjectPascal
unit open_ssl;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,everett_httpclient,LazFileUtils,FileUtil,zipper;
|
|
|
|
function CheckForOpenSSL:Boolean;
|
|
function OpenSSLInstalled:Boolean;
|
|
|
|
implementation
|
|
Var FHTTPClient:TFPHttpClient;
|
|
|
|
{$ifdef win64}
|
|
const
|
|
cOpenSSLURL = 'http://packages.lazarus-ide.org/openssl-1.0.2j-x64_86-win64.zip';
|
|
cAltOpenSSLURL = 'http://indy.fulgan.com/SSL/openssl-1.0.2j-i386-win32.zip';
|
|
{$endif}
|
|
{$ifdef win32}
|
|
const
|
|
cOpenSSLURL = 'http://packages.lazarus-ide.org/openssl-1.0.2j-i386-win32.zip';
|
|
cAltOpenSSLURL = 'http://indy.fulgan.com/SSL/openssl-1.0.2j-x64_86-win64.zip';
|
|
{$endif}
|
|
|
|
|
|
function OpenSSLInstalled:Boolean;
|
|
begin
|
|
{$IFDEF MSWINDOWS}
|
|
Result:= FileExistsUTF8(ExtractFilePath(ParamStr(0)) + 'libeay32.dll') and
|
|
FileExistsUTF8(ExtractFilePath(ParamStr(0)) + 'ssleay32.dll');
|
|
// Look in Windows system dir?
|
|
{$ELSE}
|
|
Result:=True;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
Function CheckForOpenSSL:Boolean;
|
|
var
|
|
ZipFile: String;
|
|
UnZipper: TUnZipper;
|
|
begin
|
|
{$IFDEF MSWINDOWS}
|
|
Result:=FALSE;
|
|
if not OpenSSLInstalled then
|
|
begin
|
|
ZipFile := ExtractFilePath(ParamStr(0)) + ExtractFileName(cOpenSSLURL);
|
|
try
|
|
FHTTPClient.Get(cOpenSSLURL, ZipFile);
|
|
If (FHTTPClient.ResponseStatusCode <> 200) then
|
|
begin
|
|
ZipFile := ExtractFilePath(ParamStr(0)) + ExtractFileName(cAltOpenSSLURL);
|
|
FHTTPClient.Get(cOpenSSLURL, ZipFile);
|
|
end;
|
|
except
|
|
// Just leave
|
|
Exit;
|
|
end;
|
|
|
|
if FileExistsUTF8(ZipFile) then
|
|
begin
|
|
UnZipper := TUnZipper.Create;
|
|
try
|
|
try
|
|
UnZipper.FileName := ZipFile;
|
|
UnZipper.Examine;
|
|
UnZipper.UnZipAllFiles;
|
|
except
|
|
end;
|
|
finally
|
|
UnZipper.Free;
|
|
end;
|
|
DeleteFileUTF8(ZipFile);
|
|
Result:=OpenSSLInstalled;
|
|
end;
|
|
end
|
|
else
|
|
Result:=True;
|
|
{$ELSE}
|
|
Result:=True;
|
|
{$ENDIF}
|
|
end;
|
|
initialization
|
|
begin
|
|
FHTTPClient:=TFPHttpClient.Create(nil);
|
|
end;
|
|
finalization
|
|
begin
|
|
FreeAndNil(FHTTPClient);
|
|
end;
|
|
end.
|
|
|