paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:50:26 +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;
begin
CheckConnected;
// Ask MvC
Result:=strpas(pchar(mysql_get_client_info));
{$IfDef LinkDynamically}
// To make it possible to call this if there's no connection yet
InitialiseMysql4;
{$EndIf}
Result:=strpas(mysql_get_client_info());
{$IfDef LinkDynamically}
ReleaseMysql4;
{$EndIf}
end;
function TMySQLConnection.GetServerStatus: String;