corelab.odac.oracallclr.pas

来自「CrLab UniDAC 1.0 include sources」· PAS 代码 · 共 994 行 · 第 1/5 页

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCICollAppend(env: pOCIEnv; err: pOCIError; const elem: IntPtr;
                     const elemind: IntPtr; coll: pOCIColl): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCICollAssign(env: pOCIEnv; err: pOCIError; const rhs: pOCIColl;
                     lhs: pOCIColl): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCICollAssignElem(env: pOCIEnv; err: pOCIError; index: sb4;
                         const elem: IntPtr; const elemind: IntPtr; coll: pOCIColl): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCICollGetElem(env: pOCIEnv; err: pOCIError; const coll: pOCIColl;
                      index: sb4; var exists: tbool; var elem: IntPtr; var elemind: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCICollMax(env: pOCIEnv; const coll: pOCIColl): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCICollSize(env: pOCIEnv; err: pOCIError; const coll: pOCIColl; var size: sb4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCICollTrim(env: pOCIEnv; err: pOCIError; trim_num: sb4; coll: pOCIColl): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateAssign(err: pOCIError; const from: pOCIDate; todate: pOCIDate): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateFromText(err: pOCIError; date_str: PChar; d_str_length: ub4;
                       const fmt: PChar; fmt_length: ub1; const lang_name: PChar;
                       lang_length: ub4; date: pOCIDate): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateGetDate(const date: pOCIDate; year: psb2; month: pub1; day: pub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateGetTime(const date: pOCIDate; hour: pub1; min: pub1; sec: pub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateSetDate(date: pOCIDate; year: sb2; month: ub1; day: ub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateSetTime(date: pOCIDate; hour: ub1; min: ub1; sec: ub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateToText(err: pOCIError; const date: pOCIDate; const fmt: PChar;
                     fmt_length: ub1; const lang_name: PChar; lang_length: ub4;
                     buf_size: pub4; buf: PChar): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberAssign(err: pOCIError; const from: pOCINumber; tonum: pOCINumber): sword; external;


  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberCmp( err: pOCIError; const number1: pOCINumber;
                    const number2: pOCINumber; var result: sword): sword; external;


  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberFromInt(err: pOCIError; var inum: int64;
                        inum_length: uword; inum_s_flag: uword; number: pOCINumber): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberFromReal(err: pOCIError; var rnum: double; rnum_length: uword;
                         number: pOCINumber): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberFromText(err: pOCIError; const str: PChar; str_length: ub4;
                         const fmt: PChar; fmt_length: ub4; const nls_params: PChar;
                         nls_p_length: ub4; number: pOCINumber): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberToInt(err: pOCIError; number: pOCINumber; rsl_length: uword;
                      rsl_flag: uword; var rsl: int64): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberToReal(err: pOCIError; const number: pOCINumber; rsl_length: uword;
                       var rsl: double): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCINumberToText(err: pOCIError; number: pOCINumber;
                       const fmt: PChar; fmt_length: ub4; const nls_params: PChar;
                       nls_p_length: ub4; var buf_size: ub4; buf: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIRefAssign(env: pOCIEnv; err: pOCIError; const source: pOCIRef;
                    var target: pOCIRef): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIRefClear(env: pOCIEnv; ref: pOCIRef): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIRefIsEqual(env: pOCIEnv; const x: pOCIRef; const y: pOCIRef): tbool; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIRefIsNull(env: pOCIEnv; const ref: pOCIRef): tbool; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIRefToHex(env: pOCIEnv; err: pOCIError; const ref: pOCIRef;
                    hex: IntPtr; var hex_length: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIStringAllocSize(env: pOCIEnv; err: pOCIError; const vs: pOCIString; allocsize: pub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIStringAssign(env: pOCIEnv; err: pOCIError; const rhs: pOCIString;
                       var lhs: pOCIString): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIStringAssignText(env: pOCIEnv; err: pOCIError; const rhs: PChar;
                           rhs_len: ub4; lhs: ppOCIString): sword; external;  // Oracle documentation bag rhs_len: ub2;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIStringPtr(env: pOCIEnv; const vs: pOCIString): IntPtr; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIStringResize(env: pOCIEnv; err: pOCIError; new_size: ub4; str: ppOCIString): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIStringSize(env: pOCIEnv; const vs: pOCIString): ub4; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCITableDelete(env: pOCIEnv; err: pOCIError; index: sb4; tbl: pOCITable): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCITableExists(env: pOCIEnv; err: pOCIError; const tbl: pOCITable;
                      index: sb4; exists: pbool): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCITableFirst(env: pOCIEnv; err: pOCIError; const tbl: pOCITable;
                     index: psb4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCITableLast(env: pOCIEnv; err: pOCIError; const tbl: pOCITable;
                    index: psb4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCITableNext(env: pOCIEnv; err: pOCIError; index: sb4; const tbl: pOCITable;
                    var next_index: sb4; var exists: tbool): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCITablePrev(env: pOCIEnv; err: pOCIError; index: sb4; const tbl: pOCITable;
                    prev_index: psb4; exists: pbool): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCITableSize(env: pOCIEnv; err: pOCIError; const tbl: pOCITable; var size: sb4): sword; external;

{ OCI81 }

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIEnvCreate(var envhpp: pOCIEnv; mode: ub4; const ctxp: IntPtr;
                    const malocfp: IntPtr; const ralocfp: IntPtr;
                    const mfreefp: IntPtr; xtramemsz: tsize; usrmempp: IntPtr): sword; external;

{ Direct path load interface support }

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathAbort(dpctx: pOCIDirPathCtx; errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathColArrayEntryGet(dpca: pOCIDirPathColArray; errhp: pOCIError;
                                  rownum: ub4; colIdx: ub2; var cvalpp: pub1; clenp: ub4;
                                  cflgp: pub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathColArrayEntrySet(dpca: pOCIDirPathColArray; errhp: pOCIError;
                                  rownum: ub4; colIdx: ub2; cvalp: pub1; clen: ub4;
                                  cflg: ub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathColArrayRowGet(dpca: pOCIDirPathColArray; errhp: pOCIError;
                                rownum: ub4; var cvalppp: pub1; var clenpp: pub4; {TODO cvalppp: pppub1; }
                                cflgpp: ppub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathColArrayReset(dpca: pOCIDirPathColArray; errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathColArrayToStream(dpca: pOCIDirPathColArray; const dpctx: pOCIDirPathCtx;
                                  dpstr: pOCIDirPathStream; errhp: pOCIError; rowcnt: ub4;
                                  rowoff: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathFinish(dpctx: pOCIDirPathCtx; errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathLoadStream(dpctx: pOCIDirPathCtx; dpstr: pOCIDirPathStream;
                            errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathPrepare(dpctx: pOCIDirPathCtx; svchp: pOCISvcCtx;
                         errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDirPathStreamReset(dpstr: pOCIDirPathStream; errhp: pOCIError): sword; external;

{ OCI9 }