Q131632: How to Play Audio CDs from Visual FoxPro

Article: Q131632
Product(s): Microsoft FoxPro
Version(s): 3.00
Operating System(s): 
Keyword(s): 
Last Modified: 03-AUG-2000

-------------------------------------------------------------------------------
The information in this article applies to:

- Microsoft Visual FoxPro for Windows, version 3.0 
-------------------------------------------------------------------------------

SUMMARY
=======

This article shows by example how to play an audio compact disc (CD) using
Visual FoxPro.

MORE INFORMATION
================

The following example registers the Windows Multi-Media DLL file (WINMM.DLL) by
using the DECLARE command. WINMM.DLL contains the MciSendString system function
that accepts parameters to allow you to manipulate media files and devices.

Step-by-Step Example
--------------------


1. Create a new form and enter the following code in the Init section of the
  form:

     #define mmsystem "WINMM.DLL"
     DECLARE integer mciSendString IN mmsystem string, string, integer,;
        integer
     =mciSendString("open cdaudio","",0,0)

2. Add a command button to the form, and set its Caption property to Play. Enter
  the following code in the Click event of the button:

     =mciSendString("play cdaudio","",0,0)

3. Add another command button to the form, and set its Caption property to Stop.
  Enter the following code in the Click event of the button:

     =mciSendString("stop cdaudio","",0,0)

4. Add another command button to the form, and set its Caption property to
  Eject. Enter the following code in the Click event of the button:

     =mciSendString("set cdaudio door open","",0,0)

5. Add a final command button to the form, and set its Caption property to Exit.
  Enter the following code in the Click event of the button:

     CLEAR DLLS
     RELEASE THISFORM

6. Press the exclamation mark (!) button on the Visual FoxPro toolbar, and enter
  a name for the form.

Additional query words: kbsound VFoxWin CD-ROM sound music akz

======================================================================
Keywords          :  
Technology        : kbVFPsearch kbAudDeveloper kbVFP300
Version           : 3.00

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1986-2002.