From 4e1b076d8f442516090c9b48f05ccaf60b44d3d3 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Fri, 4 Feb 2005 17:50:21 +0000
Subject: [PATCH] fixed GetClientInfo for dynamically linked client

---
 fcl/db/sqldb/mysql/mysql4conn.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/fcl/db/sqldb/mysql/mysql4conn.pas b/fcl/db/sqldb/mysql/mysql4conn.pas
index 67a3a0fee2..f415ee9149 100644
--- a/fcl/db/sqldb/mysql/mysql4conn.pas
+++ b/fcl/db/sqldb/mysql/mysql4conn.pas
@@ -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;