home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / progs / CB / DATA.Z / IBPROC32.HPP < prev    next >
Encoding:
C/C++ Source or Header  |  1996-11-06  |  5.5 KB  |  153 lines
  1. //----------------------------------------------------------------------------
  2. // IBPROC32.hpp - dcc32 generated hdr (DO NOT EDIT) rev: -2
  3. // From: IBPROC32.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef IBPROC32HPP
  6. #define IBPROC32HPP
  7. //----------------------------------------------------------------------------
  8. #ifndef SysUtilsHPP
  9. #include <SysUtils.hpp>
  10. #endif
  11.  
  12. #ifndef SystemHPP
  13. #include <System.hpp>
  14. #endif
  15.  
  16. namespace Ibproc32
  17. {
  18. //-- type declarations -------------------------------------------------------
  19. typedef void *isc_db_handle;
  20.  
  21. typedef System::Pointer *pisc_db_handle;
  22.  
  23. typedef System::Integer isc_long;
  24.  
  25. typedef System::Longint *pisc_long;
  26.  
  27. typedef System::Integer isc_status;
  28.  
  29. typedef System::Longint *pisc_status;
  30.  
  31. typedef void *isc_tr_handle;
  32.  
  33. typedef System::Pointer *pisc_tr_handle;
  34.  
  35. typedef System::Longint status_vector[20];
  36.  
  37. typedef status_vector *pstatus_vector;
  38.  
  39. typedef pstatus_vector *ppstatus_vector;
  40.  
  41. typedef System::Word IBPROC32_short;
  42.  
  43. struct isc_teb
  44. {
  45.     System::Pointer *db_ptr;
  46.     System::Longint tpb_len;
  47.     System::Char *tpb_ptr;
  48. } ;
  49.  
  50. typedef isc_teb *pisc_teb;
  51.  
  52. struct TXSQLVar
  53. {
  54.     
  55. } ;
  56.  
  57. struct TXSQLDA
  58. {
  59.     
  60. } ;
  61.  
  62. typedef TXSQLDA *PTXSQLDA;
  63.  
  64. typedef void __fastcall (*isc_callback)(System::Pointer ptr, System::Word length, System::PChar updated
  65.     );
  66.  
  67. typedef System::Longint __stdcall (*TIscAttachDatabase)(pstatus_vector status, System::Word db_name_length
  68.     , System::PChar db_name, pisc_db_handle db_handle, System::Word parm_buffer_length, System::PChar parm_buffer
  69.     );
  70.  
  71. typedef System::Longint __stdcall (*TIscCancelEvents)(pstatus_vector status, pisc_db_handle db_handle
  72.     , pisc_long event_id);
  73.  
  74. typedef System::Longint __stdcall (*TIscCommitTransaction)(pstatus_vector status, pisc_tr_handle trans_handle
  75.     );
  76.  
  77. typedef System::Longint __stdcall (*TIscDetachDatabase)(pstatus_vector status, pisc_db_handle db_handle
  78.     );
  79.  
  80. typedef System::Longint __stdcall (*TIscDropDatabase)(pstatus_vector status, pisc_db_handle db_handle
  81.     );
  82.  
  83. typedef System::Longint __stdcall (*TIscDsqlExecuteImmediate)(pstatus_vector status, pisc_db_handle 
  84.     db_handle, pisc_tr_handle trans_handle, System::Word length, System::PChar statement, System::Word 
  85.     dialect, PTXSQLDA xslqda);
  86.  
  87. typedef System::Longint __cdecl (*TIscEventBlock)(System::Pointer event_buf, System::Pointer result_buf
  88.     , System::Word count, System::PChar name1);
  89.  
  90. typedef void __stdcall (*TIscEventCounts)(pstatus_vector status, System::Word buffer_length, System::PChar 
  91.     event_buffer, System::PChar result_buffer);
  92.  
  93. typedef System::Longint __stdcall (*TIscFree)(System::PChar buffer);
  94.  
  95. typedef System::Longint __stdcall (*TIscInterprete)(System::PChar buffer, ppstatus_vector status);
  96.  
  97. typedef System::Longint __stdcall (*TIscQueEvents)(pstatus_vector status, pisc_db_handle db_handle, 
  98.     pisc_long event_id, System::Word length, System::PChar event_buffer, isc_callback event_function, System::Pointer 
  99.     event_function_arg);
  100.  
  101. typedef System::Longint __stdcall (*TIscRollbackTransaction)(pstatus_vector status, pisc_tr_handle trans_handle
  102.     );
  103.  
  104. typedef System::Longint __stdcall (*TIscStartMultiple)(pstatus_vector status, pisc_tr_handle trans_handle
  105.     , System::Word db_handle_count, pisc_teb teb_vector_address);
  106.  
  107. class __declspec(delphiclass) EDLLLoadError;
  108. class __declspec(pascalimplementation) EDLLLoadError : public Sysutils::Exception
  109. {
  110.     typedef EDLLLoadError ThisClass;
  111.     typedef Sysutils::Exception inherited;
  112.     
  113. public:
  114.     /* !! Exception.Create */ __fastcall EDLLLoadError(const System::AnsiString Msg) : Sysutils::Exception(
  115.         Msg) { }
  116.     /* !! Exception.CreateFmt */ __fastcall EDLLLoadError(const System::AnsiString Msg, const TVarRec *
  117.         Args, const System::Integer Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  118.     /* !! Exception.CreateRes */ __fastcall EDLLLoadError(System::Integer Ident) : Sysutils::Exception(
  119.         Ident) { }
  120.     /* !! Exception.CreateResFmt */ __fastcall EDLLLoadError(System::Integer Ident, const TVarRec *Args
  121.         , const System::Integer Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  122.     /* !! Exception.CreateHelp */ __fastcall EDLLLoadError(const System::AnsiString Msg, System::Integer 
  123.         AHelpContext) : Sysutils::Exception(Msg, AHelpContext) { }
  124.     /* !! Exception.CreateFmtHelp */ __fastcall EDLLLoadError(const System::AnsiString Msg, const TVarRec 
  125.         *Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Msg, Args
  126.         , Args_Size, AHelpContext) { }
  127.     /* !! Exception.CreateResHelp */ __fastcall EDLLLoadError(System::Integer Ident, System::Integer AHelpContext
  128.         ) : Sysutils::Exception(Ident, AHelpContext) { }
  129.     /* !! Exception.CreateResFmtHelp */ __fastcall EDLLLoadError(System::Integer Ident, const TVarRec *
  130.         Args, const System::Integer Args_Size, System::Integer AHelpContext) : Sysutils::Exception(Ident, 
  131.         Args, Args_Size, AHelpContext) { }
  132.     
  133. public:
  134.     /* !! TObject.Destroy */ __fastcall virtual ~EDLLLoadError(void) { }
  135.     
  136. };
  137.  
  138. //-- var, const, procedure ---------------------------------------------------
  139. #define isc_dpb_version1 System::Byte(1)
  140. #define isc_dpb_user_name System::Byte(28)
  141. #define isc_dpb_password System::Byte(29)
  142. #define isc_tpb_concurrency System::Byte(2)
  143. #define isc_tpb_version3 System::Byte(3)
  144. #define isc_tpb_wait System::Byte(6)
  145. #define isc_tpb_write System::Byte(9)
  146.  
  147. }    /* namespace Ibproc32 */
  148. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  149. using namespace Ibproc32;
  150. #endif
  151. //-- end unit ----------------------------------------------------------------
  152. #endif    // IBPROC32
  153.