oradefines.pas

delphi通过OCI访问ORACLE

 OCI_ATTR_ATTEMPTS             = 59;  // # of attempts
 OCI_ATTR_RECIPIENT_LIST       = 60;  // recipient list
 OCI_ATTR_EXCEPTION_QUEUE      = 61;  // exception queue name
 OCI_ATTR_ENQ_TIME             = 62;  // enqueue time (only OCIAttrGet)
 OCI_ATTR_MSG_STATE            = 63;  // message state (only OCIAttrGet)
                                       // NOTE: 64-66 used below
 OCI_ATTR_AGENT_NAME           = 64;  // agent name
 OCI_ATTR_AGENT_ADDRESS        = 65;  // agent address
 OCI_ATTR_AGENT_PROTOCOL       = 66;  // agent protocol

 OCI_ATTR_SENDER_ID            = 68;  // sender id
 OCI_ATTR_ORIGINAL_MSGID       = 69;  // original message id

 OCI_ATTR_QUEUE_NAME           = 70;  // queue name
 OCI_ATTR_NFY_MSGID            = 71;  // message id
 OCI_ATTR_MSG_PROP             = 72;  // message properties

 OCI_ATTR_NUM_DML_ERRORS       = 73;  // num of errs in array DML
 OCI_ATTR_DML_ROW_OFFSET       = 74;  // row offset in the array

 OCI_ATTR_DATEFORMAT           = 75;  // default date format string
 OCI_ATTR_BUF_ADDR             = 76;  // buffer address
 OCI_ATTR_BUF_SIZE             = 77;  // buffer size
 OCI_ATTR_DIRPATH_MODE         = 78;  // mode of direct path operation
 OCI_ATTR_DIRPATH_NOLOG        = 79;  // nologging option
 OCI_ATTR_DIRPATH_PARALLEL     = 80;  // parallel (temp seg) option
 OCI_ATTR_NUM_ROWS             = 81;  // number of rows in column array
                                       // NOTE that OCI_ATTR_NUM_COLS is a column
                                       // array attribute too.

 OCI_ATTR_COL_COUNT            = 82;  // columns of column array processed so far.
 OCI_ATTR_STREAM_OFFSET        = 83;  // str off of last row processed
 OCI_ATTR_SHARED_HEAPALLOC     = 84;  // Shared Heap Allocation Size

 OCI_ATTR_SERVER_GROUP         = 85;  // server group name

 OCI_ATTR_MIGSESSION           = 86;  // migratable session attribute

 OCI_ATTR_NOCACHE              = 87;  // Temporary LOBs

 OCI_ATTR_MEMPOOL_SIZE         = 88;  // Pool Size
 OCI_ATTR_MEMPOOL_INSTNAME     = 89;  // Instance name
 OCI_ATTR_MEMPOOL_APPNAME      = 90;  // Application name
 OCI_ATTR_MEMPOOL_HOMENAME     = 91;  // Home Directory name
 OCI_ATTR_MEMPOOL_MODEL        = 92;  // Pool Model (proc,thrd,both)
 OCI_ATTR_MODES                = 93;  // Modes

 OCI_ATTR_SUBSCR_NAME          = 94;  // name of subscription
 OCI_ATTR_SUBSCR_CALLBACK      = 95;  // associated callback
 OCI_ATTR_SUBSCR_CTX           = 96;  // associated callback context
 OCI_ATTR_SUBSCR_PAYLOAD       = 97;  // associated payload
 OCI_ATTR_SUBSCR_NAMESPACE     = 98;  // associated namespace

 OCI_ATTR_PROXY_CREDENTIALS    = 99;  // Proxy user credentials
 OCI_ATTR_INITIAL_CLIENT_ROLES = 100; // Initial client role list

 OCI_ATTR_UNK                  = 101; // unknown attribute
 OCI_ATTR_NUM_COLS             = 102; // number of columns
 OCI_ATTR_LIST_COLUMNS         = 103; // parameter of the column list
 OCI_ATTR_RDBA                 = 104; // DBA of the segment header
 OCI_ATTR_CLUSTERED            = 105; // whether the table is clustered
 OCI_ATTR_PARTITIONED          = 106; // whether the table is partitioned
 OCI_ATTR_INDEX_ONLY           = 107; // whether the table is index only
 OCI_ATTR_LIST_ARGUMENTS       = 108; // parameter of the argument list
 OCI_ATTR_LIST_SUBPROGRAMS     = 109; // parameter of the subprogram list
 OCI_ATTR_REF_TDO              = 110; // REF to the type descriptor
 OCI_ATTR_LINK                 = 111; // the database link name
 OCI_ATTR_MIN                  = 112; // minimum value
 OCI_ATTR_MAX                  = 113; // maximum value
 OCI_ATTR_INCR                 = 114; // increment value
 OCI_ATTR_CACHE                = 115; // number of sequence numbers cached
 OCI_ATTR_ORDER                = 116; // whether the sequence is ordered
 OCI_ATTR_HW_MARK              = 117; // high-water mark
 OCI_ATTR_TYPE_SCHEMA          = 118; // type's schema name
 OCI_ATTR_TIMESTAMP            = 119; // timestamp of the object
 OCI_ATTR_NUM_ATTRS            = 120; // number of sttributes
 OCI_ATTR_NUM_PARAMS           = 121; // number of parameters
 OCI_ATTR_OBJID                = 122; // object id for a table or view
 OCI_ATTR_PTYPE                = 123; // type of info described by
 OCI_ATTR_PARAM                = 124; // parameter descriptor
 OCI_ATTR_OVERLOAD_ID          = 125; // overload ID for funcs and procs
 OCI_ATTR_TABLESPACE           = 126; // table name space
 OCI_ATTR_TDO                  = 127; // TDO of a type
 OCI_ATTR_LTYPE                = 128; // list type
 OCI_ATTR_PARSE_ERROR_OFFSET   = 129; // Parse Error offset
 OCI_ATTR_IS_TEMPORARY         = 130; // whether table is temporary
 OCI_ATTR_IS_TYPED             = 131; // whether table is typed
 OCI_ATTR_DURATION             = 132; // duration of temporary table
 OCI_ATTR_IS_INVOKER_RIGHTS    = 133; // is invoker rights
 OCI_ATTR_OBJ_NAME             = 134; // top level schema obj name
 OCI_ATTR_OBJ_SCHEMA           = 135; // schema name
 OCI_ATTR_OBJ_ID               = 136; // top level schema object id

 { Error Return Values }
 OCI_SUCCESS              = 0;      // maps to SQL_SUCCESS of SAG CLI
 OCI_SUCCESS_WITH_INFO    = 1;      // maps to SQL_SUCCESS_WITH_INFO
 OCI_RESERVED_FOR_INT_USE = 200;   // reserved for internal use
 OCI_NO_DATA              = 100;    // maps to SQL_NO_DATA
 OCI_ERROR                = -1;     // maps to SQL_ERROR
 OCI_INVALID_HANDLE       = -2;     // maps to SQL_INVALID_HANDLE
 OCI_NEED_DATA            = 99;     // maps to SQL_NEED_DATA
 OCI_STILL_EXECUTING      = -3123;  // OCI would block error
 OCI_CONTINUE             = -24200; // Continue with the body of the OCI function

 { Credential Types }
 OCI_CRED_RDBMS   = 1;           // database username/password
 OCI_CRED_EXT     = 2;           // externally provided credentials
 OCI_CRED_PROXY   = 3;           // proxy authentication

 { OCI Data Types }
 SQLT_CHR = 1  ;            // (ORANET TYPE) character string
 SQLT_NUM = 2  ;            // (ORANET TYPE) oracle numeric
 SQLT_INT = 3  ;            // (ORANET TYPE) integer
 SQLT_FLT = 4  ;            // (ORANET TYPE) Floating point number
 SQLT_STR = 5  ;            // zero terminated string
 SQLT_VNU = 6  ;            // NUM with preceding length byte
 SQLT_PDN = 7  ;            // (ORANET TYPE) Packed Decimal Numeric
 SQLT_LNG = 8  ;            // long
 SQLT_VCS = 9  ;            // Variable character string
 SQLT_NON = 10 ;            // Null/empty PCC Descriptor entry
 SQLT_RID = 11 ;            // rowid
 SQLT_DAT = 12 ;            // date in oracle format
 SQLT_VBI = 15 ;            // binary in VCS format
 SQLT_BIN = 23 ;            // binary data(DTYBIN)
 SQLT_LBI = 24 ;            // long binary
 SQLT_UIN = 68 ;            // unsigned integer
 SQLT_SLS = 91 ;            // Display sign leading separate
 SQLT_LVC = 94 ;            // Longer longs (char)
 SQLT_LVB = 95 ;            // Longer long binary
 SQLT_AFC = 96 ;            // Ansi fixed char
 SQLT_AVC = 97 ;            // Ansi Var char
 SQLT_CUR = 102;            // cursor  type
 SQLT_RDD = 104;            // rowid descriptor
 SQLT_LAB = 105;            // label type
 SQLT_OSL = 106;            // oslabel type

 SQLT_NTY    = 108;         // named object type
 SQLT_REF    = 110;         // ref type
 SQLT_CLOB   = 112;         // character lob
 SQLT_BLOB   = 113;         // binary lob
 SQLT_BFILEE = 114;         // binary file lob
 SQLT_CFILEE = 115;         // character file lob
 SQLT_RSET   = 116;         // result set type
 SQLT_NCO    = 122;         // named collection type (varray or nested table)
 SQLT_VST    = 155;         // OCIString type
 SQLT_ODT    = 156;         // OCIDate type

