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

* Fixed memory leak, context and SSL object must be freed

Browse Source 
git-svn-id: trunk@27739 -
This commit is contained in:
michael 2014-05-08 11:06:17 +00:00
parent aa62089fb3
commit 6d43208e44
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
packages/fcl-net/src/sslsockets.pp
View File

@ -44,17 +44,16 @@ Type
FCTX : TSSLContext;
FSSLActive : Boolean;
FSendHostAsSNI : Boolean;
function CheckSSL(SSLResult: Integer): Boolean;
function CheckSSL(SSLResult: Pointer): Boolean;
function DoneContext: Boolean;
Function FetchErrorInfo: Boolean;
function GetSSLData(AIndex: Integer): TSSLData;
function InitContext(NeedCertificate: Boolean): Boolean;
function InitSslKeys: boolean;
procedure SetSSLData(AIndex: Integer; AValue: TSSLData);
procedure SetSSLLastErrorString(AValue: string);
protected
procedure ReturnError;
Function FetchErrorInfo: Boolean;
function CheckSSL(SSLResult: Integer): Boolean;
function CheckSSL(SSLResult: Pointer): Boolean;
function InitContext(NeedCertificate: Boolean): Boolean; virtual;
function DoneContext: Boolean; virtual;
function InitSslKeys: boolean;virtual;
function DoVerifyCert:boolean;
public
constructor Create; override;
@ -125,10 +124,6 @@ begin
FSSLLastErrorString:=AValue;
end;
procedure TSSLSocketHandler.ReturnError;
begin
end;
function TSSLSocketHandler.DoVerifyCert: boolean;
begin
@ -156,6 +151,8 @@ Var
I : Integer;
begin
FreeAndNil(FSSL);
FreeAndNil(FCTX);
inherited Destroy;
For I:=0 to SSLDataCount do
FreeAndNil(FCertData[i]);