paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 13:51:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Add some functions for return status treatment (Patch from Laco)

Browse Source 
git-svn-id: trunk@27445 -
This commit is contained in:
michael 2014-04-02 07:25:24 +00:00
parent a92056d219
commit 37eb616960
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,26 +69,26 @@ const
DBTDS_72 = 10; // Microsoft SQL Server 2005 DBTDS_72 = 10; // Microsoft SQL Server 2005
DBTDS_73 = 11; // Microsoft SQL Server 2008 DBTDS_73 = 11; // Microsoft SQL Server 2008
//from sqlfront.h , sybdb.h for freetds //from sqlfront.h , sybdb.h for FreeTDS
DBSETHOST=1; DBSETHOST=1;
DBSETUSER=2; DBSETUSER=2;
DBSETPWD=3; DBSETPWD =3;
DBSETAPP={$IFDEF freetds}5{$ELSE}4{$ENDIF}; DBSETAPP ={$IFDEF freetds}5{$ELSE}4{$ENDIF};
{$IFDEF freetds} {$IFDEF freetds}
DBSETHID= 4; DBSETHID = 4;
DBSETBCP= 6; DBSETBCP = 6;
DBSETNATLANG= 7; DBSETNATLANG= 7;
DBSETNOSHORT= 8; DBSETNOSHORT= 8;
DBSETHIER= 9; DBSETHIER = 9;
DBSETCHARSET= 10; DBSETCHARSET= 10;
DBSETPACKET= 11; DBSETPACKET = 11;
DBSETENCRYPT= 12; DBSETENCRYPT= 12;
DBSETLABELED= 13; DBSETLABELED= 13;
DBSETDBNAME= 14; DBSETDBNAME = 14;
{$ELSE} {$ELSE}
DBSETID=5; DBSETID = 5;
DBSETLANG=6; DBSETLANG = 6;
DBSETSECURE=7; DBSETSECURE = 7;
DBSET_LOGINTIME=10; DBSET_LOGINTIME=10;
DBSETFALLBACK=12; DBSETFALLBACK=12;
{$ENDIF} {$ENDIF}
@ -184,6 +184,7 @@ type
ULONG=longword; ULONG=longword;
// DB-Library datatypes // DB-Library datatypes
DBBOOL=byte; // unsigned char
DBCHAR=shortint; DBCHAR=shortint;
DBBIT=byte; DBBIT=byte;
DBTINYINT=byte; DBTINYINT=byte;
@ -313,6 +314,8 @@ 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 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}; procedure dbfreelogin(login:PLOGINREC); cdecl; external DBLIBDLL {$IFDEF freetds}name 'dbloginfree'{$ENDIF};
procedure dbexit(); cdecl; external DBLIBDLL; procedure dbexit(); cdecl; external DBLIBDLL;
{$IFDEF ntwdblib} {$IFDEF ntwdblib}
@ -359,6 +362,8 @@ 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;
dbhasretstat: function(dbproc:PDBPROCESS):DBBOOL; cdecl;
dbretstatus: function(dbproc:PDBPROCESS):DBINT; cdecl;
dbexit: procedure(); cdecl; dbexit: procedure(); cdecl;
dbfreelogin: procedure(login:PLOGINREC); cdecl; dbfreelogin: procedure(login:PLOGINREC); cdecl;
{$IFDEF ntwdblib} {$IFDEF ntwdblib}
@ -453,6 +458,8 @@ 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(dbhasretstat) := GetProcedureAddress(DBLibLibraryHandle,'dbhasretstat');
pointer(dbretstatus) := GetProcedureAddress(DBLibLibraryHandle,'dbretstatus');
pointer(dbexit) := GetProcedureAddress(DBLibLibraryHandle,'dbexit'); pointer(dbexit) := GetProcedureAddress(DBLibLibraryHandle,'dbexit');
pointer(dbfreelogin) := GetProcedureAddress(DBLibLibraryHandle,{$IFDEF freetds}'dbloginfree'{$ELSE}'dbfreelogin'{$ENDIF}); pointer(dbfreelogin) := GetProcedureAddress(DBLibLibraryHandle,{$IFDEF freetds}'dbloginfree'{$ELSE}'dbfreelogin'{$ENDIF});
pointer(dbclose) := GetProcedureAddress(DBLibLibraryHandle,'dbclose'); pointer(dbclose) := GetProcedureAddress(DBLibLibraryHandle,'dbclose');