sdcsb.hpp

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

#pragma pack(pop)

typedef TLckDefx  TLckDef;

typedef TLckDefx *PLckDef;

#pragma pack(push, 1)
struct TFgiDefx
{
	Byte fgipnm;
	char fgicln[13];
	char fgiunb[19];
	char fgidbn[9];
} ;
#pragma pack(pop)

typedef TFgiDefx  TFgiDef;

typedef TFgiDefx *PFgiDef;

#pragma pack(push, 4)
struct TOStDefx
{
	Byte ostsar;
	Byte ostaws;
	Byte ostcpu;
	Byte ostacp;
	Byte ostpac;
	int ostmpa;
	int ostmvt;
	int ostmst;
	int ostmlt;
	int ostdpr;
	int ostdpw;
	int ostbpr;
	int ostbpw;
	int ostdvr;
	int ostdvw;
	int ostbvr;
	int ostbvw;
	int ostnpt;
	int ostnpr;
	int ostprt;
	char ostrsv[3];
} ;
#pragma pack(pop)

typedef TOStDefx  TOStDef;

typedef TOStDefx *POStDef;

#pragma pack(push, 4)
struct THdrDefx
{
	Word hdrlen;
	Word hdrrsv;
} ;
#pragma pack(pop)

typedef THdrDefx  THdrDef;

typedef THdrDefx *PHdrDef;

#pragma pack(push, 4)
struct TMshDefx
{
	Word mshflg;
	Word mshten;
	Word mshnen;
	Word mshlen;
} ;
#pragma pack(pop)

typedef TMshDefx  TMshDef;

typedef TMshDefx *PMshDef;

#pragma pack(push, 4)
struct TCurDefx
{
	int currow;
	Word curibl;
	Word curobl;
	Word curspr;
	Word curspw;
	Word cursvr;
	Word cursvw;
	Byte curtyp;
	Byte curpnm;
	char curiso[3];
	char curunb[19];
	char curdbn[9];
	char currsv[3];
} ;
#pragma pack(pop)

typedef TCurDefx  TCurDef;

typedef TCurDefx *PCurDef;

#pragma pack(push, 4)
struct TDbsDefx
{
	int dbsbfs;
	int dbsbwp;
	int dbsdfs;
	int dbsfrp;
	int dbsfup;
	int dbslpa;
	int dbslpm;
	int dbslpt;
	int dbslpw;
	int dbsltp;
	int dbsltw;
	Byte dbsuse;
	Byte dbsnat;
	Byte dbsntr;
	char dbsfnm[9];
} ;
#pragma pack(pop)

typedef TDbsDefx  TDbsDef;

typedef TDbsDefx *PDbsDef;

#pragma pack(push, 4)
struct TCfgDefx
{
	int cfgwsa;
	int cfgwsl;
	Word cfgnlk;
	Word cfgnpg;
	Word cfgcnc;
	char cfgsvn[9];
	Byte cfgrsv;
} ;
#pragma pack(pop)

typedef TCfgDefx  TCfgDef;

typedef TCfgDefx *PCfgDef;

#pragma pack(push, 4)
struct TSttDefx
{
	int sttspr;
	int sttspw;
	int sttsvr;
	int sttsvw;
	int sttnps;
} ;
#pragma pack(pop)

typedef TSttDefx  TSttDef;

typedef TSttDefx *PSttDef;

#pragma pack(push, 4)
struct TPrcDefx
{
	Word prccol;
	Word prcibl;
	Word prcinl;
	Word prcobl;
	Word prcoul;
	Byte prcpnm;
	Byte prcact;
} ;
#pragma pack(pop)

typedef TPrcDefx  TPrcDef;

typedef TPrcDefx *PPrcDef;

typedef int TCSBLogon;

typedef Word TCSBCursor;

typedef Word TCSBSrvCursor;

