home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / CLASSES / TMCI.PRG < prev    next >
Text File  |  1994-01-16  |  1KB  |  48 lines
  1. //----------------------------------------------------------------------------//
  2. // MCI - Media Control Interface                                              //
  3. // (c) FiveWin 1.2                                                            //
  4. //----------------------------------------------------------------------------//
  5.  
  6. #include "FiveWin.ch"
  7.  
  8. //----------------------------------------------------------------------------//
  9.  
  10. CLASS TMci
  11.  
  12.    DATA   nError, nId
  13.    DATA   cType, cFileName
  14.    DATA   oWnd
  15.  
  16.    METHOD New( cDevice, cFileName )  CONSTRUCTOR
  17.  
  18.    METHOD lOpen() BLOCK ;
  19.       { | Self, nId | ::nError := nMciOpen( ::cType, ::cFileName, @nId ),;
  20.                       ::nId := nId, ::nError == 0 }
  21.  
  22.    METHOD Play( nFrom, nTo ) BLOCK ;
  23.       { | Self, nFrom, nTo | ::nError := nMciPlay( ::nId, nFrom, nTo ) }
  24.  
  25.    METHOD cGetError() BLOCK ;
  26.       { | Self, cError | mciGetErrorString( ::nError, @cError ), cError }
  27.  
  28.    METHOD SetWindow( oWnd ) BLOCK ;
  29.       { | Self, oWnd | ::oWnd := oWnd,;
  30.                        ::nError := nMciWindow( ::nId, oWnd:hWnd ) }
  31.  
  32. ENDCLASS
  33.  
  34. //----------------------------------------------------------------------------//
  35.  
  36. METHOD New( cDevice, cFileName ) CLASS TMci
  37.  
  38.    DEFAULT cDevice := ""
  39.  
  40.    ::nError    = 0
  41.    ::nId       = 0
  42.    ::cType     = cDevice
  43.    ::cFileName = cFileName
  44.  
  45. return
  46.  
  47. //----------------------------------------------------------------------------//
  48.