|
#16
|
|||
|
|||
Мне нужен плей лист
Люди, спасите:Кнопка трек назад, регулятор громкости, Прогресс бар, Выбор папки и плей лист. Пожалуйста, очень прошу. Я просто поспорил с преподом, что напишу плеер за неделю со всеми необходимыми функциями. и он мне поставит 5 пятёрок подряд |
#17
|
||||
|
||||
в интернете куча готовых плееров с исходниками, даже здесь на сайте есть
|
#18
|
|||
|
|||
Все плееры с ошибками, подумайте кто кинет хороший исходник в Интернет???
Тогда скажи ресурс |
#19
|
||||
|
||||
Вобщем, задолбали.
Вот исходник Кнопка "+" - весы в правом верхнем углу сообщения... |
#20
|
|||
|
|||
Virus думаю лучше сначала написать плейер, а потом спорить с преподом...
|
#21
|
|||
|
|||
Спасибо, последний вопрос А как сделать плей лист?
|
#22
|
|||
|
|||
Ну хотябы скажите что нужно сделать когда еще файл не выбран а на кнопку play нажали, ведь ошибка выскакивает!Может както игнорировать нажатие до выбора файла
|
#23
|
|||
|
|||
Если плей лист на основе TListBox, то проверяешь, что ListBox1.ItemIndex > -1
Если на основе TListView, то проверяешь, что ListView1.Selected <> Nil; а вообще, если файл не выбран, то лучше вообще блокировать кнопку. |
#24
|
||||
|
||||
недавно сам писал мр3 плеер но кнопка back (mediaplayer1.previous) не работала, вот такой код надо писать если есть листбокс.
Код:
procedure TForm1.BitBtn1Click(Sender: TObject); begin if ListBox1.ItemIndex > 0 then ListBox1.ItemIndex := ListBox1.ItemIndex - 1; Label2.Caption := '0:00'; BitBtn1.Down := False; Play; end; |
#25
|
||||
|
||||
чтоб прогрес показвал
Код:
begin progressbar1.max:=MediaPlayer1.Length; progressbar1.Position:=MediaPlayer1.position; //изменить счетчик времени if sec < 59 then Inc(sec) else begin sec := 0; Inc(min); end; |
#26
|
||||
|
||||
Вобщем на плей- ошибка ( No MCI device open )
Просто сначала Enabled = false; А при открытии - true P.S Сначала не продумал Кнопка "+" - весы в правом верхнем углу сообщения... |
#27
|
|||
|
|||
procedure TForm1.Timer1Timer(Sender: TObject);
begin TrackBar1.Max:=MediaPlayer1.TrackLength[0]; TrackBar1.Position:=MediaPlayer1.Position; end; Не забуть таймер поставить. У таймері інтервал 100. |
#28
|
|||
|
|||
І кстаті ошибка виводится бо нада відкрити пісню.MediaPlayer1.FileName:='...'{Вкажи розміщення та ім`я файлу}
|
#29
|
|||
|
|||
Я уже весь плеер переделал. с библиотекой BASS.dii(без Tmediaplayer)
Вопрос:когда все песни проиграны(конец listBox, а проигрывать уже нечего) Возникает бесконечное число критических ошибок, что делать |
#30
|
|||
|
|||
Так зделай код штоб сразу перескакивало на начало listbox
|