{  Transaction Start Flags }
 OCI_TRANS_OLD         = $00000000;
 OCI_TRANS_NEW         = $00000001;
 OCI_TRANS_JOIN        = $00000002;
 OCI_TRANS_RESUME      = $00000004;
 OCI_TRANS_STARTMASK   = $000000ff;

 OCI_TRANS_READONLY    = $00000100;
 OCI_TRANS_READWRITE   = $00000200;
 OCI_TRANS_SERIALIZABLE= $00000400;
 OCI_TRANS_ISOLMASK    = $0000ff00;

{ Scrollable Cursor Options }
 OCI_FETCH_NEXT       = $02;    // next row
 OCI_FETCH_FIRST      = $04;    // first row of the result set
 OCI_FETCH_LAST       = $08;    // the last row of the result set
 OCI_FETCH_PRIOR      = $10;    // the previous row relative to current
 OCI_FETCH_ABSOLUTE   = $20;    // absolute offset from first
 OCI_FETCH_RELATIVE   = $40;    // offset relative to current
 OCI_FETCH_RESERVED_1 = $80;    // reserved for internal use

//------------------------Authentication Modes-------------------------------//
 OCI_MIGRATE     = $0001;                         // migratable auth context //
 OCI_SYSDBA      = $0002;                        // for SYSDBA authorization //
 OCI_SYSOPER     = $0004;                       // for SYSOPER authorization //
 OCI_PRELIM_AUTH = $0008;                   // for preliminary authorization //
 OCIP_ICACHE     = $0010;       // Private OCI cache mode to notify cache db //
