WD Play a sound mp3 / wav

// select the sound file
sFile is string
sFile = fSelect(EDT_FILE,"Select a sound file...",...
"mp3 files (*.mp3)"+TAB+"*.mp3"+CR+...
"Wave files (*.wav)"+TAB+"*.wav"+CR+...
"All files (*.*)"+TAB+"*.*",...
"*",fselOpen+fselExist)

WinRedraw()

// If a file was selected
IF sFile<>"" THEN
EDT_FILE=sFile

// Close the previous sound file if there is one
// No action otherwise
MCIClose("MySound")

// Open the selected sound file
// "MySound" is the logical name (alias) chosen arbitrarily
// this name will be used to handle the file
MCIOpen(EDT_FILE, "MySound")

// If the opening failed
IF ErrorOccurred THEN
// Display the status report
Error(ErrorInfo())
END
END

//--------------------------------------------------------------------------------------

// Reposition at the beginning of the file
// When the user asks to read the file again, the read operation will start from the beginning
MCIBeginning("MySound")

// Read the selected sound file
// Reminder: "MySound" is the logical name chosen for this file when it is opened
MCIPlay("MySound")

//---------------------------------------------------------------------

// Pause the selected sound file
// Reminder: "MySound" is the logical name chosen for this file when it is opened
MCIPause("MySound")

//---------------------------------------------------------------------

// Stop reading the selected sound file
// Reminder: "MySound" is the logical name chosen for this file when it is opened
MCIStopPlaying("MySound")

// Reposition at the beginning of the file
// When the user asks to read the file again, the read operation will start from the beginning
MCIBeginning("MySound")

//---------------------------------------------------------------------

// Initialize the value of the slider
// The bounds of the slider are 0 - 65535
// Tune all the files: WAV, MP3...
VOLUME_SLIDER = MCIVolume("WAV")

// Tune the volume (use syntax #2 of MCIVolume)
// Tune all the files: WAV, MP3...
MCIVolume("WAV",VOLUME_SLIDER)

//--------------------------------------------------------------------