source code:
``playing a midi file by marco waterman
``this api can do more things like opening the cd tray or
``playing avi files.
`and playing mp3 file by yves turgeon
Declare GetShortPathName as "GetShortPathNameA" of "kernel32" ` this is for playing long file name
lpszLongPath As String
lpszShortPath As String
lBuffer As Single
end declare
Declare sendstring as "mciSendStringA" of "winmm.dll"
lpstrCommand As String
lpstrReturnString As String
uReturnLength As integer
hwndCallback As integer
result as integer
end declare
object myform as form
height = 100
width=350
color=&hFFB871
caption="play a mp3 file"
object open1 as button
left=10
top=10
caption="Open"
onclick=open_click
end object
object play as button
left=120
top=10
caption="Play >>"
onclick=play_click
end object
object quit as button
left=210
top=10
caption="[ Stop ]"
onclick=quit_click
end object
end object
dim file as filedialog
myform.ShowModal
dim alias as string
sub open_click()
file.caption="select a mp3 file"
file.Filter = "Mp3 files (*.mp3)|*.mp3"
file.Show
myform.caption = file.FileName
alias=part$(file.filename,"",instr(file.filename,"."))
alias=field$(alias,".",1)
alias=left$(alias,2) `this is a way to do without using GetShortPathName
myform.Caption=file.FileName
end sub
sub play_click()
sendstring.lpstrcommand="OPEN "+chr$(34)+file.FileName+chr$(34)+" TYPE MpegVideo ALIAS "+alias
sendstring
sendstring.lpstrcommand="play "+alias+" from 0"
sendstring
end sub
sub quit_click()
sendstring.lpstrcommand="stop "+alias
sendstring
end sub