ibase.pas

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

					     isc_var8 : PAnsiChar) : ISC_STATUS;
               {$I pFIBMacroComp.inc}

Tisc_dsql_batch_execute = function (status_vector : PISC_STATUS;
						   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;
             {$I pFIBMacroComp.inc}
//end IB2007

//FB 2.5

Tfb_cancel_operation = function (status_vector    : PISC_STATUS;
                                 db_handle        : PISC_DB_HANDLE;
				 option           : UShort): ISC_STATUS;
             {$I pFIBMacroComp.inc}
//end FB 2.5
Tisc_dsql_execute_immediate = function (status_vector     : PISC_STATUS;
				 db_handle                : PISC_DB_HANDLE;
				 tran_handle              : PISC_TR_HANDLE;
				 length                   : UShort;
				 statement                : PAnsiChar;
				 dialect                  : UShort;
                                 xsqlda                   : PXSQLDA): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_dsql_fetch = function      (status_vector            : PISC_STATUS;
                                 stmt_handle              : PISC_STMT_HANDLE;
				 dialect                  : UShort;
				 xsqlda                   : PXSQLDA): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

(*$ifdef SCROLLABLE_CURSORS*)
Tisc_dsql_fetch2 = function     (status_vector            : PISC_STATUS;
                                 stmt_handle              : PISC_STMT_HANDLE;
				 dialect                  : UShort;
				 xsqlda                   : PXSQLDA;
				 isc_arg5                 : UShort;
				 isc_arg6                 : Long): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}
(*$endif*)

Tisc_dsql_finish = function    (db_handle                : PISC_DB_HANDLE): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_dsql_free_statement = function (status_vector        : PISC_STATUS;
                                 stmt_handle              : PISC_STMT_HANDLE;
				 options                  : UShort): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_dsql_insert = function     (status_vector            : PISC_STATUS;
                                 stmt_handle              : PISC_STMT_HANDLE;
				 arg3                     : UShort;
				 xsqlda                   : PXSQLDA): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_dsql_prepare = function    (status_vector            : PISC_STATUS;
                                 tran_handle              : PISC_TR_HANDLE;
                                 stmt_handle              : PISC_STMT_HANDLE;
                                 length                   : UShort;
                                 statement                : PAnsiChar;
                                 dialect                  : UShort;
                                 xsqlda                   : PXSQLDA): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_dsql_set_cursor_name = function (status_vector        : PISC_STATUS;
				 stmt_handle               : PISC_STMT_HANDLE;
                                 cursor_name               : PAnsiChar;
                                 _type                     : UShort): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_dsql_sql_info = function   (status_vector             : PISC_STATUS;
                                 stmt_handle               : PISC_STMT_HANDLE;
				 item_length               : Short;
                                 items                     : PAnsiChar;
                                 buffer_length             : Short;
                                 buffer                    : PAnsiChar): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_encode_date = procedure    (tm_date                    : PCTimeStructure;
				 ib_date                    : PISC_QUAD);
                                 {$I pFIBMacroComp.inc}

Tisc_encode_sql_date = procedure (tm_date                   : PCTimeStructure;
				 ib_date                    : PISC_DATE);
                                 {$I pFIBMacroComp.inc}

Tisc_encode_sql_time = procedure (tm_date                   : PCTimeStructure;
				 ib_time                    : PISC_TIME);
                                 {$I pFIBMacroComp.inc}

Tisc_encode_timestamp = procedure (tm_date                  : PCTimeStructure;
				 ib_timestamp               : PISC_TIMESTAMP);
                                 {$I pFIBMacroComp.inc}

Tisc_event_block = function     (event_buffer               : PPAnsiChar;
				 result_buffer              : PPAnsiChar;
				 id_count                   : UShort;
                                 event_list                 : array of PAnsiChar): ISC_LONG;
                                {$I pFIBMacroComp.inc}

Tisc_event_counts = procedure   (status_vector             : PISC_STATUS;
				 buffer_length             : Short;
				 event_buffer              : PAnsiChar;
				 result_buffer             : PAnsiChar);
                                 {$I pFIBMacroComp.inc}

Tisc_expand_dpb = procedure     (dpb                       : PPAnsiChar;
				 dpb_length                : PShort;
				 item_list                 : array of Pointer);
                                 {$I pFIBMacroComp.inc}

Tisc_modify_dpb = function      (dpb                       : PPAnsiChar;
				 isc_arg2,
                                 isc_arg3                  : PShort;
                                 isc_arg4                  : UShort;
				 isc_arg5                  : PAnsiChar;
                                 isc_arg6                  : Short): Int;
                                 {$I pFIBMacroComp.inc}

Tisc_free = function           (isc_arg1                  : PAnsiChar): ISC_LONG;
                                 {$I pFIBMacroComp.inc}

