'Connection' argument in 'Open' was not used, so MySQL host and port were always default ones. Now 'Connection' is treated as 'host:port'.

This commit is contained in:
Miguel 2013-12-22 20:56:33 +04:00
commit 4396270fc7

View file

@ -195,8 +195,14 @@ proc Open*(connection, user, password, database: string): TDbConn {.
## be established.
result = mysql.Init(nil)
if result == nil: dbError("could not open database connection")
if mysql.RealConnect(result, "", user, password, database,
0'i32, nil, 0) == nil:
var
cnctn = connection.split(':')
host = cnctn[0]
port: int32 = 3306
if cnctn.len > 1:
port = int32((cnctn[1]).parseInt())
if mysql.RealConnect(result, host, user, password, database,
port, nil, 0) == nil:
var errmsg = $mysql.error(result)
db_mysql.Close(result)
dbError(errmsg)