sdmss.hpp

SQLDirect Component Library is a light-weight Borland Database Engine replacement for Borland Delphi

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'SDMss.pas' rev: 4.00

#ifndef SDMssHPP
#define SDMssHPP

#pragma delphiheader begin
#pragma option push -w-
#include <SDCommon.hpp>	// Pascal unit
#include <SDConsts.hpp>	// Pascal unit
#include <SyncObjs.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Sdmss
{
//-- type declarations -------------------------------------------------------
typedef void *void;

typedef int INT;

typedef int LONG;

typedef Word USHORT;

typedef int BOOL;

typedef int *LPINT;

typedef void * *LPVOID;

typedef char *LPBYTE;

typedef void *PDBPROCESS;

typedef void *PLOGINREC;

typedef void *PDBCURSOR;

typedef void *PDBHANDLE;

typedef int RETCODE;

typedef int STATUS;

typedef char DBCHAR;

typedef Byte DBBINARY;

typedef Byte DBTINYINT;

typedef short DBSMALLINT;

typedef Word DBUSMALLINT;

typedef int DBINT;

typedef double DBFLT8;

typedef Byte DBBIT;

typedef Byte DBBOOL;

typedef float DBFLT4;

typedef int DBMONEY4;

typedef float DBREAL;

typedef unsigned DBUBOOL;

#pragma pack(push, 4)
struct DBDATETIME4
{
	Word numdays;
	Word nummins;
} ;
#pragma pack(pop)

typedef DBDATETIME4  DBDATETIM4;

#pragma pack(push, 4)
struct DBVARYCHAR
{
	short len;
	char str[256];
} ;
#pragma pack(pop)

#pragma pack(push, 4)
struct DBVARYBIN
{
	short len;
	Byte arr[256];
} ;
#pragma pack(pop)

#pragma pack(push, 4)
struct DBMONEY
{
	int mnyhigh;
	unsigned mnylow;
} ;
#pragma pack(pop)

#pragma pack(push, 1)
struct DBDATETIME
{
	int dtdays;
	unsigned dttime;
} ;
#pragma pack(pop)

#pragma pack(push, 4)
struct DBDATEREC
{
	int year;
	int quarter;
	int month;
	int dayofyear;
	int day;
	int week;
	int weekday;
	int hour;
	int minute;
	int second;
	int millisecond;
} ;
#pragma pack(pop)

#pragma pack(push, 1)
struct DBNUMERIC
{
	Byte precision;
	Byte scale;
	Byte sign;
	Byte val[16];
} ;
#pragma pack(pop)

typedef DBNUMERIC  DBDECIMAL;

#pragma pack(push, 4)
struct TDBPROCINFO
{
	int SizeOfStruct;
	Byte ServerType;
	Word ServerMajor;
	Word ServerMinor;
	Word ServerRevision;
	char ServerName[31];
	char NetLibName[256];
	char NetLibConnStr[256];
} ;
#pragma pack(pop)

typedef TDBPROCINFO *LPDBPROCINFO;

#pragma pack(push, 4)
struct TDBCURSORINFO
{
	int SizeOfStruct;
	unsigned TotCols;
	unsigned TotRows;
	unsigned CurRow;
	unsigned TotRowsFetched;
	unsigned CuMssSetErrHandlerrType;
	unsigned Status;
} ;
#pragma pack(pop)

typedef TDBCURSORINFO *LPDBCURSORINFO;

typedef int *LPCINT;

typedef char *LPCBYTE;

typedef Word *LPUSHORT;

typedef Word *LPCUSHORT;

typedef int *LPDBINT;

typedef int *LPCDBINT;

typedef Byte *LPDBBINARY;

typedef Byte *LPCDBBINARY;

typedef DBDATEREC *LPDBDATEREC;

typedef DBDATEREC *LPCDBDATEREC;

typedef DBDATETIME *LPDBDATETIME;

typedef DBDATETIME *LPCDBDATETIME;

typedef int __cdecl (*TDBERRHANDLE_PROC)(void * dbproc, int severity, int dberr, int oserr, char * dberrstr
	, char * oserrstr);

typedef int __cdecl (*TDBMSGHANDLE_PROC)(void * dbproc, int msgno, int msgstate, int severity, char * 
	msgtext, char * srvname, char * procname, Word line);

typedef TDBERRHANDLE_PROC __fastcall (*Tdberrhandle)(TDBERRHANDLE_PROC handler);

typedef TDBMSGHANDLE_PROC __fastcall (*Tdbmsghandle)(TDBMSGHANDLE_PROC handler);

#pragma pack(push, 1)
struct TDBCOL
{
	int SizeOfStruct;
	char Name[31];
	char ActualName[31];
	char TableName[31];
	Byte dummy1;
	short ColType;
	int UserType;
	int MaxLength;
	Byte Precision;
	Byte Scale;
	int VarLength;
	Byte Null;
	Byte CaseSensitive;
	Byte Updatable;
	Byte dummy2;
	int Identity;
} ;
#pragma pack(pop)

typedef TDBCOL *LPDBCOL;

class DELPHICLASS ESDMssError;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION ESDMssError : public Sdcommon::ESDEngineError 
{
	typedef Sdcommon::ESDEngineError inherited;
	
private:
	void *FHProcess;
	int FSeverity;
	
public:
	__fastcall ESDMssError(void * DbProc, short AErrorCode, short ANativeError, int ASeverity, const AnsiString 
		Msg, int AErrorPos);
	__property void * HProcess = {read=FHProcess};
	__property int Severity = {read=FSeverity, nodefault};
public:
	#pragma option push -w-inl
	/* ESDEngineError.CreateDefPos */ inline __fastcall virtual ESDMssError(int AErrorCode, int ANativeError
		, const AnsiString Msg) : Sdcommon::ESDEngineError(AErrorCode, ANativeError, Msg) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall ESDMssError(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size) : Sdcommon::ESDEngineError(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall ESDMssError(int Ident, Extended Dummy) : Sdcommon::ESDEngineError(
		Ident, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall ESDMssError(int Ident, const System::TVarRec * Args, 
		const int Args_Size) : Sdcommon::ESDEngineError(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall ESDMssError(const AnsiString Msg, int AHelpContext) : 
		Sdcommon::ESDEngineError(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall ESDMssError(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sdcommon::ESDEngineError(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall ESDMssError(int Ident, int AHelpContext) : Sdcommon::ESDEngineError(
		Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall ESDMssError(int Ident, const System::TVarRec * Args
		, const int Args_Size, int AHelpContext) : Sdcommon::ESDEngineError(Ident, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~ESDMssError(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma pack(push, 1)
struct TIMssConnInfo
{
	Byte ServerType;
	void *DBProcPtr;
	void *LoginRecPtr;
	AnsiString ServerNameStr;
} ;
#pragma pack(pop)

class DELPHICLASS TIMssDatabase;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TIMssDatabase : public Sdcommon::TISqlDatabase 
{
	typedef Sdcommon::TISqlDatabase inherited;
	
private:
	void *FHandle;
	Sdcommon::TISqlCommand* FCurSqlCmd;
	bool FByteAsGuid;
	void __fastcall Check(void * dbproc);
	void __fastcall AllocHandle(void);
	void __fastcall FreeHandle(void);
	void * __fastcall GetDBProcPtr(void);
	void * __fastcall GetLoginRecPtr(void);
	AnsiString __fastcall GetServerName(void);
	void __fastcall GetStmtResult(const AnsiString Stmt, Classes::TStrings* List);
	void __fastcall HandleExecCmd(void * AHandle, const AnsiString Stmt);
	void __fastcall HandleSetAutoCommit(void * AHandle);
	void __fastcall HandleSetDefOptions(void * AHandle);
	void __fastcall HandleSetTransIsolation(void * AHandle, Sdcommon::TISqlTransIsolation Value);
	void __fastcall HandleReset(void * AHandle);
	void __fastcall SetDefaultOptions(void);
	
protected:
	virtual void * __fastcall GetHandle(void);
	virtual void __fastcall DoConnect(const AnsiString sRemoteDatabase, const AnsiString sUserName, const 
		AnsiString sPassword);