//---------------------------------------------------------------------------//


type
     sword=integer;
     eword=integer;
     sb4=integer;
     ub4=cardinal;
     sb2=smallint;
     ub2=word;
     sb1=shortint;
     ub1=byte;
     dvoid=pointer;
     size_t=integer;

     pOCIEnv = pointer;
     pOCIServer = pointer;
     pOCIError = pointer;
     pOCISvcCtx = pointer;
     pOCIStmt = pointer;
     pOCILobLocator = pointer;
     pOCIDefine = pointer;
     pOCISession = pointer;
     pOCISnapshot = pointer;
     pOCIParam = pointer;
     pOCIBind = pointer;
     pOCIDescribe = pointer;

     dword = longword;
     pDouble = ^Double;
     pByte   = ^Byte;
     pInteger = ^Integer;
     pInt64 = ^Int64;

TOCIInitialize=function(mode:ub4;
                        ctxp:pointer;
                        malocfp:pointer;
                        ralocfp:pointer;
                        mfreefp:pointer):sword; cdecl;
TOCIEnvInit = function(var envhpp:pOCIEnv;
                       mode:ub4;
                       xtramemsz:size_t;
                       usrmempp:pointer):sword; cdecl;
TOCIEnvCreate = function(var envhpp:pOCIEnv;