paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added possibility to specify port

Browse Source 
git-svn-id: trunk@7056 -
This commit is contained in:
michael 2007-04-03 07:59:43 +00:00
parent 77cd61b4d2
commit 38f8edae01
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqldb/mysql/mysqlconn.inc
View File

@ -216,9 +216,13 @@ end;
procedure TConnectionName.ConnectMySQL(var HMySQL : PMySQL;H,U,P : pchar); procedure TConnectionName.ConnectMySQL(var HMySQL : PMySQL;H,U,P : pchar);
Var
Port : Cardinal;
begin begin
HMySQL := mysql_init(HMySQL); 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 If (HMySQL=Nil) then
MySQlError(Nil,SErrServerConnectFailed,Self); MySQlError(Nil,SErrServerConnectFailed,Self);
end; end;