home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / video.prc < prev    next >
Text File  |  1997-03-09  |  1KB  |  42 lines
  1. @POWER POWSHEET SHEET1 *
  2. @POWER POWEDIT EDIT1 CHANGE
  3.  ENVIRONMENT DIVISION.
  4.  DATA        DIVISION.
  5.  PROCEDURE   DIVISION.
  6.         IF POW-TEXT OF EDIT1 = ALL SPACE
  7.         THEN
  8.           MOVE POW-OFF TO POW-ENABLE OF PUSH2
  9.         ELSE
  10.           MOVE POW-ON TO POW-ENABLE OF PUSH2
  11.         END-IF
  12. @POWER POWPSBTN PUSH1 CLICK
  13.  ENVIRONMENT DIVISION.
  14.  DATA        DIVISION.
  15.  WORKING-STORAGE SECTION.
  16.  01 AVI-FILENAME PIC X(128).
  17.  PROCEDURE   DIVISION.
  18. * Display the AVI file name of the video being played.
  19.         CALL GETFILENAME OF SHEET1
  20.           USING AVI-FILENAME
  21.                 "File reference"
  22.                 "AVI file(*.AVI)|*.AVI"
  23.                 POW-CDOPEN.
  24.         IF return-code >= ZERO
  25.         THEN
  26.           MOVE AVI-FILENAME TO POW-TEXT OF EDIT1
  27.         END-IF
  28. @POWER POWPSBTN PUSH2 CLICK
  29.  ENVIRONMENT DIVISION.
  30.  DATA        DIVISION.
  31.  PROCEDURE   DIVISION.
  32. * Open the AVI VIDEO device and play the video clip.
  33.         MOVE POW-TEXT OF EDIT1 TO POW-MCIELEMENT OF MCI1.
  34.         CALL OPENDEVICE OF MCI1.
  35.         CALL PLAYDEVICE OF MCI1.
  36. @POWER POWPSBTN PUSH3 CLICK
  37.  ENVIRONMENT DIVISION.
  38.  DATA        DIVISION.
  39.  PROCEDURE   DIVISION.
  40. * Close the sample application.
  41.      CALL CLOSESHEET OF SHEET1
  42.