oradefines.pas

delphi通过OCI访问ORACLE

                       mode:ub4;
                       ctxp:pointer;
                       malocfp:pointer;
                       ralocfp:pointer;
                       mfreefp:pointer;
                       xtramemsz:size_t;
                       usrmempp:pointer):sword; cdecl;
TOCIHandleAlloc=function(parenth:pOCIEnv;
                        var hndlpp:pOCIEnv;
                        atype:ub4;
                        xtramem_sz:size_t;
                        usrmempp:pointer ):sword; cdecl;
TOCIServerAttach=function(srvhp:pOCIServer;
                         errhp:pOCIError;
                         dblink:pchar;
                         dblink_len:sb4;
                         mode:ub4):sword; cdecl;
TOCIAttrSet=function(trgthndlp:pointer;
                     trghndltyp:ub4;
                     attributep:pointer;
                     size:ub4;
                     attrtype:ub4;
                     errhp:pOCIError):sword; cdecl;
TOCISessionBegin=function(svchp:pOCISvcCtx;
                         errhp:pOCIError;
                         usrhp:pOCISession;
                         credt:ub4;
                         mode:ub4):sword; cdecl;
TOCISessionEnd=function(svchp:pOCISvcCtx;
                        errhp:pOCIError;
                        usrhp:pOCISession;
                        mode:ub4):sword; cdecl;
TOCIServerDetach=function(srvhp:pOCIServer;
                          errhp:pOCIError;
                          mode:ub4):sword; cdecl;
TOCIHandleFree=function(hndlp:pointer;
                       atype:ub4):sword; cdecl;

TOCIErrorGet=function(hndlp:pointer;
                      recordno:ub4;
                      sqlstate:pchar;
                      var errcodep:sb4;
                      bufp:pchar;
                      bufsiz:ub4;
                      atype:ub4):sword; cdecl;
TOCIStmtPrepare=function(stmtp:pOCIStmt;
                         errhp:pOCIError;
                         stmt:pchar;
                         stmt_len:ub4;
                         language:ub4;
                         mode:ub4):sword; cdecl;
TOCIStmtExecute=function(svchp:pOCISvcCtx;
                         stmtp:pOCIStmt;
                         errhp:pOCIError;
                         iters:ub4;
                         rowoff:ub4;
                         snap_in:pOCISnapshot;
                         snap_out:pOCISnapshot;
                         mode:ub4):sword; cdecl;
TOCIParamGet=function(hndlp:pointer;
                      htype:ub4;
                      errhp:pOCIError;
                      var parmdpp:pointer;
                      pos:ub4):sword; cdecl;
TOCIAttrGet=function(trgthndlp:pointer;
                     trghndltyp:ub4;
                     attributep:pointer;
                     sizep:pointer;
                     attrtype:ub4;
                     errhp:pOCIError):sword; cdecl;
TOCIStmtFetch=function(stmtp:pOCIStmt;
                       errhp:pOCIError;
                       nrows:ub4;
                       orientation:ub2;
                       mode:ub4):sword; cdecl;
TOCIDefineByPos=function(stmtp:pOCIStmt;
                         var defnpp:pOCIDefine;
                         errhp:pOCIError;
                         position:ub4;
                         valuep:pointer;
                         value_sz:sb4;
                         dty:ub2;
                         indp:pointer;
                         rlenp:pointer;
                         rcodep:pointer;
                         mode:ub4):sword; cdecl;
TOCIDefineArrayOfStruct=function(
                         defnpp:pOCIDefine;
                         errhp:pOCIError;
                         pvskip:ub4;
                         indskip:ub4;
                         rlskip:ub4;
                         rcskip:ub4
                         ):sword; cdecl;
TOCIBindByPos=function(  stmtp:pOCIStmt;
                         var bindpp:pOCIBind;
                         errhp:pOCIError;
                         position:ub4;
                         valuep:pointer;
                         value_sz:sb4;
                         dty:ub2;
                         indp:pointer;
                         var alenp:ub2;
                         var rcodep:ub2;
                         maxarr_len:ub4;
                         var curelep:ub4;
                         mode:ub4):sword;cdecl;
