Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=87738&view=findpost&p=651525 Sun, 20 Mar 2005 15:07:52 +0000 Интернет радио https://forum.sources.ru/index.php?showtopic=87738&view=findpost&p=651525
M
Тема перенесена из Visual Basic -> Visual Basic. Общие вопросы.
]]> Vasya2000 Сети, Интернет, почта https://forum.sources.ru/index.php?showtopic=87738&view=findpost&p=651512 Sun, 20 Mar 2005 14:59:38 +0000 Интернет радио https://forum.sources.ru/index.php?showtopic=87738&view=findpost&p=651512 подключаем 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
слушаем, к примеру, «13кнопку»
    OpenRadio "mms://81.13.20.10/13button"
]]> Tri Repetae Сети, Интернет, почта https://forum.sources.ru/index.php?showtopic=87738&view=findpost&p=651444 Sun, 20 Mar 2005 14:02:48 +0000 Интернет радио https://forum.sources.ru/index.php?showtopic=87738&view=findpost&p=651444 Мамонт Сети, Интернет, почта