🚀 go-pugleaf

sjoerd <iwi@iwi.myweb.nl> burbled:
> Hi,
>
> I wrote a program in VB6 to organize and play mp3-files. At this
> moment I use a shellcommand to play the mp3-files. (shell c:\program
> files\winamp3\winamp3.exe <filename>)
>
> It works, but it isn't the most beautiful way. Can I male a player
> part of my VB-program to play the files?

DirectPlay should be able to play MP3s.  Try implementing the DP APIs.

-- 
Ian Cowley (Not Reverend)  - Perfecting pedantry through practice

"It was quite a funny joke, and nobody got hurt. The ones where
 nothing catches on fire are my favourite."

you can use MCI.  Take a look at this site:

http://www.geocities.com/smigman.geo/mci/mci.html





"sjoerd" <iwi@iwi.myweb.nl> wrote in message news:<bcn4n0$u2n$1@news3.tilbu1.nb.home.nl>...
> Hi,
> 
> I wrote a program in VB6 to organize and play mp3-files. At this moment I
> use a shellcommand to play the mp3-files. (shell c:\program
> files\winamp3\winamp3.exe <filename>)
> 
> It works, but it isn't the most beautiful way. Can I male a player part of
> my VB-program to play the files?
> 
> Thanks,
> 
> Sjoerd

"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.

Mike

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

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

"Mike Williams" <Mike@BrandyandCoke.fsnet.co.uk> wrote in message
news:bco0ju$2u0$1@newsg3.svr.pol.co.uk...
> "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.
>
> Mike
>
Are you specifying the correct device type in the call to mciSendString to
"open" ? Have you tried MPEGVideo2 ?

e.g. mciSendString "open " & chr(34) & MyMP3 & chr(34) & _
      " type MPEGVideo2 alias MP3",0&, 0, hWnd

If that doesn't work, take a look in your win.ini (in the windows directory)
under MCI and see what is associated with MP3

HTH

Yup.  But MCI barfs on long filenames, especially if there are spaces.
 So ya need to get the DOS short path/file name (GetShortPathName
API).





"Mike Williams" <Mike@BrandyandCoke.fsnet.co.uk> wrote in message news:<bco0ju$2u0$1@newsg3.svr.pol.co.uk>...
> "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.
> 
> Mike

Thank you Frank and Larry and Beatie Boy. Got it going now :-)

Mike


"Frank Adam" <fajp@xxxxoptushome.com.au> wrote in message
news:3eef886f.18258106@news-vip.optusnet.com.au...
> 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