TOCIBindByName=function( stmtp:pOCIStmt;
                         var bindpp:pOCIBind;
                         errhp:pOCIError;
                         placeholder:PChar;
                         placeh_len:sb4;
                         valuep:pointer;
                         value_sz:sb4;
                         dty:ub2;
                         indp:pointer;
                         alenp:pointer;
                         rcodep:pointer;
                         maxarr_len:ub4;
                         curelep:pointer;
                         mode:ub4):sword;cdecl;
TOCITransStart=function( svchp:pOCISvcCtx;
                         errhp:pOCIError;
                         timeout:word;
                         flags:ub4):sword;cdecl;
TOCITransRollback=function(svchp:pOCISvcCtx;
                           errhp:pOCIError;
                           flags:ub4):sword;cdecl;
TOCITransCommit=function(svchp:pOCISvcCtx;
                         errhp:pOCIError;
                         flags:ub4):sword;cdecl;
TOCIDescribeAny=function(svchp:pOCISvcCtx;
                         errhp:pOCIError;
                         objptr:pointer;
                         objnm_len:ub4;
                         objptr_typ:ub1;
                         info_level:ub1;
                         objtyp:ub1;
                         dschp:pOCIDescribe):sword;cdecl;
TOCIBreak =     function(svchp:pOCISvcCtx;
                         errhp:pOCIError):sword;cdecl;

TOCIDescriptorAlloc = function(parenth:pOCIEnv;
                               descpp:pointer;
                               htype:ub4;
                               xtramem_sz:integer;
                               usrmempp:pointer):sword;cdecl;

TOCIDescriptorFree = function(descp:pointer;
                              htype:ub4):sword;cdecl;
TOCILobGetLength = function(svchp:pOCISvcCtx;
                            errhp:pOCIError;
                            locp:pOCILobLocator;
                            var amtp:ub4):sword; cdecl;

TOCILobRead = function(svchp:pOCISvcCtx;
                       errhp:pOCIError;
                       locp:pOCILobLocator;
                       var amtp:ub4;
                       offset:ub4;
                       bufp:pointer;
                       bufl:ub4;
                       ctxp:pointer;
                       OCICallbackLobRead:pointer;
                       csid:ub2;
                       csfrm:ub1):sword;cdecl;

TOCILobWrite= function(svchp:pOCISvcCtx;
                       errhp:pOCIError;
                       locp:pOCILobLocator;
                       var amtp:ub4;
                       offset:ub4;
                       bufp:pointer;
                       bufl:ub4;
                       piece:ub1;
                       ctxp:pointer;
                       OCICallbackLobWrite:pointer;
                       csid:ub2;
                       csfrm:ub1):sword;cdecl;

TOCILobErase= function(svchp:pOCISvcCtx;
                       errhp:pOCIError;
                       locp:pOCILobLocator;
                       var amount:ub4;
                       offset:ub4):sword;cdecl;

TOCILobTrim= function(svchp:pOCISvcCtx;
                       errhp:pOCIError;
                       locp:pOCILobLocator;
                       newlen:ub4):sword;cdecl;

TOCIStmtGetPieceInfo = function(stmtp:pOCIStmt;
                                errhp:pOCIError;
                                var hndlpp:pointer;
                                var typep:ub4;
                                var in_outp:ub1;
                                var iterp:ub4;
                                var idxp:ub4;
                                var piecep:ub1):sword;cdecl;

TOCIStmtSetPieceInfo = function(handle:pointer;
                                typep:ub4;
                                errhp:pOCIError;
                                buf:pointer;
                                var alenp:ub4;
                                piece:ub1;
                                indp:pointer;
                                var rcodep:ub2):sword;cdecl;

    oradate=record
     century,year,month,day,hour,minute,second:ub1;
    end;

implementation

end.