[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) не работала, вот такой код надо писать если есть листбокс.

Код:

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]

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

Код:

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