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

* Allow the use of the mysql client version 5.1 with TMysqlClient50Connection

Browse Source 
git-svn-id: trunk@13781 -
This commit is contained in:
joost 2009-09-30 18:10:51 +00:00
parent 591878da36
commit 1ea6307a78
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -338,17 +338,19 @@ begin
end;
procedure TConnectionName.DoInternalConnect;
var ClientVerStr: string;
begin
InitialiseMysql;
ClientVerStr := copy(strpas(mysql_get_client_info()),1,3);
{$IFDEF mysql50}
if copy(strpas(mysql_get_client_info()),1,3)<>'5.0' then
if (ClientVerStr<>'5.0') and (ClientVerStr<>'5.1') then
Raise EInOutError.CreateFmt(SErrNotversion50,[strpas(mysql_get_client_info())]);
{$ELSE}
{$IFDEF mysql41}
if copy(strpas(mysql_get_client_info()),1,3)<>'4.1' then
if ClientVerStr<>'4.1' then
Raise EInOutError.CreateFmt(SErrNotversion41,[strpas(mysql_get_client_info())]);
{$ELSE}
if copy(strpas(mysql_get_client_info()),1,3)<>'4.0' then
if ClientVerStr<>'4.0' then
Raise EInOutError.CreateFmt(SErrNotversion40,[strpas(mysql_get_client_info())]);
{$ENDIF}
{$ENDIF}