Создание плеера интернет-радио

Hey_Hey

Хочу создать плеер-интернет радио. Создаю для местного клуба ИТВ и радио любителей. Дизайн в виде самодельной магнитолы, будут 6 кнопок, стоп, плей. Есть поток (ссылка по которой можно слушать радио). Какой мне код вбивать на кнопки, которые будут запускать воспроизведение??+ надо что бы текст на "Табло" менялся на название радио, а когда ставишь на стоп, было написано Radio Off
13 ответов

Hey_Hey

Hey_Hey, Windows Media Player.


Hey_Hey

UBUNTU, А какой код мне вводить??? Там же интернет поток


Hey_Hey

Ссылку дай.


Hey_Hey

Там же интернет поток
Ну да, поток и вводить. Пример кнопки, подключающей поток
Private Sub Command1_Click()
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = "http://www.SyperPuperlradio.com/potokRadio.asx"
WindowsMediaPlayer1.Controls.play
End Sub


Hey_Hey

Hey_Hey, WindowsMediaPlayer1.Visible = False на последок.


Hey_Hey

Ну да, поток и вводить. Пример кнопки, подключающей поток
Что надо ввести на кнопки пуск и стоп?? Действия такие : пользователь нажимает на цифру, поток включается автоматически и на табло появляется название этой станции (вводить их надо сразу в код). Нажимая на стоп воспроизведение прекращается и на табло появляется "Radio Off". При нажатии на плей, включается воспроизведение того потока, который играл до нажатия кнопки стоп. Вот так


Hey_Hey

Ссылку на поток дай.


Hey_Hey

Взял для примера Радио Рекорд, потоков пока нету))) http://air.radiorecord.ru:8101/rr_320И еще, как сделать увеличение и уменьшение громкости на кнопки??? Сделаю кнопки + и -


Hey_Hey

Что надо ввести на кнопки пуск и стоп??
Да ни чего не надо. есть там уже интерфейс встроенный, где и громкость есть и нужные клавиши управления. Не уж то ни разу не видели типа этого:


Hey_Hey

Я не хочу использовать интерфейс WMP, именно для этого я и делаю свое


Hey_Hey

А если быть точнее, то интерфейс будет скрыт от глаз, а управление будет на кнопках


Hey_Hey

Интерфейс скоройте и все, управление останится от wmp.


Hey_Hey

а управление будет на кнопках
Ну не вопрос. Там есть всё что надо, выводите на кнопки, делайте свой интерфейс
WindowsMediaPlayer1.Visible = False
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = "http://www.xxx.asx"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.settings.volume = 50
WindowsMediaPlayer1.settings.mute
Из названий думаю всё ясно. Сами посмотрите какие есть опции в .Controls и .settings
для этого я и делаю свое
А вообще вы разделом ошиблись. Переправлю ка я вас в .NET!