class DELPHICLASS ESDCSBError;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION ESDCSBError : public Sdcommon::ESDEngineError 
{
	typedef Sdcommon::ESDEngineError inherited;
	
public:
	#pragma option push -w-inl
	/* ESDEngineError.Create */ inline __fastcall ESDCSBError(int AErrorCode, int ANativeError, const AnsiString 
		Msg, int AErrorPos) : Sdcommon::ESDEngineError(AErrorCode, ANativeError, Msg, AErrorPos) { }
	#pragma option pop
	#pragma option push -w-inl
	/* ESDEngineError.CreateDefPos */ inline __fastcall virtual ESDCSBError(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 ESDCSBError(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 ESDCSBError(int Ident, Extended Dummy) : Sdcommon::ESDEngineError(
		Ident, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall ESDCSBError(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 ESDCSBError(const AnsiString Msg, int AHelpContext) : 
		Sdcommon::ESDEngineError(Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall ESDCSBError(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 ESDCSBError(int Ident, int AHelpContext) : Sdcommon::ESDEngineError(
		Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall ESDCSBError(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 ~ESDCSBError(void) { }
	#pragma option pop
	
};

#pragma pack(pop)

#pragma pack(push, 1)
struct TICsbConnInfo
{
	Byte ServerType;
	int hLogon;
	Word hCursor;
	AnsiString ConnectStr;
} ;
#pragma pack(pop)

class DELPHICLASS TICsbDatabase;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TICsbDatabase : public Sdcommon::TISqlDatabase 
{
	typedef Sdcommon::TISqlDatabase inherited;
	
private:
	void *FHandle;
	bool FIsTransLogging;
	void __fastcall Check(short Status);
	void __fastcall AllocHandle(void);
	void __fastcall FreeHandle(void);
	void __fastcall ChangePreservedProps(void);
	AnsiString __fastcall GetConnectStr(void);
	Word __fastcall GetCurHandle(void);
	int __fastcall GetLogHandle(void);
	void __fastcall SetNullIndicatorError(bool Value);
	void __fastcall SetDefaultOptions(void);
	
protected:
	virtual void * __fastcall GetHandle(void);
	virtual void __fastcall DoConnect(const AnsiString sRemoteDatabase, const AnsiString sUserName, const 
		AnsiString sPassword);
	virtual void __fastcall DoDisconnect(bool Force);
	virtual void __fastcall DoCommit(void);
	virtual void __fastcall DoRollback(void);
	virtual void __fastcall DoStartTransaction(void);
	virtual void __fastcall SetAutoCommitOption(bool Value);
	virtual void __fastcall SetHandle(void * AHandle);
	
public:
	__fastcall virtual TICsbDatabase(Classes::TStrings* ADbParams);
	__fastcall virtual ~TICsbDatabase(void);
	virtual Sdcommon::TISqlCommand* __fastcall CreateSqlCommand(void);
	virtual int __fastcall GetClientVersion(void);
	virtual int __fastcall GetServerVersion(void);
	virtual AnsiString __fastcall GetVersionString(void);
	virtual Sdcommon::TISqlCommand* __fastcall GetSchemaInfo(Sdcommon::TSDSchemaType ASchemaType, AnsiString 
		AObjectName);
	virtual int __fastcall ParamValue(Sdcommon::TSDDatabaseParam Value);
	virtual void __fastcall SetTransIsolation(Sdcommon::TISqlTransIsolation Value);
	virtual bool __fastcall SPDescriptionsAvailable(void);
	virtual bool __fastcall TestConnected(void);
	bool __fastcall UseConnHandle(void);
	__property AnsiString ConnectStr = {read=GetConnectStr};
	__property Word CurHandle = {read=GetCurHandle, nodefault};
	__property int LogHandle = {read=GetLogHandle, nodefault};
	__property bool IsTransLogging = {read=FIsTransLogging, nodefault};
};

#pragma pack(pop)

class DELPHICLASS TICsbCommand;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TICsbCommand : public Sdcommon::TISqlCommand 
{
	typedef Sdcommon::TISqlCommand inherited;
	
private:
	void *FHandle;
	bool FRowFetched;
	int FBlobPieceSize;
	HIDESBASE TICsbDatabase* __fastcall GetSqlDatabase(void);
	Word __fastcall GetCurHandle(void);
	void __fastcall Connect(void);
	void __fastcall ClearBindParams(void);
	Db::TDateTimeRec __fastcall CnvtDBDateTime2DateTimeRec(Db::TFieldType ADataType, void * Buffer, int 
		BufSize);
	AnsiString __fastcall DBDateTimeFormat(Db::TFieldType ADataType);
	int __fastcall DBDateTimeStrLen(Db::TFieldType ADataType);
	void __fastcall SetDefaultParams(void);
	void __fastcall SetPreservation(bool Value);
	void __fastcall QBindParamsBuffer(void);
	void __fastcall SpBindParamsBuffer(void);
	void __fastcall SpGetOutputParams(void);
	
protected:
	void __fastcall Check(short Status);
	void __fastcall CheckPrepared(void);
	virtual void __fastcall BindParamsBuffer(void);
	virtual int __fastcall CnvtDateTime2DBDateTime(Db::TFieldType ADataType, System::TDateTime Value, char * 
		Buffer, int BufSize);
	virtual void __fastcall InitParamList(void);
	virtual Db::TFieldType __fastcall FieldDataType(int ExtDataType);
	virtual void __fastcall FreeParamsBuffer(void);
	virtual void __fastcall DoExecute(void);
	virtual void __fastcall DoExecDirect(AnsiString Value);
	virtual void __fastcall DoPrepare(AnsiString Value);
	virtual void * __fastcall GetHandle(void);
	virtual void __fastcall GetFieldDescs(Sdcommon::TSDFieldDescList* Descs);
	virtual Word __fastcall NativeDataSize(Db::TFieldType FieldType);
	virtual int __fastcall NativeDataType(Db::TFieldType FieldType);
	virtual bool __fastcall RequiredCnvtFieldType(Db::TFieldType FieldType);
	virtual void __fastcall SetFieldsBuffer(void);
	
public:
	__fastcall virtual TICsbCommand(Sdcommon::TISqlDatabase* ASqlDatabase);
	__fastcall virtual ~TICsbCommand(void);
	virtual void __fastcall CloseResultSet(void);
	virtual void __fastcall Disconnect(bool Force);
	virtual int __fastcall GetRowsAffected(void);
	virtual bool __fastcall FetchNextRow(void);
	virtual bool __fastcall GetCnvtFieldData(Sdcommon::TSDFieldDesc* AFieldDesc, void * Buffer, int BufSize
		);
	virtual void __fastcall GetOutputParams(void);
	virtual bool __fastcall ResultSetExists(void);