sdora.pas

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

  OCI_FNCODE_LOBCLOSEFILE 	= 39;
  OCI_FNCODE_LOBCREATEFILE 	= 40;
  OCI_FNCODE_LOBDELFILE 	= 41;
  OCI_FNCODE_LOBCOPY 		= 42;
  OCI_FNCODE_LOBAPPEND 		= 43;
  OCI_FNCODE_LOBERASE 		= 44;
  OCI_FNCODE_LOBLENGTH	 	= 45;
  OCI_FNCODE_LOBTRIM 		= 46;
  OCI_FNCODE_LOBREAD 		= 47;
  OCI_FNCODE_LOBWRITE 		= 48;
  // 49 unused
  OCI_FNCODE_SVCCTXBREAK	= 50;
  OCI_FNCODE_SERVERVERSION 	= 51;
  // unused 52, 53
  OCI_FNCODE_ATTRGET		= 54;
  OCI_FNCODE_ATTRSET		= 55;
  OCI_FNCODE_PARAMSET		= 56;
  OCI_FNCODE_PARAMGET		= 57;
  OCI_FNCODE_STMTGETPIECEINFO  	= 58;
  OCI_FNCODE_LDATOSVCCTX	= 59;
  OCI_FNCODE_RESULTSETTOSTMT	= 60;
  OCI_FNCODE_STMTSETPIECEINFO  	= 61;
  OCI_FNCODE_TRANSFORGET	= 62;
  OCI_FNCODE_TRANSPREPARE	= 63;
  OCI_FNCODE_TRANSROLLBACK 	= 64;

  OCI_FNCODE_DEFINEBYPOS	= 65;
  OCI_FNCODE_BINDBYPOS		= 66;
  OCI_FNCODE_BINDBYNAME		= 67;

  OCI_FNCODE_LOBASSIGN 		= 68;
  OCI_FNCODE_LOBISEQUAL 	= 69;
  OCI_FNCODE_LOBISINIT 		= 70;
  OCI_FNCODE_LOBLOCATORSIZE 	= 71;
  OCI_FNCODE_LOBCHARSETID 	= 72;
  OCI_FNCODE_LOBCHARSETFORM 	= 73;
  OCI_FNCODE_LOBFILESETNAME 	= 74;
  OCI_FNCODE_LOBFILEGETNAME 	= 75;

  OCI_FNCODE_LOGON		= 76;
  OCI_FNCODE_LOGOFF		= 77;

type
//	Handle Definitions
  OCIEnv           	= dvoid;	// OCI environment handle
  OCIError         	= dvoid;    	// OCI error handle
  OCISvcCtx        	= dvoid; 	// OCI service handle
  OCIStmt          	= dvoid; 	// OCI statement handle
  OCIBind          	= dvoid;      // OCI bind handle
  OCIDefine        	= dvoid;  	// OCI Define handle
  OCIDescribe      	= dvoid;  	// OCI Describe handle
  OCIServer        	= dvoid;  	// OCI Server handle
  OCISession     	= dvoid;     	// OCI Authentication handle
  OCIComplexObject 	= dvoid; 	// OCI COR handle
  OCITrans         	= dvoid; 	// OCI Transaction handle
  OCISecurity      	= dvoid;	// OCI Security handle

  OCICPool         	= dvoid;      // connection pool handle
  OCISPool         	= dvoid;      // session pool handle
  OCIAuthInfo      	= dvoid;      // auth handle

{$IFDEF SD_CLR}
  POCIEnv		= dvoid;
  POCIError		= dvoid;
  POCISvcCtx		= dvoid;
  POCIStmt		= dvoid;
  POCIBind		= dvoid;
  PPOCIBind		= dvoid;
  POCIDefine		= dvoid;
  POCIDescribe		= dvoid;
  POCIServer        	= dvoid;
  POCISession     	= dvoid;

  POCICPool         	= dvoid;
  POCISPool         	= dvoid;
  POCIAuthInfo      	= dvoid;

  POCISnapshot		= dvoid;
  POCILobLocator	= dvoid;
  POCIResult		= dvoid;
  POCIParam		= dvoid;
  POCIComplexObjectComp	= dvoid;
  POCIRowid		= dvoid;

  POCIDateTime		= dvoid;
  POCIInterval		= dvoid;
{$ELSE}
  POCIEnv		= ^OCIEnv;
  POCIError		= ^OCIError;
  POCISvcCtx		= ^OCISvcCtx;
  POCIStmt		= ^OCIStmt;
  POCIBind		= ^OCIBind;
  PPOCIBind		= ^POCIBind;
  POCIDefine		= ^OCIDefine;
  POCIDescribe		= ^OCIDescribe;
  POCIServer        	= ^OCIServer;
  POCISession     	= ^OCISession;

  POCICPool         	= ^OCICPool;
  POCISPool         	= ^OCISPool;
  POCIAuthInfo      	= ^OCIAuthInfo;

  POCISnapshot		= ^OCISnapshot;
  POCILobLocator	= ^OCILobLocator;
  POCIResult		= ^OCIResult;
  POCIParam		= ^OCIParam;
  POCIComplexObjectComp	= ^OCIComplexObjectComp;
  POCIRowid		= ^OCIRowid;

  POCIDateTime		= ^OCIDateTime;
  POCIInterval		= ^OCIInterval;
{$ENDIF}

