VPF::Потоковое интернет-радио (формат MMS)

cardinal

Дата 31.5.2005, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Подключаем 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"

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »