Плейлист в Delphi

[SoftKoc]

Если я правильно понял вопрос!

var
  Form1: TForm1;
  SL: TStringList;
//--------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
Var
  I: Integer;
begin
 OpenDialog1.Title:='Выбор файлов';
 OpenDialog1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
If OpenDialog1.Execute Then
 Begin
  For I:=0 to OpenDialog1.Files.Count - 1 do
   Begin
    SL.Add(OpenDialog1.Files[I]);
    ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files[I]));
   End;
 End;
end;
//------------------------------------------------------------------
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
 MediaPlayer1.FileName:=SL.Strings[ListBox1.ItemIndex];
  MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
//------------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
SL:=TStringList.Create;
end;
//------------------------------------------------------------------
procedure TForm1.FormDestroy(Sender: TObject);
begin
SL.Free;
end;

Пользуйтесь!

PL.rar

[iggor]

TWindowsMediaPlayer это не TMediaPlayer как уже говорил uberchel!!!!
uberche и SoftKoc спасибо большое, с вашей помощью разобрался
Только вот еще вопрос возник, как чтоб воспроизводилась следующая песня в плейлисте??

[iggor]

Может кто подскажет в чем дело, когда песня заканчивается воспроизведение останавливается, а по нажатию на плей играет след. в списке, а а как сделать чтоб играла след. автоматически??

procedure TForm1.WindowsMediaPlayer1PlayStateChange(ASender: TObject;
  NewState: Integer);
begin
  if (WindowsMediaPlayer1.playState = wmppsMediaEnded) then begin
SL.Strings[form2.ListBox1.ItemIndex]:= SL.Strings[form2.ListBox1.ItemIndex+1];
WindowsMediaPlayer1.URL:=SL.Strings[form2.ListBox1.ItemIndex];
WindowsMediaPlayer1.controls.play;

  end;
end;

[MalCer]

Добавил не много к предыдущему примеру(см. вложение). Если коротко, то тебе нужно было обрабатывать то событие в таймере и искать конец

[iggor]

Спасибо, попробовал для своего WindowsMediaPlayer1 ошибку выкидывает...

procedure TForm2.Timer1Timer(Sender: TObject);
 begin
if Form1.WindowsMediaPlayer1.URL <> '' then begin
if Form1.WindowsMediaPlayer1.controls.currentPosition = Form1.WindowsMediaPlayer1.ControlCount then
if SL.Strings[ListBox1.ItemIndex] < SL.Strings[ListBox1.Count]
  then begin
SL.Strings[ListBox1.ItemIndex] := SL.Strings[ListBox1.ItemIndex+1];
Form1.WindowsMediaPlayer1.URL:=SL.Strings[ListBox1.ItemIndex];
end;
end;
end;

может ошибка в свойстве:??

Form1.WindowsMediaPlayer1.ControlCount

[Пепел Феникса]

а может потому что

Form1.WindowsMediaPlayer1.ControlCount-1

не забываем всетаки о том что такое дин массив.

и вообще интерестно, а зачем вам это св-во??(или оно в плеере имеет свое значение?)

[iggor]

У стандартного компонента есть свойство mediaplayer1.Length (длинна трека), в инете мало что про TWindowsMediaPlayer есть! Как я понял что Form1.WindowsMediaPlayer1.ControlCo unt-1, это длинна трека, (я наверно не так понял), кстати с "-1" ошибки нет, но и перехода на след. песню тоже нет!

[Пепел Феникса]

Как я понял что Form1.WindowsMediaPlayer1.ControlCo unt-1, это длинна трека

почитайте в справке TControl.ControlCount
и подумайте.
кстати само название св-ва на мысли не наводит?