home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR36 / BTV200.ZIP / BTRVWIN.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-18  |  3KB  |  93 lines
  1. {* This is a Microsoft Windows 3.1 interface to the Btrieve DLL.
  2. *  Requires Turbo Pascal version 7.0
  3. *
  4. *  IT CANNOT BE USED FOR REAL MODE OR PROTECTED MODE!!!!!
  5. *
  6. *}
  7.  
  8. UNIT BtrvWin;
  9.  
  10.  
  11. INTERFACE
  12.  
  13. {Standard Btrieve Operation Call}
  14. Function BTRV(    Operation: integer;
  15.               var posblk;
  16.               var databuf;
  17.               var datalen  : word;
  18.               var keybuf;
  19.                   keylen   : byte;
  20.                   keynum   : shortint): integer;
  21.  
  22. {Initializes the local DLL}
  23. Function BtrvInit(Var InitializationString): Integer;
  24.  
  25. {Stops this instance of Btrieve}
  26. Function BtrvStop: Integer;
  27.  
  28. {This function is currently not supported. You initialize brequest.exe
  29.  when you load it before loading Windows. Therefore, there is no need
  30.  to initialize the WBTRCALL.DLL requestor from your Windows application.
  31.  Separate initialization for each task using the requestor may be supported
  32.  at a later time.
  33. }
  34. Function BRqShellInit(Var InitializationString): Integer;
  35.  
  36.  
  37. IMPLEMENTATION
  38.  
  39.   {Standard Btrieve Operation Call}
  40. Function BTRV(    Operation: integer;
  41.               var posblk;
  42.               var databuf;
  43.               var datalen  : word;
  44.               var keybuf;
  45.                   keylen   : byte;
  46.                   keynum   : shortint): integer;
  47.                      external 'WBTRCALL'  index 1;
  48.  
  49.   {This is a dummy function. It currently serves no purpose}
  50. Function WBShellInit(Var InitializationString): Integer; far;
  51.                      external 'WBTRCALL'  index 2;
  52.  
  53.   {Initializes the local DLL}
  54. Function WBtrvInit(Var IntializationString): Integer;  far;
  55.                      external 'WBTRCALL'  index 3;
  56.  
  57.   {Clears all internal Btrieve tables for this process}
  58. Function WBtrvStop: Integer;  far;
  59.                      external 'WBTRCALL'  index 4;
  60.  
  61.   {This function is currently not supported. You initialize brequest.exe
  62.    when you load it before loading windows. Therefore, there is no need
  63.    to initialize the WBTRCALL.DLL requestor from your Windows application}
  64. Function WBRqShellInit(Var InitializationString): Integer; far;
  65.                      external 'WBTRCALL'  index 5;
  66.  
  67.  
  68.  
  69. {Initializes the local DLL}
  70. Function BtrvInit(Var InitializationString): Integer;
  71.   Begin
  72.     BtrvInit := WBtrvInit (InitializationString);
  73.   End; {End BtrvInit}
  74.  
  75.  
  76. {Stops this instance of Btrieve}
  77. Function BtrvStop: Integer;
  78.   begin
  79.     BtrvStop:= WBtrvStop;
  80.   end;
  81.  
  82.  
  83. {Initializes the requestor DLL}
  84. Function BRqShellInit(Var InitializationString): Integer;
  85.   begin
  86.     BRqShellInit:= WBRqShellInit(InitializationString);
  87.   end;
  88.  
  89.  
  90. BEGIN
  91. END.
  92.  
  93.