ib_intf.pas

FIBPlus is a component suite intended for work with InterBase. It is direct, fast and flexible Inter

  tran_handle: PISC_TR_HANDLE; stmt_handle: PISC_STMT_HANDLE; Dialect: UShort;
  insqlda: PXSQLDA; no_of_rows: UShort; batch_vars: PPXSQLVAR;
  rows_affected: PULong): ISC_STATUS;
begin
   if Assigned(Fisc_dsql_batch_execute) then
   try
    FBusy:=True;
    Result := Fisc_dsql_batch_execute(status_vector, tran_handle, stmt_handle, Dialect,
      insqlda, no_of_rows, batch_vars, rows_affected)
   finally
    FBusy:=False;
   end
   else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_dsql_batch_execute',FLibraryName]));
end;

function TIBClientLibrary.isc_dsql_batch_execute_immed(
  status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  tran_handle: PISC_TR_HANDLE; Dialect: UShort; no_of_sql: ulong;
  statement: PPChar; rows_affected: PULong): ISC_STATUS;
begin
   if Assigned(Fisc_dsql_batch_execute_immed) then
   try
     FBusy:=True;
     Result := Fisc_dsql_batch_execute_immed(status_vector, db_handle,
        tran_handle, Dialect, no_of_sql, statement, rows_affected)
    finally
     FBusy:=False;
    end
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_dsql_batch_execute_immed',FLibraryName]));
end;
//End //IB2007

function TIBClientLibrary.isc_dsql_describe(status_vector: PISC_STATUS;
  stmt_handle: PISC_STMT_HANDLE; dialect: UShort;
  xsqlda: PXSQLDA): ISC_STATUS;
