devart.ibdac.ibccallclr.pas

devent UniDAC 2.003 include sources

{$IFNDEF UNIDACPRO}
{$I ..\IbDac.inc}
unit Devart.IbDac.IBCCallCLR;
{$ENDIF}

interface

uses
  System.Runtime.InteropServices, System.Text,
  {$IFNDEF UNIDACPRO}IBCCall{$ELSE}IBCCallUni{$ENDIF};

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_attach_database(status_vector: PISC_STATUS; db_name_length: Short;
  db_name: IntPtr; db_handle: PISC_DB_HANDLE; parm_buffer_length: Short;
  parm_buffer: TBytes): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_gen_sdl(status_vector: PISC_STATUS;
  isc_array_desc: PISC_ARRAY_DESC; isc_arg3: PShort; isc_arg4: IntPtr;
  isc_arg5: PShort): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_gen_sdl2(status_vector: PISC_STATUS; isc_array_desc: PISC_ARRAY_DESC_V2;
  isc_arg3: PShort; isc_arg4: IntPtr; isc_arg5: PShort): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_get_slice(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  trans_handle: PISC_TR_HANDLE; array_id: PISC_QUAD; descriptor: PISC_ARRAY_DESC;
  dest_array: IntPtr; slice_length: PISC_LONG): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_get_slice2(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  trans_handle: PISC_TR_HANDLE; array_id: PISC_QUAD; descriptor: PISC_ARRAY_DESC_V2;
  dest_array: IntPtr; slice_length: PISC_LONG): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_lookup_bounds(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; trans_handle: PISC_TR_HANDLE;
  table_name, column_name: IntPtr; descriptor: PISC_ARRAY_DESC): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_lookup_bounds2(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; trans_handle: PISC_TR_HANDLE;
  table_name, column_name: IntPtr; descriptor: PISC_ARRAY_DESC_V2): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_lookup_desc(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; trans_handle: PISC_TR_HANDLE;
  table_name, column_name: IntPtr; descriptor: PISC_ARRAY_DESC): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_lookup_desc2(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  trans_handle: PISC_TR_HANDLE; table_name, column_name: IntPtr;
  descriptor: PISC_ARRAY_DESC_V2): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_set_desc(status_vector: PISC_STATUS; table_name: IntPtr;
  column_name: IntPtr; sql_dtype, sql_length, sql_dimensions: PShort;
  descriptor: PISC_ARRAY_DESC): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_set_desc2(status_vector: PISC_STATUS; table_name: IntPtr;
  column_name: IntPtr; sql_dtype, sql_length, sql_dimensions: PShort;
  descriptor: PISC_ARRAY_DESC_V2): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_put_slice(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  trans_handle: PISC_TR_HANDLE; array_id: PISC_QUAD; descriptor: PISC_ARRAY_DESC;
  source_array: IntPtr; slice_length: PISC_LONG): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_array_put_slice2(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  trans_handle: PISC_TR_HANDLE; array_id: PISC_QUAD; descriptor: PISC_ARRAY_DESC_V2;
  source_array: IntPtr; slice_length: PISC_LONG): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
procedure isc_blob_default_desc(descriptor: PISC_BLOB_DESC;
  table_name: PUChar;  column_name: PUChar); external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
procedure isc_blob_default_desc2(descriptor: PISC_BLOB_DESC_V2;
  table_name: PUChar; column_name: PUChar); external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_blob_gen_bpb(status_vector: PISC_STATUS; to_descriptor, from_descriptor: PISC_BLOB_DESC;
  bpb_buffer_length: UShort; bpb_buffer: PUChar; bpb_length: PUShort): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_blob_gen_bpb2(status_vector: PISC_STATUS; to_descriptor, from_descriptor: PISC_BLOB_DESC_V2;
  bpb_buffer_length: UShort; bpb_buffer: PUChar; bpb_length: PUShort): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_blob_info(status_vector: PISC_STATUS; blob_handle: PISC_BLOB_HANDLE;
  item_list_buffer_length: Short; item_list_buffer: IntPtr;
  result_buffer_length: Short; result_buffer: IntPtr): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_blob_lookup_desc(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  trans_handle: PISC_TR_HANDLE; table_name, column_name: PStr;
  descriptor: PISC_BLOB_DESC; global: PUChar): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_blob_lookup_desc2(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  trans_handle: PISC_TR_HANDLE; table_name, column_name: IntPtr;
  descriptor: PISC_BLOB_DESC_v2; global: PUChar): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_blob_set_desc(status_vector: PISC_STATUS; table_name, column_name: IntPtr;
  subtype, charset, segment_size: Short; descriptor: PISC_BLOB_DESC): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_blob_set_desc2(status_vector: PISC_STATUS; table_name, column_name: IntPtr;
  subtype, charset, segment_size: Short; descriptor: PISC_BLOB_DESC_V2): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_cancel_blob(status_vector: PISC_STATUS; blob_handle: PISC_BLOB_HANDLE): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_cancel_events(status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  event_id: PISC_LONG): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_close_blob(status_vector: PISC_STATUS;
  blob_handle: PISC_BLOB_HANDLE): ISC_STATUS;  external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_commit_retaining(status_vector: PISC_STATUS;
  tran_handle: PISC_TR_HANDLE): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_commit_transaction(status_vector: PISC_STATUS;
  tran_handle: PISC_TR_HANDLE): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_create_blob2(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; tran_handle: PISC_TR_HANDLE;
  blob_handle: PISC_BLOB_HANDLE; blob_id: PISC_QUAD;
  bpb_length: Short; bpb_address: TBytes): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_database_info(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; item_list_buffer_length: Short;
  item_list_buffer: IntPtr; result_buffer_length: Short;
  result_buffer: IntPtr): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
procedure isc_decode_date(ib_date: PISC_QUAD;
  var tm_date: TCTimeStructure); external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
procedure isc_decode_sql_date(ib_date: PISC_DATE;
  var tm_date: TCTimeStructure); external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
procedure isc_decode_sql_time(ib_time: PISC_TIME;
  var tm_date: TCTimeStructure); external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_detach_database(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_drop_database(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_alloc_statement2(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; stmt_handle: PISC_STMT_HANDLE): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_describe(status_vector: PISC_STATUS; stmt_handle: PISC_STMT_HANDLE;
  dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_describe_bind(status_vector: PISC_STATUS; stmt_handle: PISC_STMT_HANDLE;
  dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_execute(status_vector: PISC_STATUS; tran_handle: PISC_TR_HANDLE;
  stmt_handle: PISC_STMT_HANDLE; dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_execute2(status_vector: PISC_STATUS;
  tran_handle: PISC_TR_HANDLE; stmt_handle: PISC_STMT_HANDLE;
  dialect: UShort; in_xsqlda, out_xsqlda: PXSQLDA): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_execute_immediate(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; tran_handle: PISC_TR_HANDLE; length: UShort;
  statement: IntPtr; dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_fetch(status_vector: PISC_STATUS; stmt_handle: PISC_STMT_HANDLE;
  dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]
function isc_dsql_free_statement(status_vector: PISC_STATUS; stmt_handle: PISC_STMT_HANDLE;
  options: UShort): ISC_STATUS; external;

[DllImport(GDSDLL, CharSet = CharSet.Auto, SetLastError = True)]