//	Descriptor Definitions
  OCISnapshot     	= dvoid;      // OCI snapshot descriptor
  OCIResult       	= dvoid;      // OCI Result Set Descriptor
  OCILobLocator   	= dvoid; 	// OCI Lob Locator descriptor
  OCIParam        	= dvoid;      // OCI PARameter descriptor
  OCIComplexObjectComp	= dvoid;	// OCI COR descriptor
  OCIRowid		= dvoid;	// OCI ROWID descriptor

  OCIDateTime 		= dvoid;     	// OCI DateTime descriptor
  OCIInterval 		= dvoid;     	// OCI Interval descriptor

  OCIUcb      		= dvoid;     	// OCI User Callback descriptor
  OCIServerDNs		= dvoid;    	// OCI server DN descriptor

// Lob typedefs for Pro*C
  OCIClobLocator	= OCILobLocator;	// OCI Character LOB Locator
  OCIBlobLocator	= OCILobLocator;       	// OCI Binary LOB Locator
  OCIBFileLocator	= OCILobLocator; 	// OCI Binary LOB File Locator

const
// Undefined value for tz in interval types
  OCI_INTHR_UNK 	= 24;

// These defined adjustment values
  OCI_ADJUST_UNK        = 10;
  OCI_ORACLE_DATE       = 0;
  OCI_ANSI_DATE         = 1;

type
//	Lob-specific Definitions

// ociloff - OCI Lob OFFset
  OCILobOffset 		= ubig_ora;

// ocillen - OCI Lob LENgth (of lob data)
  OCILobLength		= ubig_ora;

// ocilmo - OCI Lob open MOdes
//enum OCILobMode{ OCI_LOBMODE_READONLY = 1 /* read-only */ };
  OCILobMode		= Integer;
const
  OCI_LOBMODE_READONLY 	= 1;

//	FILE open modes
  OCI_FILE_READONLY	= 1;	// readonly mode open for FILE types

//	LOB Buffering Flush Flags
  OCI_LOB_BUFFER_FREE  	= 1;
  OCI_LOB_BUFFER_NOFREE	= 2;

//	OCI Statement Types
  OCI_STMT_SELECT 	= 1;	// select statement
  OCI_STMT_UPDATE 	= 2;	// update statement
  OCI_STMT_DELETE 	= 3;	// delete statement
  OCI_STMT_INSERT 	= 4;	// Insert Statement
  OCI_STMT_CREATE 	= 5;	// create statement
  OCI_STMT_DROP   	= 6;  	// drop statement
  OCI_STMT_ALTER  	= 7; 	// alter statement
  OCI_STMT_BEGIN  	= 8;   	// begin ... (pl/sql statement)
  OCI_STMT_DECLARE	= 9;	// declare .. (pl/sql statement )

//	OCI Parameter Types
  OCI_PTYPE_UNK        	= 0;	// unknown
  OCI_PTYPE_TABLE      	= 1;	// table
  OCI_PTYPE_VIEW       	= 2;	// view
  OCI_PTYPE_PROC       	= 3;	// procedure
  OCI_PTYPE_FUNC       	= 4;	// function
  OCI_PTYPE_PKG	       	= 5;	// package
  OCI_PTYPE_TYPE       	= 6; 	// user-defined type
  OCI_PTYPE_SYN	       	= 7; 	// synonym
  OCI_PTYPE_SEQ	       	= 8; 	// sequence
  OCI_PTYPE_COL	       	= 9; 	// column
  OCI_PTYPE_ARG	       	= 10;	// argument
  OCI_PTYPE_LIST       	= 11;	// list
  OCI_PTYPE_TYPE_ATTR  	= 12; 	// user-defined type's attribute
  OCI_PTYPE_TYPE_COLL  	= 13; 	// collection type's element
  OCI_PTYPE_TYPE_METHOD	= 14;  	// user-defined type's method
  OCI_PTYPE_TYPE_ARG   	= 15;  	// user-defined type method's argument
  OCI_PTYPE_TYPE_RESULT	= 16;   // user-defined type method's result