begin
  FBusy:=True;
  try
    Result:= Fisc_dsql_describe(status_vector,  stmt_handle,dialect,xsqlda)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_describe_bind(
  status_vector: PISC_STATUS; stmt_handle: PISC_STMT_HANDLE;
  dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS;
begin
  FBusy:=True;
  try
    Result:= Fisc_dsql_describe_bind(status_vector,  stmt_handle,dialect,xsqlda)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_execute(status_vector: PISC_STATUS;
  tran_handle: PISC_TR_HANDLE; stmt_handle: PISC_STMT_HANDLE;
  dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS;
begin
  FBusy:=True;
  try
    Result:= Fisc_dsql_execute(status_vector, tran_handle, stmt_handle,dialect,xsqlda)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_execute_immediate(
  status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  tran_handle: PISC_TR_HANDLE; length: UShort; statement: PChar;
  dialect: UShort; xsqlda: PXSQLDA): ISC_STATUS;
begin
  FBusy:=True;
  try
    Result:=
     Fisc_dsql_execute_immediate(status_vector, db_handle,tran_handle, length,statement,dialect,xsqlda)
  finally
    FBusy:=False;
  end
end;


function TIBClientLibrary.isc_dsql_exec_immed2(status_vector: PISC_STATUS;
 db_handle: PISC_DB_HANDLE; tran_handle: PISC_TR_HANDLE;
 length: UShort;statement: PChar;dialect: UShort;
 in_xsqlda,out_xsqlda: PXSQLDA): ISC_STATUS;
begin
  FBusy:=True;
  try
    Result:=
     Fisc_dsql_exec_immed2(status_vector, db_handle,tran_handle, length,statement,dialect,in_xsqlda,out_xsqlda)
  finally
    FBusy:=False;
  end
end;


function TIBClientLibrary.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;
begin
  FBusy:=True;
  try
    Result:=
     Fisc_dsql_execute2(status_vector, tran_handle, stmt_handle,dialect,in_xsqlda, out_xsqlda)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_fetch(status_vector: PISC_STATUS;
  stmt_handle: PISC_STMT_HANDLE; dialect: UShort;
  xsqlda: PXSQLDA): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_dsql_fetch(status_vector, stmt_handle,dialect,xsqlda);
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_free_statement(
  status_vector: PISC_STATUS; stmt_handle: PISC_STMT_HANDLE;
  options: UShort): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_dsql_free_statement(status_vector, stmt_handle,options)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_prepare(status_vector: PISC_STATUS;
  tran_handle: PISC_TR_HANDLE; stmt_handle: PISC_STMT_HANDLE;
  length: UShort; statement: PChar; dialect: UShort;
  xsqlda: PXSQLDA): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_dsql_prepare(status_vector, tran_handle,stmt_handle,
     length,statement,dialect, xsqlda
    )
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_set_cursor_name(
  status_vector: PISC_STATUS; stmt_handle: PISC_STMT_HANDLE;
  cursor_name: PChar; _type: UShort): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_dsql_set_cursor_name(status_vector, stmt_handle, cursor_name,_type)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_sql_info(status_vector: PISC_STATUS;
  stmt_handle: PISC_STMT_HANDLE; item_length: Short; items: PChar;
  buffer_length: Short; buffer: PChar): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_dsql_sql_info(status_vector, stmt_handle,item_length,items,
     buffer_length,buffer)
  finally
    FBusy:=False;
  end
end;


type
  Tsib_event_block = function (EventBuffer, ResultBuffer: PPChar; IDCount: UShort;
    Event1, Event2, Event3, Event4, Event5, Event6, Event7, Event8, Event9,
    Event10, Event11, Event12, Event13, Event14, Event15: PChar): ISC_LONG; cdecl;

function TIBClientLibrary.isc_event_block(event_buffer,
  result_buffer: PPChar; id_count: UShort;
  event_list: array of PChar): ISC_LONG;
begin
  FBusy:=True;
  try
   Result:=
    Tsib_event_block(Fisc_event_block)(event_buffer, result_buffer,id_count,
     event_list[0], event_list[1], event_list[2], event_list[3],
     event_list[4], event_list[5], event_list[6], event_list[7], event_list[8],
     event_list[9], event_list[10], event_list[11], event_list[12],
     event_list[13], event_list[14]
    )
  finally
    FBusy:=False;
  end

end;

procedure TIBClientLibrary.isc_event_counts(status_vector: PISC_STATUS;
  buffer_length: Short; event_buffer, result_buffer: PChar);
begin
  FBusy:=True;
  try
    Fisc_event_counts(status_vector, buffer_length,event_buffer, result_buffer)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_free(isc_arg1: PChar): ISC_LONG;
begin
  FBusy:=True;
  try
    Result:=Fisc_free(isc_arg1)
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_get_client_major_version: Integer;
begin
  if Assigned(Fisc_get_client_major_version) then
  try
    FBusy:=True;
    Result:=Fisc_get_client_major_version
  finally
    FBusy:=False;
  end
  else
   raise
    EAPICallException.Create(Format(SCantFindApiProc,['isc_get_client_major_version',FLibraryName]));
end;

function TIBClientLibrary.isc_get_client_minor_version: Integer;
begin
  if Assigned(Fisc_get_client_minor_version) then
  try
    FBusy:=True;
    Result:=Fisc_get_client_minor_version
  finally
    FBusy:=False;
  end
  else
   raise
    EAPICallException.Create(Format(SCantFindApiProc,['isc_get_client_minor_version',FLibraryName]));
end;

procedure TIBClientLibrary.isc_get_client_version(buffer: PChar);
begin

  if Assigned(Fisc_get_client_version) then
  try
    FBusy:=True;
    Fisc_get_client_version(buffer)
  finally
    FBusy:=False;
  end
  else
   raise
    EAPICallException.Create(Format(SCantFindApiProc,['isc_get_client_version',FLibraryName]));
end;

function TIBClientLibrary.isc_get_segment(status_vector: PISC_STATUS;
  blob_handle: PISC_BLOB_HANDLE; actual_seg_length: PUShort;
  seg_buffer_length: UShort; seg_buffer: PChar): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_get_segment(
     status_vector,  blob_handle,actual_seg_length,  seg_buffer_length,seg_buffer
    )
  finally
    FBusy:=False;
  end
end;


function TIBClientLibrary.isc_put_segment(status_vector: PISC_STATUS;
  blob_handle: PISC_BLOB_HANDLE; seg_buffer_len: UShort;
  seg_buffer: PChar): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_put_segment(
     status_vector,  blob_handle, seg_buffer_len,seg_buffer
    )
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_interprete(buffer: PChar;
  status_vector: PPISC_STATUS): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:= Fisc_interprete(buffer,  status_vector)
  finally
    FBusy:=False;
  end
end;


function TIBClientLibrary.isc_open_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_buffer: PChar): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:=
    Fisc_open_blob2(
     status_vector, db_handle,tran_handle,  blob_handle,blob_id,bpb_length, bpb_buffer
    )
  finally
    FBusy:=False;
  end
end;

function TIBClientLibrary.isc_prepare_transaction(
  status_vector: PISC_STATUS; tran_handle: PISC_TR_HANDLE): I