Build MP3 Player without WMP OCX

[chokies12]

hello guys im new here..hope you can help make my first project in visual basic..i want to make a mp3 player in visual basic without using the WMP OCX.. i have started i downloaded a simple mp3 player without WMP OCX and use it as a reference but since it has no tutorial i have to see the codes 1by1 i cant play my project..here's my code..

[code=vb]

Private Sub CmdBrowse_Click ()
On Error GoTo error

With CDlg1
'On Cancel do nothing
.CancelError = True

.DialogTitle = "Browse For MP3 Files"
.Filter = "MP3 Files (*.mp3) |*.mp3; |Wave Files (*.wav) |*.wav; |Midi Files (*.mid) |*.mid"
.ShowOpen
'Handle no filename
If Len(.FileName) = 0 Then Exit Sub

txtFile.Text = .FileName
CmdPlay.SetFocu s 'Press enter to play
End With

error: 'Do nothing
End Sub

Private Sub CmdPlay_Click()
Play
End Sub

Private Sub TxtFile_Change( )
Dim Ext As String
'Check if there is a string in txtFile
If txtFile <> "" Then
'File extension is the last three letters
Ext = LCase(Right(txt File, 4))
'If extension is supported enable player buttons
If Ext = ".mp3" Or Ext = ".wav" Or Ext = ".mid" Then
CmdPlay.Enabled = True
CmdPause.Enable d = True
CmdStop.Enabled = True
CmdRew.Enabled = True
CmdFF.Enabled = True
chkLoop.Value = 1
End If
Else
'If no file name disable player buttons
CmdPlay.Enabled = False
CmdPause.Enable d = False
CmdStop.Enabled = False
CmdRew.Enabled = False
CmdFF.Enabled = False
chkLoop.Value = 2
End If
End Sub
[/code]

when i open i file i gives a error about thet command "Play" i think theres something wrong about it but in my reference player thats the only command in the CmdPlay button

[debasisdas]

What is that Play in your code ?

[chokies12]

oh your right "Play" Has no value..

how do i declare a value for play?can you kindly help me im new in visual basic..

[VBWheaties]

oh your right "Play" Has no value..

how do i declare a value for play?can you kindly help me im new in visual basic..

Whats this mp3 player that you downloaded and set a reference to? Need the name of it in order to understand its code.

[chokies12]

i downloaded this at freevbcode.com "Pocket Player" here's the code im looking at it 1by1 so i can understand how it was made..

[chokies12]

i cant seem to post the the pocket player code..it seems that its too long so there nothing that appears in my reply..

DL link for the pocket player code

[chokies12]

please help me with this project..how do i declare a function for play?

[chokies12]

please help me need your answer about this

[Killer42]

you need to have some patience. The people who respond here are volunteering their own time, and are located in various timezones around the world.

I'd have a look at the code now, but my work system blocks access when I try to open the link. :-(

[chokies12]

you need to have some patience. The people who respond here are volunteering their own time, and are located in various timezones around the world.

I'd have a look at the code now, but my work system blocks access when I try to open the link. :-(

oh im sorry about my impatience..im having problem posting the code here since its too long..

[VBWheaties]

yep. my work also blocks. i wonder if we work at same place. :)

[Killer42]

yep. my work also blocks. i wonder if we work at same place. :)

I don't think it's that rare.

[chokies12]

guys i think this the code value of "Play" i dont know which line is making it play..

Sub Play()

Dim CurState As Long
 'check player
 If Not Player Is Nothing Then
    'Get the state
    Player.GetState x, CurState
      
    If CurState = 1 Then
      PausePlay
      Exit Sub
    End If
 End If
 
 StartPlay 'Start playing the file

End Sub
Sub StartPlay()

On Error GoTo error                   'Handle Error
   'Set objects
   Set Player = New FilgraphManager   'Player
   Set PlayerPos = Player             'Position
   Set PlayerAU = Player              'Volume

   Player.RenderFile txtFile.Text     'Load file
   AdjustVolume                       'Set Volume
   Player.Run                         'Run player
   PlayerIsPlaying = True             'We are playing
   playTimer.Enabled = True           'Start play timer
   lblStatus.Caption = "Playing..."   'Status
   cmdBrowse.Enabled = False          'No file open before stop
   txtFile.Enabled = False            'No change
   VolSlider.SetFocus                 'Remove focus from cmdPlay
   i = 0                              'Animate icon
   GetMP3Tags                         'Load mp3 file tags
   Me.Caption = Me.Caption & " [" & txtInfo.Text & "]"

Exit Sub
error:                                 'Handle error
   StopPlay                            'Stop player
   cmdBrowse.Enabled = True            'Enable file browser
   txtFile.Enabled = True              'Enable file name text box
   lblStatus.Caption = Err.Description 'Write error description to status label
   
End Sub

[VBWheaties]

You have to set a reference to "Quartz.dll ".
And according to the article, the technology (DirectShow) has been deprecated or not supported anymore.
Heres the article:

http://msdn2.microsoft.com/en-us/library/ms785873(VS.85).aspx

[Killer42]

guys i think this the code value of "Play" i dont know which line is making it play.

My money would be on line 28.