From 38f8edae0118945fbfb4e00e13b980d6ca70770e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 3 Apr 2007 07:59:43 +0000
Subject: [PATCH] * Added possibility to specify port
git-svn-id: trunk@7056 -
---
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc b/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
index 2357e917e1..6c1a9c3ae6 100644
--- a/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
+++ b/packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
@@ -216,9 +216,13 @@ end;
procedure TConnectionName.ConnectMySQL(var HMySQL : PMySQL;H,U,P : pchar);
+Var
+ Port : Cardinal;
+
begin
HMySQL := mysql_init(HMySQL);
- HMySQL:=mysql_real_connect(HMySQL,PChar(H),PChar(U),Pchar(P),Nil,0,Nil,0);
+ Port:=Abs(StrToIntDef(Params.Values['Port'],0));
+ HMySQL:=mysql_real_connect(HMySQL,PChar(H),PChar(U),Pchar(P),Nil,Port,Nil,0);
If (HMySQL=Nil) then
MySQlError(Nil,SErrServerConnectFailed,Self);
end;