paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 11:49:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Laco to add additional function in interface

Browse Source 
git-svn-id: trunk@34556 -
This commit is contained in:
michael 2016-09-23 10:29:38 +00:00
parent c7523c6236
commit bc2f213bd3
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/dblib/src/dblib.pp
View File

@ -179,7 +179,9 @@ const
// Error codes: // Error codes:
SYBEFCON = 20002; // SQL Server connection failed 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. SYBESMSG = 20018; // General SQL Server error: Check messages from the SQL Server.
SYBEDDNE = 20047; // DBPROCESS is dead or not enabled.
type type
PLOGINREC=Pointer; PLOGINREC=Pointer;
@ -361,6 +363,7 @@ var
function dbiscount(dbproc:PDBPROCESS):BOOL; cdecl; external DBLIBDLL; function dbiscount(dbproc:PDBPROCESS):BOOL; cdecl; external DBLIBDLL;
function dbcancel(dbproc:PDBPROCESS):RETCODE; cdecl; external DBLIBDLL; function dbcancel(dbproc:PDBPROCESS):RETCODE; cdecl; external DBLIBDLL;
function dbcanquery(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 dbhasretstat(dbproc:PDBPROCESS):DBBOOL; cdecl; external DBLIBDLL;
function dbretstatus(dbproc:PDBPROCESS):DBINT; cdecl; external DBLIBDLL; function dbretstatus(dbproc:PDBPROCESS):DBINT; cdecl; external DBLIBDLL;
procedure dbfreelogin(login:PLOGINREC); cdecl; external DBLIBDLL {$IFDEF freetds}name 'dbloginfree'{$ENDIF}; procedure dbfreelogin(login:PLOGINREC); cdecl; external DBLIBDLL {$IFDEF freetds}name 'dbloginfree'{$ENDIF};
@ -410,6 +413,7 @@ var
dbiscount: function(dbproc:PDBPROCESS):BOOL; cdecl; dbiscount: function(dbproc:PDBPROCESS):BOOL; cdecl;
dbcancel: function(dbproc:PDBPROCESS):RETCODE; cdecl; dbcancel: function(dbproc:PDBPROCESS):RETCODE; cdecl;
dbcanquery: function(dbproc:PDBPROCESS):RETCODE; cdecl; dbcanquery: function(dbproc:PDBPROCESS):RETCODE; cdecl;
dbdead: function(dbproc:PDBPROCESS):DBBOOL; cdecl;
dbhasretstat: function(dbproc:PDBPROCESS):DBBOOL; cdecl; dbhasretstat: function(dbproc:PDBPROCESS):DBBOOL; cdecl;
dbretstatus: function(dbproc:PDBPROCESS):DBINT; cdecl; dbretstatus: function(dbproc:PDBPROCESS):DBINT; cdecl;
dbexit: procedure(); cdecl; dbexit: procedure(); cdecl;
@ -510,6 +514,7 @@ begin
pointer(dbiscount) := GetProcedureAddress(DBLibLibraryHandle,'dbiscount'); pointer(dbiscount) := GetProcedureAddress(DBLibLibraryHandle,'dbiscount');
pointer(dbcancel) := GetProcedureAddress(DBLibLibraryHandle,'dbcancel'); pointer(dbcancel) := GetProcedureAddress(DBLibLibraryHandle,'dbcancel');
pointer(dbcanquery) := GetProcedureAddress(DBLibLibraryHandle,'dbcanquery'); pointer(dbcanquery) := GetProcedureAddress(DBLibLibraryHandle,'dbcanquery');
pointer(dbdead) := GetProcedureAddress(DBLibLibraryHandle,'dbdead');
pointer(dbhasretstat) := GetProcedureAddress(DBLibLibraryHandle,'dbhasretstat'); pointer(dbhasretstat) := GetProcedureAddress(DBLibLibraryHandle,'dbhasretstat');
pointer(dbretstatus) := GetProcedureAddress(DBLibLibraryHandle,'dbretstatus'); pointer(dbretstatus) := GetProcedureAddress(DBLibLibraryHandle,'dbretstatus');
pointer(dbexit) := GetProcedureAddress(DBLibLibraryHandle,'dbexit'); pointer(dbexit) := GetProcedureAddress(DBLibLibraryHandle,'dbexit');