home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Install / DATA.Z / IBPROC32.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  3.9 KB  |  167 lines
  1. {********************************************************}
  2. {                                                        }
  3. {       InterBase EventAlerter components                }
  4. {       Copyright (c) 1995 Borland International         }
  5. {                                                        }
  6. {       Written by:                                      }
  7. {         James Thorpe                                   }
  8. {         CSA Australasia                                }
  9. {         Compuserve: 100035,2064                        }
  10. {         Internet:   csa@csaa.com.au                    }
  11. {                                                        }
  12. {********************************************************}
  13.  
  14. unit IBPROC32;
  15.  
  16. interface
  17. uses sysutils;
  18. {$F+}
  19.  
  20. const
  21.   isc_dpb_version1  = 1;
  22.   isc_dpb_user_name = 28;
  23.   isc_dpb_password  = 29;
  24.  
  25.   isc_tpb_concurrency = 2;
  26.   isc_tpb_version3  = 3;
  27.   isc_tpb_wait      = 6;
  28.   isc_tpb_write     = 9;
  29.  
  30. type
  31.   isc_db_handle = pointer;
  32.   pisc_db_handle = ^isc_db_handle;
  33.   isc_long = longint;
  34.   pisc_long = ^isc_long;
  35.   isc_status = longint;
  36.   pisc_status = ^isc_status;
  37.   isc_tr_handle = pointer;
  38.   pisc_tr_handle = ^isc_tr_handle;
  39.  
  40.   status_vector = array[0..19] of isc_status;
  41.   pstatus_vector = ^status_vector;
  42.   ppstatus_vector = ^pstatus_vector;
  43.  
  44.   short = word;
  45.  
  46.   isc_teb = record
  47.     db_ptr: pisc_db_handle;
  48.     tpb_len: longint;
  49.     tpb_ptr: pchar;
  50.   end;
  51.   pisc_teb = ^isc_teb;
  52.  
  53.   TXSQLVar = record
  54.   end;
  55.  
  56.   TXSQLDA = record
  57.   end;
  58.   PTXSQLDA = ^TXSQLDA;
  59.  
  60.   isc_callback = procedure( ptr: pointer; length: short; updated: pchar);
  61.  
  62. { Interbase LIBS definitions }
  63.  
  64. //isc_attach_database
  65. TIscAttachDatabase = function(
  66.   status: pstatus_vector;
  67.   db_name_length: short;
  68.   db_name: pchar;
  69.   db_handle: pisc_db_handle;
  70.   parm_buffer_length: short;
  71.   parm_buffer: pchar
  72.   ): isc_status; stdcall;
  73.  
  74. // isc_cancel_events
  75. TIscCancelEvents = function(
  76.   status: pstatus_vector;
  77.   db_handle: pisc_db_handle;
  78.   event_id: pisc_long
  79.   ): isc_status; stdcall;
  80.  
  81. // isc_commit_transaction
  82. TIscCommitTransaction = function(
  83.   status: pstatus_vector;
  84.   trans_handle: pisc_tr_handle
  85.   ): isc_status; stdcall;
  86.  
  87. // isc_detach_database
  88. TIscDetachDatabase = function(
  89.   status: pstatus_vector;
  90.   db_handle: pisc_db_handle
  91.   ): isc_status; stdcall;
  92.  
  93. // isc_drop_database
  94. TIscDropDatabase = function(
  95.   status: pstatus_vector;
  96.   db_handle: pisc_db_handle
  97.   ): isc_status; stdcall;
  98.  
  99. // isc_dsql_execute_immediate
  100. TIscDsqlExecuteImmediate = function(
  101.   status: pstatus_vector;
  102.   db_handle: pisc_db_handle;
  103.   trans_handle: pisc_tr_handle;
  104.   length: short;
  105.   statement: PChar;
  106.   dialect: short;
  107.   xslqda: PTXSQLDA
  108.   ): isc_status; stdcall;
  109.  
  110. // isc_event_block
  111. TIscEventBlock = function(
  112.   event_buf: pointer;
  113.   result_buf: pointer;
  114.   count: short;
  115.   name1: pchar):  longint; cdecl;
  116.  
  117. // isc_event_counts
  118. TIscEventCounts = procedure(
  119.   status: pstatus_vector;
  120.   buffer_length: short;
  121.   event_buffer: pchar;
  122.   result_buffer: pchar
  123.   ); stdcall;
  124.  
  125. // isc_free
  126. TIscFree = function(
  127.   buffer: PChar
  128.   ): isc_long; stdcall;
  129.  
  130. // isc_interprete
  131. TIscInterprete = function(
  132.   buffer: PChar;
  133.   status: ppstatus_vector
  134.   ): isc_status; stdcall;
  135.  
  136. // isc_que_events
  137. TIscQueEvents = function(
  138.   status: pstatus_vector;
  139.   db_handle: pisc_db_handle;
  140.   event_id: pisc_long;
  141.   length: short;
  142.   event_buffer: pchar;
  143.   event_function: isc_callback;
  144.   event_function_arg: pointer
  145.   ): isc_status; stdcall;
  146.  
  147. // isc_rollback_transaction
  148. TIscRollbackTransaction = function(
  149.   status: pstatus_vector;
  150.   trans_handle: pisc_tr_handle
  151.   ): isc_status; stdcall;
  152.  
  153. // isc_start_multiple
  154. TIscStartMultiple = function(
  155.   status: pstatus_vector;
  156.   trans_handle: pisc_tr_handle;
  157.   db_handle_count: short;
  158.   teb_vector_address: pisc_teb
  159.   ): isc_status; stdcall;
  160.  
  161. // load DLL error exception
  162. EDLLLoadError = class(Exception);
  163.  
  164. implementation
  165.  
  166. end.
  167.