Play SOund - MP3 files

Date: 02-16-2022

Return to Index

 
'Compilable Example
#Compile Exe
#Dim All
#Include "Win32api.inc"
 
Function PBMain() As Long
  Local lRes As Long
  Local MP3File As AsciiZ * %Max_Path
 
  MP3File = "roll.mp3"
  lRes =  mciSendString ("open " + $Dq + MP3File + $Dq, "", %null,%null)
  lRes = mciSendString ("play " + $Dq + MP3File + $Dq, "", %null,%null)
 
  Sleep 5000  'play for about 10 seconds
 
  lRes = mciSendString ("stop " + $Dq + MP3File + $Dq, "", %null,%null)
  lRes = mciSendString ("close " + $Dq + MP3File + $Dq, "", %null,%null)
 
End Function
               

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm