home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / wbtrv.zip / WBTRV.ACT < prev    next >
Text File  |  1990-11-02  |  2KB  |  50 lines
  1. /* Copyright (c) 1990, Silverwood Software
  2.  * Placed in the public domain, 11/01/90
  3.  * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
  4.  
  5. load("\actor\wbtrv.lod");
  6. load();
  7.  
  8. /* LOAD BTRIEVE DLL */
  9. trv:=new(Btrv);
  10. loadDLL(trv);
  11.  
  12. /* INITIALIZE BTRIEVE */
  13. initBtrv(trv,<configuration string - e.g: "/m:64 /p:2048 etc..">);
  14.  
  15. /* CREATE AND INITIALIZE A BUFFER */
  16. datBufSz:=<database record size>;
  17. numbFlds:=<number of fields in record>;
  18. reco:=new(BtrvReco);
  19. initReco(reco,datBufSz,numbFlds);
  20.  
  21. /* OPEN A BTRIEVE DATABASE */
  22. openDat(trv,      /* instance of decendant of Library class */
  23.         reco,     /* instance of BtrvReco class */
  24.         "<FiNm>", /* database filename and path as string */
  25.         nil,      /* database owner name as string or nil if no owner */
  26.         nil,      /* length of owner name string or nil if no owner */
  27.         0);       /* open mode: 0=normal  -1=accelerated  -2=read-only
  28.                    *            -3=verify  -4=exclusive */
  29.  
  30. /* GET THE FIRST RECORD IN DATABASE */
  31. status:=WBtrv(trv,          /* instance of decendant of Library class */
  32.               vGetFirst,    /* operation code from RES\WBTRV.H */
  33.               gPBlk(reco),  /* position block */
  34.               gDBuf(reco),  /* data buffer */
  35.               gDLen(reco),  /* data buffer length */
  36.               gKBuf(reco),  /* key buffer */
  37.               255,          /* key buffer length - always set to 255 */
  38.               1);           /* key path number */
  39.  
  40. /* PRINT DATA BUFFER IN THE ACTOR DISPLAY WINDOW */
  41. printLine(gDBuf(reco));
  42.  
  43. /* CLOSE DATABASE */
  44. closeDat(trv,reco);
  45.  
  46. /* REMOVE BTRIEVE AND UNLOAD DLL */
  47. stopBtrv(trv);
  48. freeDLL(trv);
  49.  
  50.