devart.odac.oracallclr.pas

devent UniDAC 2.003 include sources

{$IFNDEF UNIDACPRO}
{$I ..\Odac.inc}
unit Devart.Odac.OraCallCLR;
{$ENDIF}

interface

uses
  System.Runtime.InteropServices, System.Text,
  {$IFNDEF LITE}MTSCall, {$ENDIF}
  {$IFNDEF UNIDACPRO}OraCall{$ELSE}OraCallUni{$ENDIF};


  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function obindps(cursor: IntPtr; opcode: ub1; sqlvar: PAnsiChar; sqlvl: sb4;
               pvctx: pub1; progvl: sb4; ftype: sword; scale: sword; indp: psb2;
               alen: pub2; arcode: pub2; pv_skip: sb4; ind_skip: sb4; alen_skip: sb4;
               rc_skip: sb4; maxsiz: ub4; cursiz: pub4; fmt: IntPtr; fmtl: sb4;
               fmtt: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function obreak(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ocan(cursor: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oclose(cursor: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ocof(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ocom(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ocon(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function odefinps(cursor: IntPtr; opcode: ub1; pos: sword; bufctx: IntPtr;
                bufl: sb4; ftype: sword; scale: sword; indp: psb2; fmt: IntPtr;
                fmtl: sb4; fmtt: sword; rlen: pub2; rcode: pub2; pv_skip: sb4;
                ind_skip: sb4; alen_skip: sb4; rc_skip: sb4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function odessp(lda: IntPtr; objnam: PAnsiChar; onlen: tsize; rsv1: pub1;
              rsv1ln: tsize; rsv2: pub1; rsv2ln: tsize; ovrld: pub2; pos: pub2;
              level: pub2; argnam: IntPtr; arnlen: pub2; dtype: pub2; defsup: pub1;
              mode: pub1; dtsiz: pub4; prec: psb2; scale: psb2; radix: pub1;
              spare: pub4; var arrsiz: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function odescr(cursor: IntPtr; pos: sword; var dbsize: sb4; var dbtype: sb2;
              cbuf: IntPtr; var cbufl: sb4; var dsize: sb4; var prec: sb2; var scale: sb2;
              var nullok: sb2): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oerhms(lda: IntPtr; rcode: sb2; buf: IntPtr; bufsiz: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oermsg(rcode: sb2; buf: PAnsiChar): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oexec(cursor: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oexfet(cursor: IntPtr; nrows: ub4; cancel: sword; exact: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oexn(cursor: IntPtr; iters: sword; rowoff: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ofen(cursor: IntPtr; nrows: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ofetch(cursor: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oflng(cursor: IntPtr; pos: sword; buf: pub1; bufl: sb4; dtype: sword;
             retl: pub4; offset: sb4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ogetpi(cursor: IntPtr; var piecep: ub1; var ctxpp: IntPtr; var iterp: ub4;
              var indexp: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oopt(cursor: IntPtr; rbopt: sword; waitopt: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function opinit(mode: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function olog(lda: IntPtr; hda: PHDA; uid: PAnsiChar; uidl: sword; pswd: PAnsiChar;
            pswdl: sword; conn: PAnsiChar; connl: sword; mode: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ologof(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oopen(cursor: IntPtr; lda: IntPtr; dbn: IntPtr; dbnl: sword; arsize: sword;
             uid: IntPtr; uidl: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function oparse(cursor: IntPtr; sqlstm: PAnsiChar; sqllen: sb4; defflg: sword;
              lngflg: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function orol(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function osetpi(cursor: IntPtr; piece: ub1; bufp: IntPtr; var lenp: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  procedure sqlld2(lda: IntPtr; cname: PAnsiChar; cnlen: psb4); external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  procedure sqllda(lda: IntPtr); external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function onbset(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function onbtst(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function onbclr(lda: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function ognfd(lda: IntPtr; fdp: IntPtr): sword; external;

  { OBSOLETE DEFINE CALLS }

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function obndra(cursor: IntPtr; sqlvar: PAnsiChar; sqlvl: sword;
                 progv: pub1; progvl: sword; ftype: sword; scale: sword;
                 indp: psb2; alen: pub2; arcode: pub2; maxsiz: ub4;
                 cursiz: pub4; fmt: IntPtr; fmtl: sword; fmtt: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function obndrn(cursor: IntPtr; sqlvn: sword; progv: pub1; progvl: sword;
              ftype: sword; scale: sword; indp: psb2; fmt: PAnsiChar; fmtl: sword;
              fmtt: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function obndrv(cursor: IntPtr; sqlvar: PAnsiChar; sqlvl: sword; progv: IntPtr;
              progvl: sword; ftype: sword; scale: sword; indp: psb2; fmt: IntPtr;
              fmtl: sword; fmtt: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function odefin(cursor: IntPtr; pos: sword; buf: IntPtr; bufl: sword; ftype: sword;
              scale: sword; indp: psb2; fmt: IntPtr; fmtl: sword; fmtt: sword;
              rlen: pub2; rcode: pub2): sword; external;





  [DllImport(OCIDLL, EntryPoint='OCIAttrGet', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIAttrGet1(trgthndlp: IntPtr; trghndltyp: ub4; attributep: IntPtr;
                  sizep: pub4; attrtype: ub4; errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, EntryPoint='OCIAttrGet', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIAttrGet2(trgthndlp: IntPtr; trghndltyp: ub4; var attributep: Integer;
                  sizep: pub4; attrtype: ub4; errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, EntryPoint='OCIAttrSet', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIAttrSet1(trgthndlp: IntPtr; trghndltyp: ub4; attributep: IntPtr;
                  size: ub4; attrtype: ub4; errhp: pOCIError): sword; external;

  [DllImport(OCIDLL, EntryPoint='OCIAttrSet', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIAttrSet2(trgthndlp: IntPtr; trghndltyp: ub4; var attributep: Integer;
                  size: ub4; attrtype: ub4; errhp: pOCIError): sword; external;

  {[DllImport(OCIDLL, EntryPoint='OCIAttrSet', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIAttrSet3(trgthndlp: IntPtr; trghndltyp: ub4; attributep: PChar;
                  size: ub4; attrtype: ub4; errhp: pOCIError): sword; external;}

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIBindArrayOfStruct(bindp: pOCIBind; errhp: pOCIError; pvskip: ub4;
                            indskip: ub4; alskip: ub4; rcskip: ub4): sword; external;

   [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIBindByName(stmtp: pOCIStmt; var bindpp: pOCIBind; errhp: pOCIError;
                     placeholder: IntPtr; placeh_len: sb4; valuep: IntPtr; value_sz: sb4;
                     dty: ub2; indp: IntPtr; alenp: pub2; rcodep: pub2; maxarr_len: ub4;
                     curelep: pub4; mode: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIBindByPos(stmtp: pOCIStmt; var bindpp: pOCIBind; errhp: pOCIError;
                    position: ub4; valuep: IntPtr; value_sz: sb4; dty: ub2;
                    indp: IntPtr; alenp: pub2; rcodep: pub2; maxarr_len: ub4;
                    curelep: pub4; mode: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIBindDynamic(bindp: pOCIBind; errhp: pOCIError; ictxp: IntPtr;
                      icbfp: IntPtr; octxp: IntPtr; ocbfp: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIBindObject(bindp: pOCIBind; errhp: pOCIError; const otype: pOCIType;