ib_intf.pas

FIBPlus version 6-96. This is somewhat usefull interbase database components. TFIBDatabase, TFIBTab

  end
end;

function TIBClientLibrary.isc_cancel_blob(status_vector: PISC_STATUS;
  blob_handle: PISC_BLOB_HANDLE): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_cancel_blob(status_vector, blob_handle)
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_cancel_events(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; event_id: PISC_LONG): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_cancel_events(status_vector, db_handle,event_id)
  finally
   FBusy:=False;
  end
end;


function TIBClientLibrary.isc_que_events(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; event_id: PISC_LONG; length: Short;
  event_buffer: PChar; event_function: TISC_CALLBACK;
  event_function_arg: PVoid): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_que_events(status_vector, db_handle,event_id,
       length, event_buffer, event_function,  event_function_arg
     )
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_wait_for_event  (status_vector: PISC_STATUS;
     db_handle: PISC_DB_HANDLE;length: Short; event_buffer,result_buffer: PChar): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_wait_for_event(status_vector, db_handle,
       length, event_buffer, result_buffer
     )
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_close_blob(status_vector: PISC_STATUS;
  blob_handle: PISC_BLOB_HANDLE): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_close_blob(status_vector, blob_handle)
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_commit_retaining(status_vector: PISC_STATUS;
  tran_handle: PISC_TR_HANDLE): ISC_STATUS;
begin
    if Assigned(Fisc_commit_retaining) then
    try
     FBusy:=True;
     Result:= Fisc_commit_retaining(status_vector, tran_handle)
    finally
     FBusy:=False;
    end
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_commit_retaining',FLibraryName]));
end;

function TIBClientLibrary.isc_commit_transaction(
  status_vector: PISC_STATUS; tran_handle: PISC_TR_HANDLE): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_commit_transaction(status_vector, tran_handle)
  finally
   FBusy:=False;
  end
end;



function TIBClientLibrary.isc_transaction_info(status_vector            : PISC_STATUS;
                                 tran_handle               : PISC_TR_HANDLE;
                                 item_list_buffer_length   : Short;
                                 item_list_buffer          : PChar;
                                 result_buffer_length      : Short;
                                 result_buffer             : PChar): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_transaction_info(status_vector, tran_handle,
                                   item_list_buffer_length   ,
                                   item_list_buffer          ,
                                   result_buffer_length      ,
                                   result_buffer
               )
  finally
   FBusy:=False;
  end
end;


function TIBClientLibrary.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: PChar): ISC_STATUS;
begin
  FBusy:=True;
  try

     Result:= Fisc_create_blob2(
      status_vector,db_handle,tran_handle,  blob_handle,blob_id,bpb_length,  bpb_address
     )
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_database_info(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE; item_list_buffer_length: Short;
  item_list_buffer: PChar; result_buffer_length: Short;
  result_buffer: PChar): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_database_info(
      status_vector,db_handle,item_list_buffer_length,
      item_list_buffer,result_buffer_length, result_buffer
     )
  finally
   FBusy:=False;
  end
end;

procedure TIBClientLibrary.isc_decode_date(ib_date: PISC_QUAD;
  tm_date: PCTimeStructure);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_decode_date) then
     Fisc_decode_date( ib_date,  tm_date)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_decode_date',FLibraryName]));
  finally
   FBusy:=False;
  end
end;

procedure TIBClientLibrary.isc_encode_date(tm_date: PCTimeStructure;
  ib_date: PISC_QUAD);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_encode_date) then
     Fisc_encode_date(tm_date,ib_date)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_encode_date',FLibraryName]));
  finally
   FBusy:=False;
  end
end;

procedure TIBClientLibrary.isc_encode_sql_date(tm_date: PCTimeStructure;
  ib_date: PISC_DATE);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_encode_sql_date) then
     Fisc_encode_sql_date(tm_date,ib_date)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_encode_sql_date',FLibraryName]));
  finally
   FBusy:=False;
  end
end;

procedure TIBClientLibrary.isc_encode_sql_time(tm_date: PCTimeStructure;
  ib_time: PISC_TIME);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_encode_sql_time) then
     Fisc_encode_sql_time(tm_date,ib_time)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_encode_sql_time',FLibraryName]));
  finally
   FBusy:=False;
  end
end;

procedure TIBClientLibrary.isc_encode_timestamp(tm_date: PCTimeStructure;
  ib_timestamp: PISC_TIMESTAMP);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_encode_timestamp) then
     Fisc_encode_timestamp(tm_date,ib_timestamp)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_encode_timestamp',FLibraryName]));
  finally
   FBusy:=False;
  end

end;


procedure TIBClientLibrary.isc_decode_sql_date(ib_date: PISC_DATE;
  tm_date: PCTimeStructure);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_decode_sql_date) then
     Fisc_decode_sql_date( ib_date,  tm_date)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_decode_sql_date',FLibraryName]));
  finally
   FBusy:=False;
  end
end;

procedure TIBClientLibrary.isc_decode_sql_time(ib_time: PISC_TIME;
  tm_date: PCTimeStructure);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_decode_sql_time) then
     Fisc_decode_sql_time( ib_time,  tm_date)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_decode_sql_time',FLibraryName]));
  finally
   FBusy:=False;
  end
end;

procedure TIBClientLibrary.isc_decode_timestamp(
  ib_timestamp: PISC_TIMESTAMP; tm_date: PCTimeStructure);
begin
  FBusy:=True;
  try
    if Assigned(Fisc_decode_timestamp) then
     Fisc_decode_timestamp( ib_timestamp,  tm_date)
    else
     raise
      EAPICallException.Create(Format(SCantFindApiProc,['isc_decode_timestamp',FLibraryName]));
  finally
   FBusy:=False;
  end

end;


function TIBClientLibrary.isc_add_user(status_vector: PISC_STATUS;
  user_sec_data: PUserSecData): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_add_user(status_vector,  user_sec_data)
  finally
   FBusy:=False;
  end
end;


function TIBClientLibrary.isc_delete_user(status_vector: PISC_STATUS;
  user_sec_data: PUserSecData): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_delete_user(status_vector,  user_sec_data)
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_modify_user(status_vector: PISC_STATUS;
  user_sec_data: PUserSecData): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_modify_user(status_vector,  user_sec_data)
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_detach_database(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_detach_database(status_vector,  db_handle)
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_drop_database(status_vector: PISC_STATUS;
  db_handle: PISC_DB_HANDLE): ISC_STATUS;
begin
  FBusy:=True;
  try
     Result:= Fisc_drop_database(status_vector,  db_handle)
  finally
   FBusy:=False;
  end
end;

function TIBClientLibrary.isc_dsql_alloc_statement2(
const  status_vector: PISC_STATUS; db_handle: PISC_DB_HANDLE;
  stmt_handle: PISC_STMT_HANDLE): ISC_STATUS;
begin
  FBusy:=True;
  try
   Result:= Fisc_dsql_alloc_statement2(status_vector,  db_handle,stmt_handle)
  finally
   FBusy:=False;
  end
end;