home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR36 / BTV200.ZIP / BTVCONST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-18  |  8KB  |  256 lines
  1. {*
  2. *=========================================================================
  3. *  BTVCONST.PAS  Version 2.00
  4. *
  5. *  BTRIEVE object oriented interface for Turbo Pascal 6.0, 7.0
  6. *
  7. *  Copyright (c) 1993 by Richard W. Hansen, all rights reserved.
  8. *
  9. *
  10. *  Requires Turbo Pascal version 6.0, 7.0
  11. *
  12. *
  13. *  Registration and payment of a license fee is required for any use, whether
  14. *  in whole or part, of this source code.
  15. *=========================================================================
  16. *
  17. *}
  18.  
  19. {****************************************************************************}
  20. {*   REVISION HISTORY                                                       *}
  21. {*                                                                          *}
  22. {*  Date     Who  What                                                      *}
  23. {* ======================================================================== *}
  24. {* 10/02/93  RWH  Added constants for extended Get & Insert operations.     *}
  25. {* 11/03/93  RWH  Changed bOutOfMemory error code to 5000.                  *}
  26. {****************************************************************************}
  27.  
  28. UNIT BtvConst;
  29.  
  30. INTERFACE
  31.  
  32. CONST
  33.   {----- Btrieve operation codes -----}
  34.   bOpen               = 0;
  35.   bClose              = 1;
  36.   bInsert             = 2;
  37.   bUpdate             = 3;
  38.   bDelete             = 4;
  39.   bGetEqual           = 5;
  40.   bGetNext            = 6;
  41.   bGetPrev            = 7;
  42.   bGetGreat           = 8;
  43.   bGetGreatEqual      = 9;
  44.   bGetLess            = 10;
  45.   bGetLessEqual       = 11;
  46.   bGetFirst           = 12;
  47.   bGetLast            = 13;
  48.   bCreate             = 14;
  49.   bStat               = 15;
  50.   bBeginTransaction   = 19;
  51.   bEndTransaction     = 20;
  52.   bAbortTransaction   = 21;
  53.   bGetPosition        = 22;
  54.   bGetDirect          = 23;
  55.   bStepNext           = 24;
  56.   bStop               = 25;
  57.   bVersion            = 26;
  58.   bUnlock             = 27;
  59.   bReset              = 28;
  60.   bSetOwner           = 29;
  61.   bClearOwner         = 30;
  62.   bCreateIndex        = 31;
  63.   bDropIndex          = 32;
  64.   bStepFirst          = 33;
  65.   bStepLast           = 34;
  66.   bStepPrev           = 35;
  67.   bXGetNext           = 36;
  68.   bXGetPrev           = 37;
  69.   bXStepNext          = 38;
  70.   bXStepPrev          = 39;
  71.   bXInsert            = 40;
  72.  
  73.   bGetKey             = 50;
  74.  
  75.   {----- Btrieve Status Codes -----}
  76.   bOkay               = 0;
  77.   bInvalidOp          = 1;
  78.   bIOerror            = 2;
  79.   bFileNotOpen        = 3;
  80.   bKeyNotFound        = 4;
  81.   bDuplicateKey       = 5;
  82.   bInvalidKey         = 6;
  83.   bDifferentKey       = 7;
  84.   bInvalidPos         = 8;
  85.   bEOF                = 9;
  86.   bKeyModifyErr       = 10;
  87.   bInvalidName        = 11;
  88.   bFileNotFound       = 12;
  89.   bExtendedFileErr    = 13;
  90.   bPreImageOpenErr    = 14;
  91.   bPreImageIOErr      = 15;
  92.   bExpansionErr       = 16;
  93.   bCloseErr           = 17;
  94.   bDiskFull           = 18;
  95.   bUnRecoverableErr   = 19;
  96.   bNotLoaded          = 20;
  97.   bKeyBufferShort     = 21;
  98.   bDataBufferShort    = 22;
  99.   bPosBlockShort      = 23;
  100.   bPageSizeErr        = 24;
  101.   bCreateIOErr        = 25;
  102.   bNumberKeys         = 26;
  103.   bInvalidKeyPos      = 27;
  104.   bRecordLenErr       = 28;
  105.   bKeyLenErr          = 29;
  106.   bNotBtrieveFile     = 30;
  107.   bFileExtended       = 31;
  108.   bExtendIOErr        = 32;
  109.   bExtendNameErr      = 34;
  110.   bDirectoryErr       = 35;
  111.   bTransactionErr     = 36;
  112.   bTransactionActive  = 37;
  113.   bTransactionFileErr = 38;
  114.   bTransactionEndErr  = 39;
  115.   bTransactionMaxFiles= 40;
  116.   bOpNotAllowed       = 41;
  117.   bAcceleratedErr     = 42;
  118.   bInvalidAddress     = 43;
  119.   bNullKeypath        = 44;
  120.   bBadKeyFlags        = 45;
  121.   bFileAccessDenied   = 46;
  122.   bMaxOpenFiles       = 47;
  123.   bInvalidAltSequence = 48;
  124.   bKeyTypeErr         = 49;
  125.   bOwnerIsSet         = 50;
  126.   bInvalidOwner       = 51;
  127.   bCacheWriteErr      = 52;
  128.   bInvalidVersion     = 53;
  129.   bVariablePageErr    = 54;
  130.   bAutoIncrementErr   = 55;
  131.   bBadIndex           = 56;
  132.   bExpandedMemoryErr  = 57;
  133.   bCompressBuffShort  = 58;
  134.   bFileExists         = 59;
  135.   bRejectMax          = 60;
  136.   bWorkSpaceShort     = 61;
  137.   bDescriptorErr      = 62;
  138.   bExtInsertBuffErr   = 63;
  139.   bFilterLimit        = 64;
  140.   bFieldOffsetErr     = 65;
  141.   bTTSabort           = 74;
  142.   bDeadlock           = 78;
  143.   bConflict           = 80;
  144.   bLockErr            = 81;
  145.   bLostPosition       = 82;
  146.   bOutOfTransaction   = 83;
  147.   bRecordInUse        = 84;
  148.   bFileInUse          = 85;
  149.   bFileTblFull        = 86;
  150.   bHandleTblFull      = 87;
  151.   bBadModeErr         = 88;
  152.   bDeviceTableFull    = 90;
  153.   bServerErr          = 91;
  154.   bTranTableFull      = 92;
  155.   bBadLockType        = 93;
  156.   bPermissionErr      = 94;
  157.   bSessionInvalid     = 95;
  158.   bCommunicationErr   = 96;
  159.   bDataMessageShort   = 97;
  160.   bInternalTTSerr     = 98;
  161.   bLastError          = bInternalTTSerr;
  162.  
  163.   bOutOfMemory        = 5000;
  164.   bDuplicateFilename  = bOutOfMemory + 1;
  165.   bLoadInputErr       = bDuplicateFilename + 1;
  166.  
  167.   {----- Btrieve constants -----}
  168.   bNormal             = 0;
  169.  
  170.   bNOJustify          = 0;        { String justification types }
  171.   bRJustify           = 1;
  172.   bLJustify           = 2;
  173.  
  174.   bOverWrite          = 0;       { File create mode }
  175.   bNoOverWrite        = -1;       { File create mode }
  176.  
  177.   bNoAccess           = 0;
  178.   bReadAccess         = 1;        { File owner access modes }
  179.   bWriteAccessEncrypt = 2;
  180.   bReadAccessEncrypt  = 3;
  181.  
  182.   bVariableLen        = 1;        { File flags }
  183.   bBlankTruncate      = 2;
  184.   bPreallocate        = 4;
  185.   bDataCompress       = 8;
  186.   bKeyOnly            = 16;
  187.   b10Free             = 64;
  188.   b20Free             = 128;
  189.   b30Free             = 192;
  190.  
  191.   bAccelerated        = -1;       { File open modes }
  192.   bReadOnly           = -2;
  193.   bVerify             = -3;
  194.   bExclusive          = -4;
  195.  
  196.   bDuplicates         = 1;        { Key flags }
  197.   bModifiable         = 2;
  198.   bBinary             = 4;
  199.   bNull               = 8;
  200.   bSegmented          = 16;
  201.   bAltSequence        = 32;
  202.   bDescending         = 64;
  203.   bSupplemental       = 128;
  204.   bExtended           = 256;
  205.   bManual             = 512;
  206.  
  207.   bString             = 0;        { Key types }
  208.   bInteger            = 1;
  209.   bFloat              = 2;
  210.   bDate               = 3;
  211.   bTime               = 4;
  212.   bDecimal            = 5;
  213.   bMoney              = 6;
  214.   bLogical            = 7;
  215.   bNumeric            = 8;
  216.   bBfloat             = 9;
  217.   bLstring            = 10;
  218.   bZstring            = 11;
  219.   bUnsigned           = 14;
  220.   bAutoIncrement      = 15;
  221.  
  222.   bNoLock             = 0;        { Lock types }
  223.   bSingleWait         = 100;
  224.   bSingleNoWait       = 200;
  225.   bMultipleWait       = 300;
  226.   bMultipleNoWait     = 400;
  227.  
  228.   bXGetEqual          = 1;        { extended get compare codes }
  229.   bXGetGreat          = 2;
  230.   bXGetLess           = 3;
  231.   bXGetNotEqual       = 4;
  232.   bXGetGreatEqual     = 5;
  233.   bXGetLessEqual      = 6;
  234.  
  235.   bXAltSeqCompare     = 32;       { biases to be added to compare codes }
  236.   bXFieldCompare      = 64;
  237.   bXNoCaseCompare     = 128;
  238.  
  239.   bXDone              = 0;        { extended get logical operation codes }
  240.   bXLogicAND          = 1;
  241.   bXLogicOR           = 2;
  242.  
  243.  
  244.   PosBlockSize        = 128;
  245.  
  246.   MaxSegments         = 24;       { maximum number of segments in a key   }
  247.   MaxBuffSize         : Word = 16 * 1024; { 16k max buffer size in bytes  }
  248.  
  249.   {$IFDEF WINDOWS}
  250.   wm_BrieveNotLoaded  : Word = $7FFF;
  251.   {$ENDIF}
  252.  
  253. IMPLEMENTATION
  254.  
  255. end.
  256.