Tisc_get_segment = function     (status_vector             : PISC_STATUS;
				 blob_handle               : PISC_BLOB_HANDLE;
                                 actual_seg_length         : PUShort;
                                 seg_buffer_length         : UShort;
				 seg_buffer                : PAnsiChar): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_get_slice = function       (status_vector             : PISC_STATUS;
                                 db_handle                 : PISC_DB_HANDLE;
                                 tran_handle               : PISC_TR_HANDLE;
                                 isc_arg4                  : PISC_QUAD;
                                 isc_arg5                  : Short;
				 isc_arg6                  : PAnsiChar;
				 isc_arg7                  : Short;
				 isc_arg8                  : PISC_LONG;
				 isc_arg9                  : ISC_LONG;
				 isc_arg10                 : PVoid;
				 isc_arg11                 : PISC_LONG): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_interprete = function      (buffer                    : PAnsiChar;
				 status_vector             : PPISC_STATUS): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tfb_interpret = function      (buffer                    : PAnsiChar;
                                 BufLen: ULong;
				 status_vector             : PPISC_STATUS): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_open_blob = function       (status_vector             : PISC_STATUS;
                                 db_handle                 : PISC_DB_HANDLE;
                                 tran_handle               : PISC_TR_HANDLE;
				 blob_handle               : PISC_BLOB_HANDLE;
				 blob_id                   : PISC_QUAD): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_open_blob2 = function      (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                : PAnsiChar): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_prepare_transaction2 = function (status_vector        : PISC_STATUS;
                                 tran_handle               : PISC_TR_HANDLE;
                                 msg_length                : Short;
				 msg                       : PAnsiChar): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_print_sqlerror = procedure (sqlcode                   : Short;
				 status_vector             : PISC_STATUS);
                                 {$I pFIBMacroComp.inc}

Tisc_print_status = function   (status_vector              : PISC_STATUS): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_put_segment = function     (status_vector             : PISC_STATUS;
				 blob_handle               : PISC_BLOB_HANDLE;
				 seg_buffer_len            : UShort;
				 seg_buffer                : PAnsiChar): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_put_slice = function       (status_vector             : PISC_STATUS;
                                 db_handle                 : PISC_DB_HANDLE;
                                 tran_handle               : PISC_TR_HANDLE;
				 isc_arg4                  : PISC_QUAD;
				 isc_arg5                  : Short;
				 isc_arg6                  : PAnsiChar;
				 isc_arg7                  : Short;
				 isc_arg8                  : PISC_LONG;
				 isc_arg9                  : ISC_LONG;
				 isc_arg10                 : PVoid): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_que_events = function      (status_vector             : PISC_STATUS;
                                 db_handle                 : PISC_DB_HANDLE;
				 event_id                  : PISC_LONG;
				 length                    : Short;
				 event_buffer              : PAnsiChar;
                                 event_function            : TISC_CALLBACK;
				 event_function_arg        : PVoid): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_rollback_retaining = function (status_vector         : PISC_STATUS;
				 tran_handle              : PISC_TR_HANDLE): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_rollback_transaction = function (status_vector        : PISC_STATUS;
                                 tran_handle               : PISC_TR_HANDLE): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_start_multiple = function  (status_vector             : PISC_STATUS;
                                 tran_handle               : PISC_TR_HANDLE;
                                 db_handle_count           : Short;
				 teb_vector_address        : PISC_TEB): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_start_transaction = function (status_vector           : PISC_STATUS;
                                 tran_handle               : PISC_TR_HANDLE;
                                 db_handle_count           : Short;
                                 db_handle                 : PISC_DB_HANDLE;
                                 tpb_length                : UShort;
                                 tpb_address               : PAnsiChar): ISC_STATUS;
                                {$I pFIBMacroComp.inc}

Tisc_sqlcode = function        (status_vector             : PISC_STATUS): ISC_LONG;
                                 {$I pFIBMacroComp.inc}


Tisc_sql_interprete = procedure (sqlcode                   : Short;
				 buffer                    : PAnsiChar;
                                 buffer_length             : Short);
                                 {$I pFIBMacroComp.inc}

Tisc_transaction_info = function (status_vector            : PISC_STATUS;
                                 tran_handle               : PISC_TR_HANDLE;
                                 item_list_buffer_length   : Short;
                                 item_list_buffer          : PAnsiChar;
                                 result_buffer_length      : Short;
                                 result_buffer             : PAnsiChar): ISC_STATUS;
                                 {$I pFIBMacroComp.inc}

Tisc_transact_request = function (status_vector            : PISC_STATUS;
                                 db_handle                 : PISC_DB_HANDLE;
                                 tran_handle               : PISC_TR_HANDLE;
				 isc_arg4                  : UShort;
                                 isc_arg5                  : PAnsiChar;
				 isc_arg6	           : UShort;