//	OCI List Types
  OCI_LTYPE_UNK        	= 0;	// unknown   
  OCI_LTYPE_COLUMN     	= 1;	// column list
  OCI_LTYPE_ARG_PROC   	= 2;	// procedure argument list
  OCI_LTYPE_ARG_FUNC   	= 3;	// function argument list
  OCI_LTYPE_SUBPRG     	= 4;	// subprogram list
  OCI_LTYPE_TYPE_ATTR  	= 5;	// type attribute
  OCI_LTYPE_TYPE_METHOD	= 6;	// type method
  OCI_LTYPE_TYPE_ARG_PROC=7;	// type method w/o result argument list
  OCI_LTYPE_TYPE_ARG_FUNC=8;	// type method w/result argument list

{*******************************************************************************
*	ORO.H - ORacle Object Interface for External/Internal/Kernel Clients
*Purpose:
*    This header file contains Oracle object interface definitions which
*    can be included by external user applications, tools, as well as
*    the kernel.  It defines types and constants that are common to all
*    object interface which is being defined in several other header files
*    (e.g., ori.h, ort.h, and orl.h).
*******************************************************************************}
type
// OCIRef - OCI object REFerence
  OCIRef 	= Pointer;
  POCIRef	= ^OCIRef;

// OCIInd -- a variable of this type contains (null) indicator information
  OCIInd	= sb2;
  POCIInd	= ^OCIInd;

const
  OCI_IND_NOTNULL	= OCIInd( 0);	// not NULL
  OCI_IND_NULL		= OCIInd(-1);	// NULL
  OCI_IND_BADNULL	= OCIInd(-2);	// BAD NULL
  OCI_IND_NOTNULLABLE	= OCIInd(-3);	// not NULLable

//	OBJECT CACHE

type

// OCIPinOpt - OCI object Pin Option: enum OCIPinOpt{ /* 0 = uninitialized */ OCI_PIN_DEFAULT = 1, OCI_PIN_ANY = 3, OCI_PIN_RECENT = 4, OCI_PIN_LATEST = 5 };
  OCIPinOpt 	= Integer;
  POCIPinOpt	= ^OCIPinOpt;

const
  OCI_PIN_DEFAULT	= 1;		// default pin option
  OCI_PIN_ANY		= 3;		// pin any copy of the object
  OCI_PIN_RECENT	= 4;		// pin recent copy of the object
  OCI_PIN_LATEST	= 5;		// pin latest copy of the object

type
// OCILockOpt - OCI object LOCK Option: enum OCILockOpt{  /* 0 = uninitialized */ OCI_LOCK_NONE = 1, OCI_LOCK_X = 2 };
  OCILockOpt 	= Integer;
  POCILockOpt	= ^OCILockOpt;

const
  OCI_LOCK_NONE	= 1;			// null (same as no lock)
  OCI_LOCK_X	= 2;			// exclusive lock

type

// OCIMarkOpt - OCI object Mark option: enum OCIMarkOpt{ /* 0 = uninitialized */ OCI_MARK_DEFAULT = 1, OCI_MARK_NONE = OCI_MARK_DEFAULT, OCI_MARK_UPDATE };
  OCIMarkOpt	= Integer;
  POCIMarkOpt	= ^OCIMarkOpt;

const
  OCI_MARK_DEFAULT	= 1;        		// default (the same as OCI_MARK_NONE)
  OCI_MARK_NONE		= OCI_MARK_DEFAULT;	// object has not been modified
  OCI_MARK_UPDATE	= 2;			// object is to be updated

type
// OCIDuration - OCI object duration
  OCIDuration	= ub2;
  POCIDuration	= ^OCIDuration;

