opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 11:17:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix non-nil values for mysql_ssl_set(), broken in r4031.

Browse Source
This commit is contained in:
Ansgar Becker
2012-01-24 22:19:02 +00:00
parent a86650d10b
commit 15cf7cd45b
1 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
source/dbconnection.pas
View File

@ -836,6 +836,7 @@ var
CurCharset: String;
StartupInfo: TStartupInfo;
ExitCode: LongWord;
sslca, sslkey, sslcert: PAnsiChar;
PluginDir: AnsiString;
Vars, Status: TDBQuery;
begin
@ -852,11 +853,21 @@ begin
case FParameters.NetType of
ntMySQL_TCPIP: begin
if FParameters.WantSSL then begin
// mysql_ssl_set() wants nil, while PAnsiChar(AnsiString()) is never nil
sslkey := nil;
sslcert := nil;
sslca := nil;
if FParameters.SSLPrivateKey <> '' then
sslkey := PAnsiChar(AnsiString(FParameters.SSLPrivateKey));
if FParameters.SSLCertificate <> '' then
sslcert := PAnsiChar(AnsiString(FParameters.SSLCertificate));
if FParameters.SSLCACertificate <> '' then
sslca := PAnsiChar(AnsiString(FParameters.SSLCACertificate));
{ TODO : Use Cipher and CAPath parameters }
mysql_ssl_set(FHandle,
PAnsiChar(AnsiString(FParameters.SSLPrivateKey)),
PAnsiChar(AnsiString(FParameters.SSLCertificate)),
PAnsiChar(AnsiString(FParameters.SSLCACertificate)),
sslkey,
sslcert,
sslca,
nil,
nil);
Log(lcInfo, 'SSL parameters successfully set.');