[RESOLVED] Play audio

[dcool96]

Hello im some what new with vb Im wondering how to create a just a Play and stop button and when u click play it will connect to a site like shout cast url or a listen live radio url thanks.

If tried a sorce code example

"
Private Sub Form_Load()
psSoundFile = AppPath & "http://example.com/live.wav"
If Dir(psSoundFile) = "" Then
MsgBox "Sample .wav file not found; can't run", , "Error"
Else
MMControl1.DeviceType = "WAVEAUDIO"
MMControl1.FileName = psSoundFile
StopWav
End If
End Sub
"

and when i click play it says wav file not found etc.

[Andrew G]

Welcome to the forums


You will need to download the file first before playing it. MMControl can only open files that are on the computer. You can try searching the forum for examples.

Edit: Http://www.vbforums.com/showthread.p...t=play+wav+url

[dcool96]

Im not sure i guess like you said you cannot play audio threw that type of fuction do you know any other codes you can use to play audio from a url?

[Paul M]

dcool the best way would be doing it like Andrew proposed. Download it first then play it.

[dcool96]

well what i was going to do is create a simple program that all you have to do is open it click play it would connect to a url to on a radio site its simple to connect i have the url but i want it in a program format so i dont have to open html every time i want to start to listen plus it will be cleaner etc and alot of users already said they would use it becuase on the radio site it has annyoing ads etc

[Paul M]

Have you started this project at all? Like setup the GUI?

[dcool96]

Ive messed around with codes but havnt started yet till i fiqure out how to get it to play :/

[Paul M]

Hmm i unsure how to go about this but maybe it is possible to connect to this site then play the songs through your program.

[Paul M]

o btw can you give me the URL link so i can see what i can find out.

[dcool96]

umm its php http://www.933flz.com/cc-common/stre...new/genasx.php if the the script only reads like .wav .mp3 or w/e i can redirect it to the php with .wav ext or w/e

[Paul M]

You will need to use the Windows Media Player control almost definitely.

[dcool96]

I found a better url http://mfile.akamai.com/19869/live/r...ION_ID=WFLZ-FM

how do you add windows media control to the form? do you have any examples?


Thanks

[Paul M]

Press Ctrl + T
and then check the check box near Windows Media Player

[dcool96]

Ok where getting some where now i added media player

Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)

End Sub

how do I enter the url into that?

[Paul M]

Well i haven't done alot at all with the WMP control or done anything like what you are attempting.

Anyway i think you need the inet control as well because WMP does not have a connect routine.

[Andrew G]

If you wish to stream large data without the use of WMP, then i think your going to have to download a small section, then play it and as your playing, you download a new section and so forth. This is something quick if its only a small file, as it downloads it all, but you can make it download chunks at a time as well.

All it needs is the Internet Transfer Control. It will download the file (without saving it) and play it from memory.

#If Win32 Then
    Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
#Else
    Private Declare Function sndPlaySound Lib "MMSYSTEM.DLL" _
        (ByVal lpszSoundName As Any, ByVal wFlags As Integer) As Integer
#End If
 
Const SND_ASYNC = &H1     ' Play asynchronously
Const SND_NODEFAULT = &H2 ' Don't use default sound
Const SND_MEMORY = &H4    ' lpszSoundName points to a memory file
 
Private Sub Command1_Click()
Dim ret() As String
Dim StrHeader As String
Dim FileLength As Long
Dim FileB() As Byte
    
    Inet1.URL = "http://www.wav-sounds.com/cartoon/daffyduck1.wav"
    Inet1.Execute , "GET", , "Range: bytes=" & CStr(0) & "-" & vbCrLf
        
    Do While Inet1.StillExecuting
    DoEvents
    Loop
 
    StrHeader = Inet1.GetHeader("Content-Range")
    If InStr(1, StrHeader, "/") Then
        ret = Split(StrHeader, "/")
        FileLength = CLng(ret(1))
    End If
    
    FileB = Inet1.GetChunk(FileLength, icByteArray)
 
 
    Dim SndRet As Long
    Dim soundbuffer As String
    #If Win32 Then
        ' Important: The returned string is converted to Unicode
        soundbuffer = StrConv(FileB, vbUnicode)
    #Else
        soundbuffer = LoadResData(FileB, "Sounds")
    #End If
    SndRet = sndPlaySound(soundbuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)
    ' Important: This function is neccessary for playing sound asynchronously
    DoEvents
End Sub

[DigiRev]

Windows Media Player supports seamless audio streaming. I've rarely used it but it should have a URL property.

Mess around with the properties/methods until you find something.

WindowsMedia1.URL
WindowsMedia1.Play (URL)

Look at what items pop up in intellisense and try to figure it out. That's one reason intellisense is there.

[dcool96]

ive tried both codes the long one im still studing the long code but i tried

[CODE]Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMedia1.URL
WindowsMedia1.play (www.example.com/live.wav)
End SubCODE]

and the WMP just sits there does nothing im probley missing something

[DigiRev]

Use Andrew G's method method. Place it in a command button click event or something.

[dcool96]

the last code u gave me

Private Sub Form_Load()
WindowsMediaPlayer1.URL = "http://example.com/live.wav"
WindowsMediaPlayer1.Controls.play
End Sub

works thanks every one and andrew!

[revolutionx]

If you wish to stream large data without the use of WMP, then i think your going to have to download a small section, then play it and as your playing, you download a new section and so forth. This is something quick if its only a small file, as it downloads it all, but you can make it download chunks at a time as well.

All it needs is the Internet Transfer Control. It will download the file (without saving it) and play it from memory.

#If Win32 Then
    Private Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
#Else
    Private Declare Function sndPlaySound Lib "MMSYSTEM.DLL" _
        (ByVal lpszSoundName As Any, ByVal wFlags As Integer) As Integer
#End If
 
Const SND_ASYNC = &H1     ' Play asynchronously
Const SND_NODEFAULT = &H2 ' Don't use default sound
Const SND_MEMORY = &H4    ' lpszSoundName points to a memory file
 
Private Sub Command1_Click()
Dim ret() As String
Dim StrHeader As String
Dim FileLength As Long
Dim FileB() As Byte
    
    Inet1.URL = "http://www.wav-sounds.com/cartoon/daffyduck1.wav"
    Inet1.Execute , "GET", , "Range: bytes=" & CStr(0) & "-" & vbCrLf
        
    Do While Inet1.StillExecuting
    DoEvents
    Loop
 
    StrHeader = Inet1.GetHeader("Content-Range")
    If InStr(1, StrHeader, "/") Then
        ret = Split(StrHeader, "/")
        FileLength = CLng(ret(1))
    End If
    
    FileB = Inet1.GetChunk(FileLength, icByteArray)
 
 
    Dim SndRet As Long
    Dim soundbuffer As String
    #If Win32 Then
        ' Important: The returned string is converted to Unicode
        soundbuffer = StrConv(FileB, vbUnicode)
    #Else
        soundbuffer = LoadResData(FileB, "Sounds")
    #End If
    SndRet = sndPlaySound(soundbuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)
    ' Important: This function is neccessary for playing sound asynchronously
    DoEvents
End Sub

I am trying to accomplish something like this but how can i make it play .mp3 instead of .wav as the "sndPlaySound" declaration can only play .wav

any help will be appreciated.

[Andrew G]

Using WMP 10.

Private Sub Form_Load()
    WindowsMediaPlayer1.URL = "http://www.wav-sounds.com/cartoon/daffyduck1.wav"
    WindowsMediaPlayer1.Controls.play
End Sub

Edit: added the version i have incase.

[Paul M]

hmmm my version of the ocx must be older