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

fixed GetClientInfo for dynamically linked client

Browse Source
This commit is contained in:
joost 2005-02-04 17:50:21 +00:00
parent 1670f96d96
commit 4e1b076d8f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/db/sqldb/mysql/mysql4conn.pas
View File

@ -127,10 +127,17 @@ end;
function TMySQLConnection.GetClientInfo: string; function TMySQLConnection.GetClientInfo: string;
begin begin
CheckConnected; {$IfDef LinkDynamically}
// Ask MvC // To make it possible to call this if there's no connection yet
Result:=strpas(pchar(mysql_get_client_info)); InitialiseMysql4;
{$EndIf}
Result:=strpas(mysql_get_client_info());
{$IfDef LinkDynamically}
ReleaseMysql4;
{$EndIf}
end; end;
function TMySQLConnection.GetServerStatus: String; function TMySQLConnection.GetServerStatus: String;