From bc2f213bd32bd01dac707c69c2aca5e0a55542e5 Mon Sep 17 00:00:00 2001 From: michael Date: Fri, 23 Sep 2016 10:29:38 +0000 Subject: [PATCH] * Patch from Laco to add additional function in interface git-svn-id: trunk@34556 - --- packages/dblib/src/dblib.pp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/packages/dblib/src/dblib.pp b/packages/dblib/src/dblib.pp index 7bffba8b87..39f358dd1b 100644 --- a/packages/dblib/src/dblib.pp +++ b/packages/dblib/src/dblib.pp @@ -179,7 +179,9 @@ const // Error codes: SYBEFCON = 20002; // SQL Server connection failed + SYBEWRIT = 20006; // Write to SQL Server failed. SYBESMSG = 20018; // General SQL Server error: Check messages from the SQL Server. + SYBEDDNE = 20047; // DBPROCESS is dead or not enabled. type PLOGINREC=Pointer; @@ -361,6 +363,7 @@ var function dbiscount(dbproc:PDBPROCESS):BOOL; cdecl; external DBLIBDLL; function dbcancel(dbproc:PDBPROCESS):RETCODE; cdecl; external DBLIBDLL; function dbcanquery(dbproc:PDBPROCESS):RETCODE; cdecl; external DBLIBDLL; + function dbdead(dbproc:PDBPROCESS):DBBOOL; cdecl; external DBLIBDLL; function dbhasretstat(dbproc:PDBPROCESS):DBBOOL; cdecl; external DBLIBDLL; function dbretstatus(dbproc:PDBPROCESS):DBINT; cdecl; external DBLIBDLL; procedure dbfreelogin(login:PLOGINREC); cdecl; external DBLIBDLL {$IFDEF freetds}name 'dbloginfree'{$ENDIF}; @@ -410,6 +413,7 @@ var dbiscount: function(dbproc:PDBPROCESS):BOOL; cdecl; dbcancel: function(dbproc:PDBPROCESS):RETCODE; cdecl; dbcanquery: function(dbproc:PDBPROCESS):RETCODE; cdecl; + dbdead: function(dbproc:PDBPROCESS):DBBOOL; cdecl; dbhasretstat: function(dbproc:PDBPROCESS):DBBOOL; cdecl; dbretstatus: function(dbproc:PDBPROCESS):DBINT; cdecl; dbexit: procedure(); cdecl; @@ -510,6 +514,7 @@ begin pointer(dbiscount) := GetProcedureAddress(DBLibLibraryHandle,'dbiscount'); pointer(dbcancel) := GetProcedureAddress(DBLibLibraryHandle,'dbcancel'); pointer(dbcanquery) := GetProcedureAddress(DBLibLibraryHandle,'dbcanquery'); + pointer(dbdead) := GetProcedureAddress(DBLibLibraryHandle,'dbdead'); pointer(dbhasretstat) := GetProcedureAddress(DBLibLibraryHandle,'dbhasretstat'); pointer(dbretstatus) := GetProcedureAddress(DBLibLibraryHandle,'dbretstatus'); pointer(dbexit) := GetProcedureAddress(DBLibLibraryHandle,'dbexit');