Подключаем Active Movie Control Library (quartz.dll)
| Код |
Private BasicAudio As IBasicAudio
Private MediaControl As IMediaControl
Public Function OpenRadio(RadioPath As String) As Boolean
On Local Error GoTo ErrHandler
Call CleanUp
Set MediaControl = New FilgraphManager
Call MediaControl.RenderFile(RadioPath)
Set BasicAudio = MediaControl
BasicAudio.Volume = 0
BasicAudio.Balance = 0
MediaControl.Run
OpenRadio = True
Exit Function
ErrHandler: CleanUp
End Function
Public Sub StopRadio()
If (ObjPtr(MediaControl) > 0) Then Call MediaControl.Stop
End Sub
Public Sub CleanUp()
On Local Error GoTo ErrHandler
If ObjPtr(MediaControl) > 0 Then MediaControl.Stop
If ObjPtr(BasicAudio) > 0 Then Set BasicAudio = Nothing
If ObjPtr(MediaControl) > 0 Then Set MediaControl = Nothing
Exit Sub
ErrHandler: Err.Clear
End Sub
|
Cлушаем, к примеру, "Русское радио в Калифорнии":
| Код |
OpenRadio "mms://216.12.162.54/rusradio"
|
|