Mp3-Player

[Abel]

Is there anyone who has make their own Mp3-player and wants to send me the source code or the program in Visual Basic format ??

[LauPro]

Simple!

Option Explicit

Private Declare Function mciSendStringA Lib "WinMM" _
        (ByVal MCIcommand As String, ByVal returnStr As String, _
        ByVal returnLength As Integer, ByVal callBack As Integer) As Long

Private Sub cmdPlay_Click
    Dim returnStr As String * 255
    Dim returnCode As Integer

    errorCode = mciSendStringA("open " & txtMp3.txt & " alias MP3" , returnStr, 255, 0)
    errorCode = mciSendStringA("play MP3", returnStr, 255, 0)
End Sub

Private Sub cmdStop_Click
    Dim returnStr As String * 255
    Dim returnCode As Integer

    errorCode = mciSendStringA("stop MP3", returnStr, 255, 0)
End Sub

Private Sub Form_Unload
    Dim returnStr As String * 255
    Dim returnCode As Integer

    errorCode = mciSendStringA("close MP3", returnStr, 255, 0)
End Sub

[LauPro]

Option Explicit

Private Declare Function mciSendStringA Lib "WinMM" _
        (ByVal MCIcommand As String, ByVal returnStr As String, _
        ByVal returnLength As Integer, ByVal callBack As Integer) As Long

Private Sub cmdPlay_Click()
    Dim returnStr As String * 255
    Dim errorCode As Integer

    errorCode = mciSendStringA("open " & txtMp3.Text & " alias MP3", returnStr, 255, 0)
    errorCode = mciSendStringA("play MP3", returnStr, 255, 0)
End Sub

Private Sub cmdStop_Click()
    Dim returnStr As String * 255
    Dim errorCode As Integer

    errorCode = mciSendStringA("stop MP3", returnStr, 255, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim returnStr As String * 255
    Dim errorCode As Integer

    errorCode = mciSendStringA("close MP3", returnStr, 255, 0)
End Sub

[Hmpf]

Hey ?

Are u serious , MP3 is a compression technique known as the
mpeg layer 3 and one of the best compression methods and one of the most complex to decode
and u just use WAVE api to play it ?

What The FUC**** ?

Explain YourSelf

[Crazy D]

It's easy, if you have the right codecs installed (and most ppl with MediaPlayer 6.2 or above) do have them, you can use the that API.
But it relies on installed codecs!!
Check out http://www.softseek.com, there are some very good ocx's available who play mp3s WITHOUT installed codecs, so you can even play mp3s with that ocx on clean installed machines with nothing else then your program.

[Hmpf]

Now You Knocked Winamp to the ground real hard

and i tought it requries affort

Now i can just run the mp3 by a software i wrote

and i quote a member that was before me

: Shell("START 1.mp3") ;
dont steal that code its a patent No. 842972

and belongs to the member that wrote it down

u can use it only on one computer

Thank You

[Crazy D]

*LOL* I've never said winamp is so kewl.. (actually I think it sucks *LOL*)