Плейлист в Delphi

[iggor]

Пробую связать TWindowsMediaPlayer с listbox'ом...что то не выходит В плейлист добавляется только путь к одной песне

procedure TForm1.N2Click(Sender: TObject);
var
  i : Integer;
begin
OpenDialog1.Title := 'Выбор файла';
    if not OpenDialog1.Execute
      then exit;
       WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
       Listbox1.items.Strings[listbox1.ItemIndex]:=OpenDialog1.Files[i];
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
WindowsMediaPlayer1.URL:=listbox1.items.Strings[listbox1.itemindex]//добавляем строки
end;
end.

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

В плейлист добавляется только путь к одной песне

Listbox1.items.Strings[listbox1.ItemIndex]:=OpenDialog1.Files[i];

у вас это и написано.

надо

var
  i : Integer;
begin
OpenDialog1.Title := 'Выбор файла';
if OpenDialog1.Execute then begin
                                        WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
                                        for i:=0 to OpenDialog1.Files.Count-1 do Listbox1.items.Strings[listbox1.ItemIndex]:=OpenDialog1.Files[i];
end;

[iggor]

Спасибо!!! У меня вот еще вопрос: а можно путь убрать чтоб в ListBox отображалось название песни???

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

тогда вам нужно где то отдельно сохранять полные пути к песням.
а так ExtractFileName(строка допустим)

[iggor]

А можно чуть чуть по подробнее, это надо массив или можно переменную??

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

или массив или TStringList
а можно и ListView использовать

[Wicort]

Я примерно то же самое делал когда-то. В TStringList хранишь список файлов вместе с путями, а в плей-лист выводишь только имя файла. Далее при смене песни получаешь индекс в списке и по нему находишь путь к самому файлу в TStringList, т.к. индексы там будут одинаковые.

[iggor]

если через TStringList это примерно так будет выглядеть??

procedure TForm2.Button1Click(Sender: TObject);
var
  i : Integer; Str: TStringList;
begin
//В ListBox1 название песни
Form1.OpenDialog1.Title := 'Выбор файла';
    if Form1.OpenDialog1.Execute
      then begin
       Form1.WindowsMediaPlayer1.URL:=Form1.OpenDialog1.FileName;
         for i:=0 to Form1.OpenDialog1.Files.Count-1 do
       ListBox1.Items.Add(ExtractFileName(Form1.OpenDialog1.Files[i]));
       begin
       //В  TStringList путь песни
       Str := TStringList.Create;
       Form1.WindowsMediaPlayer1.URL:=Form1.OpenDialog1.FileName;
       for i:=0 to Form1.OpenDialog1.Files.Count-1 do

        Str.? :=  Form1.OpenDialog1.Files[i];

  end;
end;

[SoftKoc]

WindowsMediaPlayer1 - Это у вас так TMediaPlayer подписан???

[uberchel]

Вот набросал функцию:

function CurrentMedia(List: TListBox; Open: TOpenDialog; OpenFiles: Boolean): string;
var
 i: integer;
begin
 if OpenFiles then
 begin
  for i:= 0 to Open.Files.Count -1 do begin
  S.Add(Open.Files[i]);
  List.Items.Add(ExtractFileName(Open.Files[i]));
 end; end else Result:= S[List.ItemIndex];
end;

//При открытии файла

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  CurrentMedia(ListBox1,OpenDialog1, True)else Exit;
end;

При клике по листбоксу:

WindowsMediaPlayer1.URL:= CurrentMedia(ListBox1,nil, False);

Ну и конечно S объявляем как глобальную переменную,создаем в TStringList в обработчике OnCreate;

S:= TStringList.Create;

И при закрытии вашего приложения пишем(Пишем в Close):

 S:= TStringList.Free;

SoftKoc!
нет, это не TMediaPlayer а WindowsMediaPlayer1 , находиться в Menu\components-InstallPackages.