Using The MCI API

Ok, the only way to show you how to open multimedia files is to jump straight
in. The examples are pretty self explanitory, so don't worry too much.

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength
As Long, ByVal hwndCallback As Long) As Long

Public Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA"
(ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long)
As Long

'This is just an API call to get the short name of the path you specify. The
MCI uses short path formats

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA"
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer
As Long) As Long

'This constant is just a string that you pass to the MCI so it knows what file
your want manipulated

Const Alias As String = "Media"

'This function will return the error of specified MCI error

Private Function GetMCIError(lError As Long) As String

Dim sBuffer As string 'We need this to store the returned error

sBuffer = String$(255, Chr(0)) 'This fills out buffer with null characters so
the MCI has something to write the error on

mciGetErrorString lError, sReturn, Len(sReturn)

sBuffer = Replace$(sBuffer, Chr(0), "")

End Function

Private Function OpenMP3(FileName As String) As String

Dim lResult As Long 'The return value of the MCI command

Dim sBuffer As String 'The Buffer used to get the short path, we use it in the
same way as mciGetErrorString

sBuffer = String$(255, Chr(0))

GetShortPathName FileName, sBuffer, Len(sBuffer)

sBuffer = Replace$(sBuffer, Chr(0), "")

lResult = mciSendString("OPEN " & FileName & " TYPE MPEGVideo
ALIAS " & Alias, 0, 0, 0)

If lResult Then 'There was an error

'We make our function return the MCI error

OpenMP3 = GetMCIError(lResult)

Exit Function

Else 'There was no error

'Set the timeformat of the file to milliseconds so when we send a request to
get the length of the file or the curent playing position it will return in
something we can understand

mciSendString "SET " & Alias & " TIME FORMAT TMSF",
0, 0, 0

End Function

Private Sub CloseMP3()

'We dont need an error code for this becuase if it dosent close then there isnt
much we can do about it

mciSendString "CLOSE " & Alias, 0, 0, 0

End Sub

Private Sub PlayMP3(Optional lPosition As Long)

'We dont really need an error return code for this becuase if the file is playable
the MCI would not have opened it in the first place

'The lPosition tells the MCI to play the MP3 from a certain position (in milliseconds)

mciSendString "PLAY " & Alias & " FROM " & lPosition,
0, 0, 0

End Sub

They are the basics of playing media files. I thought I'd show you an MP3 file
becuase they are more fun. Now you have the basics you can incorporate it with
the lst below. Below is a list of all the stuff you can do with the MCI.

All commands follow the same pattern e.g.

mciSendString "You command string" & Your Alias & " Aditional
Commands", 0, 0, 0

If you are requesting a return value remember you must use a buffer

Command Strings

"PAUSE"

"STOP"

"SEEK" Same as PLAY ALIAS FROM

"OPEN AS CDAUDIO" opens it for a CD Audio

"OPEN AS MPEGVideo" Opens ANY MPEG File

"SETAUDIO ALIAS LEFT VOLUME TO NUMBER"

"SETAUDIO ALIAS RIGHT VOLUME TO NUMBER"

"STATUS ALIAS LENGTH"

"STATUS ALIAS POSITION"