const
  OCI_DURATION_BEGIN	= 10;           	// beginning sequence of duration 
  OCI_DURATION_NULL	= OCI_DURATION_BEGIN-1;	// null duration
  OCI_DURATION_DEFAULT	= OCI_DURATION_BEGIN-2;	// default
  OCI_DURATION_NEXT	= OCI_DURATION_BEGIN-3;	// next special duration
  OCI_DURATION_SESSION	= OCI_DURATION_BEGIN;	// the end of user session
  OCI_DURATION_TRANS	= OCI_DURATION_BEGIN+1;	// the end of user transaction

type
// OCIRefreshOpt - OCI cache Refresh Option: enum OCIRefreshOpt{ /* 0 = uninitialized */ OCI_REFRESH_LOADED = 1 };
  OCIRefreshOpt		= Integer;
  POCIRefreshOpt	= ^OCIRefreshOpt;

const
  OCI_REFRESH_LOADED	= 1;		// refresh objects loaded in the transaction

// OCIObjectCopyFlag - Object copy flag
  OCI_OBJECTCOPY_NOREF	= ub1( $01 );

// OCIObjectFreeFlag - Object free flag
  OCI_OBJECTFREE_FORCE	= ub2( $0001 );
  OCI_OBJECTFREE_NONULL	= ub2( $0002 );

// Type manager typecodes
  OCI_TYPECODE_REF     	= SQLT_REF;     // SQL/OTS OBJECT REFERENCE
  OCI_TYPECODE_DATE    	= SQLT_DAT;     // SQL DATE  OTS DATE
  OCI_TYPECODE_SIGNED8 	= 27;     	// SQL SIGNED INTEGER(8)  OTS SINT8
  OCI_TYPECODE_SIGNED16	= 28;    	// SQL SIGNED INTEGER(16)  OTS SINT16
  OCI_TYPECODE_SIGNED32	= 29;    	// SQL SIGNED INTEGER(32)  OTS SINT32
  OCI_TYPECODE_REAL    	= 21;           // SQL REAL  OTS SQL_REAL
  OCI_TYPECODE_DOUBLE  	= 22;  		// SQL DOUBLE PRECISION  OTS SQL_DOUBLE
  OCI_TYPECODE_FLOAT   	= SQLT_FLT;     // SQL FLOAT(P)  OTS FLOAT(P)
  OCI_TYPECODE_NUMBER  	= SQLT_NUM;	// SQL NUMBER(P S)  OTS NUMBER(P S)
  OCI_TYPECODE_DECIMAL 	= SQLT_PDN;	// SQL DECIMAL(P S)  OTS DECIMAL(P S)
  OCI_TYPECODE_UNSIGNED8= SQLT_BIN;	// SQL UNSIGNED INTEGER(8)  OTS UINT8
  OCI_TYPECODE_UNSIGNED16= 25;  	// SQL UNSIGNED INTEGER(16)  OTS UINT16
  OCI_TYPECODE_UNSIGNED32= 26;  	// SQL UNSIGNED INTEGER(32)  OTS UINT32
  OCI_TYPECODE_OCTET   	= 245;          // SQL ???  OTS OCTET
  OCI_TYPECODE_SMALLINT	= 246;          // SQL SMALLINT  OTS SMALLINT
  OCI_TYPECODE_INTEGER 	= SQLT_INT;     // SQL INTEGER  OTS INTEGER
  OCI_TYPECODE_RAW     	= SQLT_LVB;     // SQL RAW(N)  OTS RAW(N)
  OCI_TYPECODE_PTR     	= 32;           // SQL POINTER  OTS POINTER
  OCI_TYPECODE_VARCHAR2	= SQLT_VCS; 	// SQL VARCHAR2(N)  OTS SQL_VARCHAR2(N)
  OCI_TYPECODE_CHAR    	= SQLT_AFC;    	// SQL CHAR(N)  OTS SQL_CHAR(N)
  OCI_TYPECODE_VARCHAR 	= SQLT_CHR; 	// SQL VARCHAR(N)  OTS SQL_VARCHAR(N)
  OCI_TYPECODE_MLSLABEL	= SQLT_LAB;     // OTS MLSLABEL
  OCI_TYPECODE_VARRAY  	= 247;         	// SQL VARRAY  OTS PAGED VARRAY
  OCI_TYPECODE_TABLE   	= 248;          // SQL TABLE  OTS MULTISET
  OCI_TYPECODE_OBJECT  	= SQLT_NTY;  	// SQL/OTS NAMED OBJECT TYPE
  OCI_TYPECODE_NAMEDCOLLECTION= SQLT_NCO;// SQL/OTS NAMED COLLECTION TYPE
  OCI_TYPECODE_BLOB