|
#1
|
|||
|
|||
Плеер
Доброго времени суток!
Я писал mp3 плеер, но он выдавал кучу фатальных ошибок. Короче я слышал о возможности каким-то образом сделать плеер на стандартном (win media). Его надо как-то загрузить. Подскажите пожалуйста, как это сделать !!!только очень подробно!!! А он запашет под вистой??? |
#2
|
|||
|
|||
Если не ошибаюсь, то имеется компонент TMediaPlayer .. вроде он лежит в закладке System
А под Вистой не тестил |
#3
|
|||
|
|||
Не, это не то
|
#4
|
|||
|
|||
Ну хотя бы дайте ссыль на рабочий исходник(только без глюков).Плиз!
|
#5
|
|||
|
|||
Так если тебе этот компонент не подходит..какой ты хочешь?Для работы с Винампом?Или всётаки стандартным?
|
#6
|
|||
|
|||
первым делом тебе нужна библиотека, fmod.dll или bass**.dll(Не помню цифры), учи методы библиотеки и пиши плеер. Исходники без библиотеки ты все равно не запустишь.
|
#7
|
|||
|
|||
Ладно обойдемся без этого, а Bass.dll есть!
Подскажите, как можите... |
#8
|
|||
|
|||
Что нужно написать для кнопок (код):Воспроизведение, пауза, остановка, предыдущий трек, следующий трек, фобавить файл, добавить папку.
А как изменять громкость?(тоже нужен код). И как сделать перемотку и отоброжение прогресса песни(progpessBar) (РАБОТАЮ СО СТАНДАРТНЫМ КОМПОНЕНТОМ TMEDIAPLAYER) Буду очень благодарен |
#9
|
||||
|
||||
Для кнопок:
MediaPlayer1.Play; MediaPlayer1.Stop; и т.д Текущая позиция(для отображения прогресса)-MediaPlayer1.Position(в мсек) Всего- MediaPlayer1.Length Кнопка "+" - весы в правом верхнем углу сообщения... |
#10
|
|||
|
|||
Как сделать выбор папки, кнопки след, предыд,
И полосу прогресса обьясните подробно |
#11
|
||||
|
||||
MediaPlayer1.Next;
MediaPlayer1.Prev; ------------------- MediaPlayer1.Close; MediaPlayer1.FileName:='....'; MediaPlayer1.Open; Кнопка "+" - весы в правом верхнем углу сообщения... |
#12
|
|||
|
|||
MediaPlayer1.Prev;
НЕ работает |
#13
|
||||
|
||||
А полосу прогресса-
Код:
var I : Boolean; . . . procedure TForm1.Timer1Timer(Sender : TObject); begin I := true; TrackBar1.Position := MediaPlayer1.Position; end; procedure TForm1.TrackBar1Charge(Sender : TObject); begin If not I then MediaPlayer1.Position := TrackBar1.Position; end; Кнопка "+" - весы в правом верхнем углу сообщения... |
#14
|
|||
|
|||
Опять что то не так((((((((((((((((((((((((((((((((((((((((((((( ((
|
#15
|
||||
|
||||
MediaPlayer1.Prev*** там не помню.
По подсказке в Дельфях пошарь А с полосой прогресса - я сам до сих пор вожусь Кнопка "+" - весы в правом верхнем углу сообщения... |