sddb2.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) 'SDDb2.pas' rev: 4.00

#ifndef SDDb2HPP
#define SDDb2HPP

#pragma delphiheader begin
#pragma option push -w-
#include <SDOdbc.hpp>	// Pascal unit
#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 Sddb2
{
//-- type declarations -------------------------------------------------------
#pragma pack(push, 1)
struct TSQL_NUMERIC_STRUCT
{
	Byte precision;
	char scale;
	Byte sign;
	Byte val[16];
} ;
#pragma pack(pop)

class DELPHICLASS ESDDb2Error;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION ESDDb2Error : public Sdodbc::ESDOdbcError 
{
	typedef Sdodbc::ESDOdbcError inherited;
	
public:
	#pragma option push -w-inl
	/* ESDOdbcError.CreateWithSqlState */ inline __fastcall ESDDb2Error(short AErrorCode, short ANativeError
		, const AnsiString AMsg, const AnsiString ASqlState) : Sdodbc::ESDOdbcError(AErrorCode, ANativeError
		, AMsg, ASqlState) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* ESDEngineError.Create */ inline __fastcall ESDDb2Error(int AErrorCode, int ANativeError, const AnsiString 
		Msg, int AErrorPos) : Sdodbc::ESDOdbcError(AErrorCode, ANativeError, Msg, AErrorPos) { }
	#pragma option pop
	#pragma option push -w-inl
	/* ESDEngineError.CreateDefPos */ inline __fastcall virtual ESDDb2Error(int AErrorCode, int ANativeError
		, const AnsiString Msg) : Sdodbc::ESDOdbcError(AErrorCode, ANativeError, Msg) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall ESDDb2Error(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size) : Sdodbc::ESDOdbcError(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall ESDDb2Error(int Ident, Extended Dummy) : Sdodbc::ESDOdbcError(
		Ident, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall ESDDb2Error(int Ident, const System::TVarRec * Args, 
		const int Args_Size) : Sdodbc::ESDOdbcError(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall ESDDb2Error(const AnsiString Msg, int AHelpContext) : 
		Sdodbc::ESDOdbcError(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall ESDDb2Error(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sdodbc::ESDOdbcError(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall ESDDb2Error(int Ident, int AHelpContext) : Sdodbc::ESDOdbcError(
		Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall ESDDb2Error(int Ident, const System::TVarRec * Args
		, const int Args_Size, int AHelpContext) : Sdodbc::ESDOdbcError(Ident, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~ESDDb2Error(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

typedef short __stdcall (*TSQLBindFileToCol)(void * hStmt, Word icol, char * FileName, short &FileNameLength
	, unsigned &FileOptions, short MaxFileNameLength, int &StringLength, int &IndicatorValue);

typedef short __stdcall (*TSQLBindFileToParam)(void * hStmt, Word ipar, short fSqlType, char * FileName
	, short &FileNameLength, unsigned &FileOptions, short MaxFileNameLength, int &IndicatorValue);

typedef short __stdcall (*TSQLGetLength)(void * hStmt, short LocatorCType, int Locator, int &StringLength
	, int &IndicatorValue);

typedef short __stdcall (*TSQLGetPosition)(void * hStmt, short LocatorCType, int SourceLocator, int 
	SearchLocator, char * SearchLiteral, int SearchLiteralLength, unsigned FromPosition, unsigned &LocatedAt
	, int &IndicatorValue);

typedef short __stdcall (*TSQLGetSubString)(void * hStmt, short LocatorCType, int SourceLocator, unsigned 
	FromPosition, unsigned ForLength, short TargetCType, void * rgbValue, int cbValueMax, int &StringLength
	, int &IndicatorValue);

typedef short __stdcall (*TSQLSetColAttributes)(void * hStmt, Word icol, char * szColName, short cbColName
	, short fSQLType, unsigned cbColDef, short ibScale, short fNullable);

typedef short __stdcall (*TSQLBindParam)(void * hStmt, Word ParameterNumber, short ValueType, short 
	ParameterType, unsigned LengthPrecision, short ParameterScale, void * ParameterValue, int &StrLen_or_Ind
	);

class DELPHICLASS TDB2Functions;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TDB2Functions : public Sdodbc::TOdbcFunctions 
{
	typedef Sdodbc::TOdbcFunctions inherited;
	
private:
	TSQLBindFileToCol FSQLBindFileToCol;
	TSQLBindFileToParam FSQLBindFileToParam;
	TSQLGetLength FSQLGetLength;
	TSQLGetPosition FSQLGetPosition;
	TSQLGetSubString FSQLGetSubString;
	TSQLSetColAttributes FSQLSetColAttributes;
	TSQLBindParam FSQLBindParam;
	
public:
	virtual void __fastcall SetApiCalls(unsigned ASqlLibModule);
	virtual void __fastcall ClearApiCalls(void);
	__property TSQLBindFileToCol SQLBindFileToCol = {read=FSQLBindFileToCol};
	__property TSQLBindFileToParam SQLBindFileToParam = {read=FSQLBindFileToParam};
	__property TSQLGetLength SQLGetLength = {read=FSQLGetLength};
	__property TSQLGetPosition SQLGetPosition = {read=FSQLGetPosition};
	__property TSQLGetSubString SQLGetSubString = {read=FSQLGetSubString};
	__property TSQLSetColAttributes SQLSetColAttributes = {read=FSQLSetColAttributes};
	__property TSQLBindParam SQLBindParam = {read=FSQLBindParam};
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TDB2Functions(void) : Sdodbc::TOdbcFunctions() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TDB2Functions(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

class DELPHICLASS TIDB2Database;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TIDB2Database : public Sdodbc::TICustomOdbcDatabase 
{
	typedef Sdodbc::TICustomOdbcDatabase inherited;
	
private:
	HIDESBASE TDB2Functions* __fastcall GetCalls(void);
	
protected:
	virtual void __fastcall FreeSqlLib(void);
	virtual void __fastcall LoadSqlLib(void);
	virtual void __fastcall RaiseSDEngineError(short AErrorCode, short ANativeError, const AnsiString AMsg
		, const AnsiString ASqlState);
	
public:
	virtual Sdcommon::TISqlCommand* __fastcall CreateSqlCommand(void);
	virtual AnsiString __fastcall GetAutoIncSQL(void);
	__property TDB2Functions* Calls = {read=GetCalls};
public: