Лана,ок, вот код для компонента WindowsMediaPlayer (wmp.dl/winmm.dll)
Добвили компонент WindowsMediaPlayer на форму, на закладке "свойства компонента" выбрали "Custom" => закладка общие => пункт "Источник или имя файла" - путь до вашего файла или плэйлиста , жмем ОК, зате RUN.Усе, плеер готов
Спросите где код - он не нужен, но если вы хотите управлять программно этим плеером (нажимая свои кнопочки -Command1,2 т.д.), то вот вам некоторые свойства и функции этого компонента , которые находил методом проб и ошибок, да Object Browser (F2)), если вы знаете другие какие свойства, выложите,плиз , здеся.
Один из способов проиграть файл:
Код:
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "C\MyFavorit.mp3" 'Путь до вашего Mp3 или плэйлиста
End Sub
Добавьте на форму TextBox1 и кнопку Command1 для вывода информации
Прежде чем использовать это запустите ваш плэйлист, если он не запущен, то в некоторых прцедурах будут возникать ошибки, так как файла допустим еще нет, а вы уже хотите знать его имя, и его длительность,поэтому при написании своей проги добавьте обрабоку ошибок
Выводит адрес проигрываемого файла
Код:
Private Sub Command1_Click()
Text1.Text = WindowsMediaPlayer1.currentMedia.sourceURL
End Sub
Выводит имя проигрываемого плэйлиста
Код:
Private Sub Command1_Click()
Text1.Text = WindowsMediaPlayer1.currentPlaylist.Name
End Sub
Выводит исполнителя проигрываемого файла
Код:
Private Sub Command1_Click()
Text1.Text = WindowsMediaPlayer1.currentMedia.Name
End Sub
Далее свойства идут просто списком, примеры использования вы видели выше
Код:
WindowsMediaPlayer1.currentMedia.duration 'продолжительность файла в секундах
WindowsMediaPlayer1.currentMedia.durationString 'продолжительность файла в минутах
WindowsMediaPlayer1.currentPlaylist.Count 'количество песен/дорожек в плэйлисте
WindowsMediaPlayer1.Status ' у меня показывает скорость проигрывания ))
WindowsMediaPlayer1.Controls.Next 'следующая дорожка
WindowsMediaPlayer1.Controls.previous 'предыдущая дорожка
WindowsMediaPlayer1.Controls.currentPositionString 'показывет сколько времени уже проиграл файл
WindowsMediaPlayer1.settings.volume 'показывет какая сейчас громкость
WindowsMediaPlayer1.settings.volume = WindowsMediaPlayer1.settings.volume + 10 'пример увеличения громкости на десяточку
WindowsMediaPlayer1.settings.volume = mute 'выключить громкость
WindowsMediaPlayer1.settings.volume = 0 'выключить громкость, 2ой способ ))
Если узнаете способ сделать повтор и перемешивание, как и в обычном Windows Player,пишите.
Есть еще способ проиграть файл с помощью DirectX, что вроде перекликается с API ? пока не знаю
