devart.odac.oracallclr.pas

devent UniDAC 2.003 include sources

  { Timestamp and interval types support }

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeConstruct(hndl: IntPtr; err: pOCIError;
                                    datetime: pOCIDateTime; year: sb2;
                                    month, day, hour, min, sec: ub1; fsec: ub4;
                                    timezone: IntPtr; timezone_length: integer): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeCheck(hndl: IntPtr; err: pOCIError; date: pOCIDateTime;
		                            var valid: ub4): sword; external;


  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeFromText(hndl: IntPtr; err: pOCIError;
                                   date_str: IntPtr; d_str_length: integer;
                                   fmt: IntPtr; fmt_length: ub1; lang_name: IntPtr;
                                   lang_length: integer; date: pOCIDateTime): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeToText(hndl: IntPtr; err: pOCIError; date: pOCIDateTime;
                                 fmt: IntPtr; fmt_length, fsprec: ub1;
                                 lang_name: IntPtr; lang_length: integer;
                                 var buf_size: ub4; buf: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeGetDate(hndl: IntPtr; err: pOCIError;
                                  date: pOCIDateTime; var year: sb2; var month: ub1; var day: ub1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeGetTime(hndl: IntPtr; err: pOCIError;
                                  datetime: pOCIDateTime; var hour: ub1; var minute: ub1; var sec: ub1;
                                  var fsec: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeGetTimeZoneOffset(hndl: IntPtr; err: pOCIError;
                                            datetime: pOCIDateTime; var hour: sb1; var minute: sb1): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeGetTimeZoneName(hndl: IntPtr; err: pOCIError;
                                          datetime: pOCIDateTime; buf: pub1;
                                          var buflen: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeAssign(hndl: IntPtr; err: pOCIError; src: pOCIDateTime;
			                           dst: pOCIDateTime): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDateTimeCompare(hndl: IntPtr; err: pOCIError; const date1: pOCIDateTime;
                                  const date2: pOCIDateTime; var result: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalFromText(hndl: IntPtr; err: pOCIError; inpstr: IntPtr;
		                               str_len: integer; result: pOCIInterval): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalToText(hndl: IntPtr; err: pOCIError; inter: pOCIInterval;
                                 lfprec, fsprec: ub1;	buffer: IntPtr; buflen: integer;
                                 var resultlen: sb4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalCheck(hndl: IntPtr; err: pOCIError; interval: pOCIInterval;
			                          var valid: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalAssign(hndl: IntPtr; err: pOCIError; ininter: pOCIInterval;
			                           outinter: pOCIInterval): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalCompare(hndl: IntPtr; err: pOCIError; inter1: pOCIInterval;
                                  inter2: pOCIInterval; var result: sword): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalSetYearMonth(hndl: IntPtr; err: pOCIError; yr, mnth: sb4;
                                       result: pOCIInterval): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalGetYearMonth(hndl: IntPtr; err: pOCIError; var yr: sb4; var mnth: sb4;
                                       result: pOCIInterval): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalSetDaySecond(hndl: IntPtr; err: pOCIError; dy, hr,
                                       mm, ss, fsec: sb4; result: pOCIInterval): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalGetDaySecond(hndl: IntPtr; err: pOCIError; var dy: sb4; var hr: sb4;
                                       var mm: sb4; var ss: sb4; var fsec: sb4; result: pOCIInterval): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIIntervalFromNumber(hndl: IntPtr; err: pOCIError; interval: pOCIInterval;
                                     number: pOCINumber): sword; external;
  { Scrollable cursors }

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIStmtFetch2(stmtp: pOCIStmt; errhp: pOCIError; nrows: ub4; orientation: ub2;
                     scrollOffset: sb4; mode: ub4): sword; external;

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

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeNew(svchp: pOCISvcCtx; errhp: pOCIError; dur: OCIDuration;
                 elname: PAnsiChar; elname_Len: ub4; schemaURL: PAnsiChar;
                 schemaURL_Len: ub4; var retInstance: pOCIXMLType): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeCreateFromSrc(svchp: pOCISvcCtx; errhp: pOCIError; dur: OCIDuration;
                 src_type: ub1; src_ptr: IntPtr; ind: sb4; var retInstance: pOCIXMLType): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeExtract(errhp: pOCIError; doc: pOCIXMLType; dur: OCIDuration;
              xpathexpr: PAnsiChar; xpathexpr_Len: ub4;
              nsmap: PAnsiChar; nsmap_Len: ub4;
              var retDoc: pOCIXMLType): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeTransform(errhp: pOCIError; dur: OCIDuration;
               doc: pOCIXMLType; xsldoc: pOCIXMLType;
               var retDoc: pOCIXMLType): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeExists(errhp: pOCIError; doc: pOCIXMLType;
                 xpathexpr: PAnsiChar; xpathexpr_Len: ub4;
                 nsmap: PAnsiChar; nsmap_Len: ub4;
                 var retval: LongWord): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeIsSchemaBased(errhp: pOCIError;
                              doc: pOCIXMLType; var retval: LongWord): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeGetSchema(errhp: pOCIError; doc: pOCIXMLType;
             var schemadoc: pOCIXMLType;
             var schemaURL: IntPtr; var schemaURL_Len: ub4;
             var rootelem: IntPtr; var rootelem_Len: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeValidate(errhp: pOCIError; doc: pOCIXMLType;
                   schemaURL: PAnsiChar; schemaURL_Len: ub4; var retval: LongWord): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeGetDOM(errhp: pOCIError; doc: pOCIXMLType; dur: OCIDuration;
                       var retDom: pOCIDOMDocument): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIXMLTypeGetFromDOM(errhp: pOCIError; domdoc: pOCIDOMDocument;
                           var retXMLType: pOCIXMLType): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIDOMFree(errhp: pOCIError; domdoc: pOCIDOMDocument): sword; external;


  [DllImport('oraclient9.dll', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIPStreamFromXMLType(errhp: pOCIError; phOCIDescriptor: IntPtr; pobject: IntPtr; res: integer): sword; external;

  [DllImport('oraclient9.dll', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIPStreamRead(errhp: pOCIError; phOCIDescriptor: IntPtr; pStr: IntPtr; var Len: int64; res: integer): sword; external;

  [DllImport('oraclient9.dll', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIPStreamClose(errhp: pOCIError; phOCIDescriptor: IntPtr): sword; external;

  {10g Oracle support}
  [DllImport(OCIDLL, EntryPoint = 'OCIPStreamFromXMLType', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIPStreamFromXMLType10(errhp: pOCIError; phOCIDescriptor: IntPtr; pobject: IntPtr; res: integer): sword; external;

  [DllImport(OCIDLL, EntryPoint = 'OCIPStreamRead', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIPStreamRead10(errhp: pOCIError; phOCIDescriptor: IntPtr; pStr: IntPtr; var Len: int64; res: integer): sword; external;

  [DllImport(OCIDLL, EntryPoint = 'OCIPStreamClose', CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIPStreamClose10(errhp: pOCIError; phOCIDescriptor: IntPtr): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]  
  procedure OCIClientVersion(var major_version, minor_version, update_num, patch_num, port_update_num: sword); external;

  { Misc }
  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCIRowidToChar(rowidDesc: IntPtr; outbfp: IntPtr;
                                 var outbflp: ub2; errhp: pOCIError): sword; external;

  { Publish - subscribe support }
  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCISubscriptionRegister(svchp: pOCISvcCtx; var subscrhpp: pOCISubscription;
    count: ub2; errhp: pOCIError; mode: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCISubscriptionUnRegister(svchp: pOCISvcCtx; subscrhp: pOCISubscription;
    errhp: pOCIError; mode: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCISubscriptionEnable(subscrhp: pOCISubscription; errhp: pOCIError; mode: ub4): sword; external;

  [DllImport(OCIDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvention.Cdecl)]
  function OCISubscriptionDisable(subscrhp: pOCISubscription; errhp: pOCIError; mode: ub4): sword; external;

{$IFNDEF LITE}
  { MTS support }
  [DllImport(MTSDLL, CharSet = CharSet.Ansi, SetLastError = True, CallingConvention=CallingConvent