[Virus]

Мне нужен плей лист
Люди, спасите:Кнопка трек назад, регулятор громкости, Прогресс бар, Выбор папки и плей лист. Пожалуйста, очень прошу. Я просто поспорил с преподом, что напишу плеер за неделю со всеми необходимыми функциями.
и он мне поставит 5 пятёрок подряд

[Vayrus]

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

[Virus]

Все плееры с ошибками, подумайте кто кинет хороший исходник в Интернет???
Тогда скажи ресурс

[mak-karpov]

Вобщем, задолбали.
Вот исходник

[Rat]

Virus думаю лучше сначала написать плейер, а потом спорить с преподом...

[Virus]

Спасибо, последний вопрос А как сделать плей лист?

[Virus]

Ну хотябы скажите что нужно сделать когда еще файл не выбран а на кнопку play нажали, ведь ошибка выскакивает!Может както игнорировать нажатие до выбора файла

[lmikle]

Если плей лист на основе TListBox, то проверяешь, что ListBox1.ItemIndex > -1
Если на основе TListView, то проверяешь, что ListView1.Selected <> Nil;

а вообще, если файл не выбран, то лучше вообще блокировать кнопку.

[Blackster]

недавно сам писал мр3 плеер но кнопка back (mediaplayer1.previous) не работала, вот такой код надо писать если есть листбокс.

Код:

1 2 3 4 5 6 7 8

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;

[Blackster]

чтоб прогрес показвал

Код:

1 2 3 4 5 6 7 8 9 10 11

begin    progressbar1.max:=MediaPlayer1.Length;    progressbar1.Position:=MediaPlayer1.position; //изменить счетчик времени  if sec < 59   then Inc(sec)  else   begin    sec := 0;    Inc(min);   end;

[mak-karpov]

Вобщем на плей- ошибка ( No MCI device open )
Просто сначала Enabled = false;
А при открытии - true

P.S
Сначала не продумал

[2Pac A.S.]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
TrackBar1.Max:=MediaPlayer1.TrackLength[0];
TrackBar1.Position:=MediaPlayer1.Position;
end;

Не забуть таймер поставить.
У таймері інтервал 100.

[2Pac A.S.]

І кстаті ошибка виводится бо нада відкрити пісню.MediaPlayer1.FileName:='...'{Вкажи розміщення та ім`я файлу}

[Virus]

Я уже весь плеер переделал. с библиотекой BASS.dii(без Tmediaplayer)
Вопрос:когда все песни проиграны(конец listBox, а проигрывать уже нечего)
Возникает бесконечное число критических ошибок, что делать

[2Pac A.S.]

Так зделай код штоб сразу перескакивало на начало listbox