sdoledb.hpp

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

		Buffer, int BufSize);
	virtual void __fastcall AllocFieldsBuffer(void);
	virtual void __fastcall AllocParamsBuffer(void);
	virtual void __fastcall BindParamsBuffer(void);
	virtual void __fastcall FreeFieldsBuffer(void);
	virtual void __fastcall FreeParamsBuffer(void);
	virtual void __fastcall SetFieldsBuffer(void);
	virtual int __fastcall GetFieldsBufferSize(void);
	virtual int __fastcall GetParamsBufferSize(void);
	virtual void __fastcall DoExecute(void);
	virtual void __fastcall DoExecDirect(AnsiString ACommandValue);
	virtual void __fastcall DoPrepare(AnsiString Value);
	virtual void __fastcall GetFieldDescs(Sdcommon::TSDFieldDescList* Descs);
	virtual void __fastcall InitParamList(void);
	virtual Db::TFieldType __fastcall FieldDataType(int ExtDataType);
	virtual Word __fastcall NativeDataSize(Db::TFieldType FieldType);
	virtual int __fastcall NativeDataType(Db::TFieldType FieldType);
	virtual bool __fastcall RequiredCnvtFieldType(Db::TFieldType FieldType);
	virtual void * __fastcall GetHandle(void);
	
public:
	__fastcall virtual TIOleDbCommand(Sdcommon::TISqlDatabase* ASqlDatabase);
	virtual void __fastcall CloseResultSet(void);
	virtual void __fastcall Disconnect(bool Force);
	virtual void __fastcall Execute(void);
	virtual int __fastcall GetRowsAffected(void);
	virtual bool __fastcall NextResultSet(void);
	virtual bool __fastcall ResultSetExists(void);
	virtual bool __fastcall FetchNextRow(void);
	virtual bool __fastcall GetCnvtFieldData(Sdcommon::TSDFieldDesc* AFieldDesc, void * Buffer, int BufSize
		);
	virtual void __fastcall GetOutputParams(void);
	virtual int __fastcall ReadBlob(Sdcommon::TSDFieldDesc* AFieldDesc, Sdcommon::TBytes &BlobData);
	__property bool IsSrvCursor = {read=FIsSrvCursor, nodefault};
	__property TIOleDbDatabase* SqlDatabase = {read=GetSqlDatabase};
