🚀 go-pugleaf

On Tue, 17 Jun 2003 21:28:52 GMT, fajp@xxxxoptushome.com.au (Frank
Adam) wrote:

Actually this might come in handy with that. :)

Note : playmode is not used. I let the system work it all out.

Public Function PlayFile(fileName As String, playMode As PLAYMODES) As
Boolean
    Dim sRet As String
    Dim ret As Long, secs As Long, mins As Long, sec As Long
    sRet = Space$(200)
    
    isFilePlaying = False

START_PLAY:
            
    ret = mciSendString("open " & Chr$(34) & Trim$(fileName) &
Chr$(34) & " alias playing", sRet, Len(sRet), 0)
    If ret Then
        Select Case ret
            Case MCIERR_DUPLICATE_ALIAS:
                Call CloseMCI
                GoTo START_PLAY
            Case Else:
                MsgBox ret, vbOKOnly, "MCIError"
        End Select
    End If
    If ret = 0 Then
        ret = mciSendString("set playing time format ms", sRet, 200,
0)
        ret = mciSendString("status playing length", sRet, 200, 0)
        If ret = 0 Then
            secs = Val(Trim$(sRet)) \ 1000
            sec = secs Mod 60
            mins = secs \ 60
            frmPlayer.uscProgressBar1.Value = 0
            frmPlayer.uscProgressBar1.Max = secs
            curFileLength = "/" & Format$(mins, "00") & ":" &
Format$(sec, "00")
            
            Else
                curFileLength = "/??:??"
        End If
        isMCIOpen = True
        isFilePlaying = MCIPlay
    End If
    PlayFile = isFilePlaying
End Function


>On Tue, 17 Jun 2003 22:17:54 +0100, "Mike Williams"
><Mike@BrandyandCoke.fsnet.co.uk> wrote:
>
>>"BeastFish" <BeastFish@for-president.com> wrote in message
>>news:e200086.0306171312.4def7f05@posting.google.com...
>>> you can use MCI.  Take a look at this site:
>>> http://www.geocities.com/smigman.geo/mci/mci.html
>>
>>Are you sure that thing (MCI) can play mp3 files. I certainly can't make it
>>do so.
>>
>I can. :-p
>
>excerpt :
>
>Public Function MCIPlay() As Long
>    Dim sRet As String * 200
>    Dim ret As Long
>    ret = mciSendString("play playing", sRet, 200, 0)
>    If ret = 0 Then
>        frmPlayer.tmrMCIUpdate.Enabled = True
>    End If
>End Function
>
>-- 
>
>Regards, Frank

-- 

Regards, Frank