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

Implement SSH tunnel with plink.exe on session manager. Fixes issue #401 Plus:

Browse Source 
* Simplify code for getting connection parameters from registry by implementing helpers:LoadConnectionParams()
* Use combobox for network type instead of radio buttons, now that 3 options would need more horizontal space than we have
* Hide tabs on session manager which are irrelevant for the selected network type (e.g. no SSL options for named pipe)
* Some minor code simplifications
This commit is contained in:
Ansgar Becker
2010-03-30 23:22:08 +00:00
parent 5309366fa4
commit 0970f5c2bd
9 changed files with 520 additions and 316 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/tabletools.pas
View File

@ -721,7 +721,7 @@ end;
procedure TfrmTableTools.comboExportOutputTypeChange(Sender: TObject);
var
OldItem: String;
NewIdx, NetType: Integer;
NewIdx: Integer;
DBNode: PVirtualNode;
SessionName: String;
begin
@ -770,21 +770,7 @@ begin
SessionName := Copy(comboExportOutputType.Text, Length(OUTPUT_SERVER)+1, Length(comboExportOutputType.Text));
FreeAndNil(FTargetConnection);
FTargetConnection := TMySQLConnection.Create(Self);
FTargetConnection.Parameters.Hostname := GetRegValue(REGNAME_HOST, DEFAULT_HOST, SessionName);
FTargetConnection.Parameters.Username := GetRegValue(REGNAME_USER, DEFAULT_USER, SessionName);
FTargetConnection.Parameters.Password := decrypt(GetRegValue(REGNAME_PASSWORD, DEFAULT_PASSWORD, SessionName));
FTargetConnection.Parameters.Port := StrToIntDef(GetRegValue(REGNAME_PORT, IntToStr(DEFAULT_PORT), SessionName), DEFAULT_PORT);
if GetRegValue(REGNAME_COMPRESSED, DEFAULT_COMPRESSED, SessionName) then
FTargetConnection.Parameters.Options := FTargetConnection.Parameters.Options + [opCompress]
else
FTargetConnection.Parameters.Options := FTargetConnection.Parameters.Options - [opCompress];
NetType := GetRegValue(REGNAME_NETTYPE, NETTYPE_TCPIP, SessionName);
if NetType = NETTYPE_TCPIP then
FTargetConnection.Parameters.Socketname := ''
else begin
FTargetConnection.Parameters.Socketname := FTargetConnection.Parameters.Hostname;
FTargetConnection.Parameters.Hostname := '.';
end;
FTargetConnection.Parameters := LoadConnectionParams(SessionName);
FTargetConnection.LogPrefix := '['+SessionName+'] ';
FTargetConnection.OnLog := Mainform.LogSQL;
Screen.Cursor := crHourglass;