Group network types in fewer dbms names, to have less code. Also, support other MS SQL network types: tcp/ip, spx/ipx, vines and rpc.

This commit is contained in:
Ansgar Becker
2011-04-04 06:12:56 +00:00
parent 98a028c4cf
commit 049e4bb526
5 changed files with 127 additions and 58 deletions

View File

@ -2680,7 +2680,7 @@ begin
raise Exception.Create('Error: Session "'+Session+'" not found in registry.')
else begin
Result := TConnectionParameters.Create;
Result.NetType := TNetType(GetRegValue(REGNAME_NETTYPE, Integer(ntTCPIP), Session));
Result.NetType := TNetType(GetRegValue(REGNAME_NETTYPE, Integer(ntMySQL_TCPIP), Session));
Result.Hostname := GetRegValue(REGNAME_HOST, '', Session);
Result.Username := GetRegValue(REGNAME_USER, '', Session);
Result.Password := decrypt(GetRegValue(REGNAME_PASSWORD, '', Session));