public:
	#pragma option push -w-inl
	/* TISqlCommand.Destroy */ inline __fastcall virtual ~TIOleDbCommand(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIOleDbSchemaCommand;
class PASCALIMPLEMENTATION TIOleDbSchemaCommand : public TIOleDbCommand 
{
	typedef TIOleDbCommand inherited;
	
protected:
	AnsiString FObjPattern;
	#pragma pack(push, 1)
	GUID FSchemaRowsetGUID;
	#pragma pack(pop)
	
	tagVARIANT *FRestrictions;
	int FRestrictCount;
	virtual void __fastcall CreateRestrictions(void) = 0 ;
	void __fastcall DestroyRestrictions(void);
	virtual void __fastcall DoExecute(void);
	virtual void __fastcall DoExecDirect(AnsiString Value);
	virtual void __fastcall DoPrepare(AnsiString Value);
	
public:
	__fastcall virtual TIOleDbSchemaCommand(Sdcommon::TISqlDatabase* ASqlDatabase);
	__fastcall virtual ~TIOleDbSchemaCommand(void);
	__property AnsiString ObjPattern = {read=FObjPattern, write=FObjPattern};
	__property GUID SchemaRowsetGUID = {read=FSchemaRowsetGUID};
};


class DELPHICLASS TIOleDbSchemaTables;
class PASCALIMPLEMENTATION TIOleDbSchemaTables : public TIOleDbSchemaCommand 
{
	typedef TIOleDbSchemaCommand inherited;
	
private:
	bool FSysTables;
	AnsiString FSchName;
	AnsiString FTblName;
	
protected:
	virtual void __fastcall CreateRestrictions(void);
	virtual void __fastcall GetFieldDescs(Sdcommon::TSDFieldDescList* Descs);
	
public:
	__fastcall virtual TIOleDbSchemaTables(Sdcommon::TISqlDatabase* ASqlDatabase);
	virtual bool __fastcall FetchNextRow(void);
	__property bool SysTables = {read=FSysTables, write=FSysTables, nodefault};
public:
	#pragma option push -w-inl
	/* TIOleDbSchemaCommand.Destroy */ inline __fastcall virtual ~TIOleDbSchemaTables(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIOleDbSchemaColumns;
class PASCALIMPLEMENTATION TIOleDbSchemaColumns : public TIOleDbSchemaCommand 
{
	typedef TIOleDbSchemaCommand inherited;
	
private:
	int FColTypeFieldIdx;
	int FColTypeNameLen;
	int FColTypeNameFieldIdx;
	AnsiString __fastcall GetDataTypeName(const int TypeInd);
	
protected:
	virtual void __fastcall CreateRestrictions(void);
	virtual void __fastcall GetFieldDescs(Sdcommon::TSDFieldDescList* Descs);
	
public:
	__fastcall virtual TIOleDbSchemaColumns(Sdcommon::TISqlDatabase* ASqlDatabase);
	virtual bool __fastcall FetchNextRow(void);
public:
	#pragma option push -w-inl
	/* TIOleDbSchemaCommand.Destroy */ inline __fastcall virtual ~TIOleDbSchemaColumns(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIOleDbSchemaIndexes;
class PASCALIMPLEMENTATION TIOleDbSchemaIndexes : public TIOleDbSchemaCommand 
{
	typedef TIOleDbSchemaCommand inherited;
	
private:
	int FIdxTypeFieldIdx;
	int FIdxSortFieldIdx;
	
protected:
	virtual void __fastcall CreateRestrictions(void);
	virtual void __fastcall GetFieldDescs(Sdcommon::TSDFieldDescList* Descs);
	
public:
	__fastcall virtual TIOleDbSchemaIndexes(Sdcommon::TISqlDatabase* ASqlDatabase);
	virtual bool __fastcall FetchNextRow(void);
public:
	#pragma option push -w-inl
	/* TIOleDbSchemaCommand.Destroy */ inline __fastcall virtual ~TIOleDbSchemaIndexes(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIOleDbSchemaProcs;
class PASCALIMPLEMENTATION TIOleDbSchemaProcs : public TIOleDbSchemaCommand 
{
	typedef TIOleDbSchemaCommand inherited;
	
private:
	int FInParamsFieldIdx;
	int FOutParamsFieldIdx;
	
protected:
	virtual void __fastcall CreateRestrictions(void);
	virtual void __fastcall GetFieldDescs(Sdcommon::TSDFieldDescList* Descs);
	
public:
	__fastcall virtual TIOleDbSchemaProcs(Sdcommon::TISqlDatabase* ASqlDatabase);
	virtual bool __fastcall FetchNextRow(void);
public:
	#pragma option push -w-inl
	/* TIOleDbSchemaCommand.Destroy */ inline __fastcall virtual ~TIOleDbSchemaProcs(void) { }
	#pragma option pop
	
};


class DELPHICLASS TIOleDbSchemaProcParams;
class PASCALIMPLEMENTATION TIOleDbSchemaProcParams : public TIOleDbSchemaCommand 
{
	typedef TIOleDbSchemaCommand inherited;
	
protected:
	virtual void __fastcall CreateRestrictions(void);
	
public:
	__fastcall virtual TIOleDbSchemaProcParams(Sdcommon::TISqlDatabase* ASqlDatabase);
public:
	#pragma option push -w-inl
	/* TIOleDbSchemaCommand.Destroy */ inline __fastcall virtual ~TIOleDbSchemaProcParams(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Word DBPROP_SKIPROWCOUNTRESULTS = 0x123;
extern PACKAGE GUID IID_IErrorRecords;
extern PACKAGE GUID IID_ISequentialStream;
extern PACKAGE GUID IID_IStream;
extern PACKAGE GUID IID_IStorage;
extern PACKAGE GUID IID_ILockBytes;
extern PACKAGE GUID IID_IDBSchemaRowset;
#define ProgID_SQLOLEDB "SQLOLEDB"
extern PACKAGE GUID CLSID_SQLOLEDB;
extern PACKAGE GUID CLSID_SQLOLEDB_ERROR;
extern PACKAGE GUID CLSID_SQLOLEDB_ENUMERATOR;
extern PACKAGE GUID IID_ISQLServerErrorInfo;
extern PACKAGE GUID IID_IRowsetFastLoad;
extern PACKAGE GUID IID_IUMSInitialize;
extern PACKAGE GUID IID_ISchemaLock;
extern PACKAGE GUID DBGUID_MSSQLXML;
extern PACKAGE GUID DBGUID_XPATH;
extern PACKAGE GUID IID_ICommandStream;
extern PACKAGE GUID IID_ISQLXMLHelper;
extern PACKAGE GUID DBSCHEMA_LINKEDSERVERS;
static const Shortint CRESTRICTIONS_DBSCHEMA_LINKEDSERVERS = 0x1;
extern PACKAGE GUID DBPROPSET_SQLSERVERDATASOURCE;
extern PACKAGE GUID DBPROPSET_SQLSERVERDATASOURCEINFO;
extern PACKAGE GUID DBPROPSET_SQLSERVERDBINIT;
extern PACKAGE GUID DBPROPSET_SQLSERVERROWSET;
extern PACKAGE GUID DBPROPSET_SQLSERVERSESSION;
extern PACKAGE GUID DBPROPSET_SQLSERVERCOLUMN;
extern PACKAGE GUID DBPROPSET_SQLSERVERSTREAM;
static const Word DBPROP_INIT_GENERALTIMEOUT = 0x11c;
static const Shortint SSPROP_ENABLEFASTLOAD = 0x2;
static const Shortint SSPROP_UNICODELCID = 0x2;
static const Shortint SSPROP_UNICODECOMPARISONSTYLE = 0x3;
static const Shortint SSPROP_COLUMNLEVELCOLLATION = 0x4;
static const Shortint SSPROP_CHARACTERSET = 0x5;
static const Shortint SSPROP_SORTORDER = 0x6;
static const Shortint SSPROP_CURRENTCOLLATION = 0x7;
static const Shortint SSPROP_INIT_CURRENTLANGUAGE = 0x4;
static const Shortint SSPROP_INIT_NETWORKADDRESS = 0x5;
static const Shortint SSPROP_INIT_NETWORKLIBRARY = 0x6;
static const Shortint SSPROP_INIT_USEPROCFORPREP = 0x7;
static const Shortint SSPROP_INIT_AUTOTRANSLATE = 0x8;
static const Shortint SSPROP_INIT_PACKETSIZE = 0x9;
static const Shortint SSPROP_INIT_APPNAME = 0xa;
static const Shortint SSPROP_INIT_WSID = 0xb;
static const Shortint SSPROP_INIT_FILENAME = 0xc;
static const Shortint SSPROP_INIT_ENCRYPT = 0xd;
static const Shortint SSPROP_AUTH_REPL_SERVER_NAME = 0xe;
static const Shortint SSPROP_INIT_TAGCOLUMNCOLLATION = 0xf;
static const Shortint SSPROPVAL_USEPROCFORPREP_OFF = 0x0;
static const Shortint SSPROPVAL_USEPROCFORPREP_ON = 0x1;
static const Shortint SSPROPVAL_USEPROCFORPREP_ON_DROP = 0x2;
static const Shortint SSPROP_QUOTEDCATALOGNAMES = 0x2;
static const Shortint SSPROP_ALLOWNATIVEVARIANT = 0x3;
static const Shortint SSPROP_SQLXMLXPROGID = 0x4;
static const Shortint SSPROP_MAXBLOBLENGTH = 0x8;
static const Shortint SSPROP_FASTLOADOPTIONS = 0x9;
static const Shortint SSPROP_FASTLOADKEEPNULLS = 0xa;
static const Shortint SSPROP_FASTLOADKEEPIDENTITY = 0xb;
static const Shortint SSPROP_CURSORAUTOFETCH = 0xc;
static const Shortint SSPROP_DEFERPREPARE = 0xd;
static const Shortint SSPROP_IRowsetFastLoad = 0xe;
static const Shortint SSPROP_COL_COLLATIONNAME = 0xe;
static const Shortint SSPROP_STREAM_MAPPINGSCHEMA = 0xf;
static const Shortint SSPROP_STREAM_XSL = 0x10;
static const Shortint SSPROP_STREAM_BASEPATH = 0x11;
static const Shortint SSPROP_STREAM_COMMANDTYPE = 0x12;
static const Shortint SSPROP_STREAM_XMLROOT = 0x13;
static const Shortint SSPROP_STREAM_FLAGS = 0x14;
static const Shortint SSPROP_STREAM_CONTENTTYPE = 0x17;
static const Shortint STREAM_FLAGS_DISALLOW_URL = 0x1;
static const Shortint STREAM_FLAGS_DISALLOW_ABSOLUTE_PATH = 0x2;
static const Shortint STREAM_FLAGS_DISALLOW_QUERY = 0x4;
static const Shortint STREAM_FLAGS_DONTCACHEMAPPINGSCHEMA = 0x8;
static const Shortint STREAM_FLAGS_DONTCACHETEMPLATE = 0x10;
static const Shortint STREAM_FLAGS_DONTCACHEXSL = 0x20;
static const unsigned STREAM_FLAGS_RESERVED = 0xffff0000;
static const Shortint SSPROPVAL_COMMANDTYPE_REGULAR = 0x15;
static const Shortint SSPROPVAL_COMMANDTYPE_BULKLOAD = 0x16;
static const Byte DBTYPE_SQLVARIANT = 0x90;
#define DefSqlApiDLL ""
extern PACKAGE AnsiString SqlApiDLL;
extern PACKAGE Sdcommon::TISqlDatabase* __fastcall InitSqlDatabase(Classes::TStrings* ADbParams);
extern PACKAGE void __fastcall LoadSqlLib(void);
extern PACKAGE void __fastcall FreeSqlLib(void);

}	/* namespace Sdoledb */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Sdoledb;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// SDOleDb