Плейлист с помощью listbox

[BredoZavR]

Возникло несколько вопросов при создании плейлиста проигрывателя, подскажите решение, если не затруднит
1. Как сделать, чтобы при окончании воспроизведения одного файла, начинал проигрываться следующий
2. Как сделать dragdrop на листбокс
3. Как реализовать отображение файлов не полным путем к этому файлу, а, к примеру, Исполнитель - Название композиции.

Пожалуйста, не надо отсылать меня на поиск по форуму - искала.
PS Используется bass.dll

[Дима я]

3)S:=GetFileName(Путь к файлу);
На сколько я знаю так

[BredoZavR]

Это имя файла, а надо отображение Исполнителя и Названия..

[856100]

1) Здесь нет однозначного ответа. надо все прописывать ручками.
2)насколько я знаю реализуется как с обычным списком (некогда не использовал)
3)Надо заводить базу на всех исполнителей (или как-то читать из файла)
намного проще как сказал Дима я указать название файла а путь для воспроизведения хранить еще гдени будь (например TStringList) а потом их синхронизировать.

ListBox1.Items.Add(ExtractFileName('Полный путь к вашему файлу'));

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

2)поиск есть, на форуме много примеров есть.
3)вам тогда нужно читать тэги из файлов(помоему у них же на сайтте есть библиотеки для этого)

[BredoZavR]

Да нет на форуме про листбокс! НЕТ! есть одна тема где тоже отсылают в поиск

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

http://programmersforum.ru/showpost....2&postcount=12
http://programmersforum.ru/showpost....38&postcount=9
переделайте под себя

[Vladya]

Вот держи, может быть это тебе поможет, во всяком случае я так делал:

//Обработка перетаскивания пунктов листбокса
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
APoint: TPoint;
Index, Sindex, i: integer; //index - куда бросаем, sindex - откуда тянем
Sstring, pstring: string; //строка источник и строка с путем
begin
if (Sender is TListBox) and (Source is TListBox) then
  begin
  APoint.X := X;
  APoint.Y := Y;
  with Sender as TListBox do
    begin
    Index := ItemAtPos(APoint, True);
    sindex:= ItemIndex;
    end;
  if (Index <> -1)and(sindex <> -1) then
    with Sender as TListBox do
    begin
    sstring:=Items.Strings[sindex];
    Items.Delete(sindex);
    Items.Insert(index,sstring);
    ItemIndex:=index;
    Selected[index]:=true;
    //паралельно с листбоксом изменяем масив с путями
    pstring:=pathlist[sindex];
    if index < sindex then
     for i:=sindex downto index+1 do
       pathlist[i]:=pathlist[i-1];
    if index > sindex then
     for i:=sindex to index-1 do
       pathlist[i]:=pathlist[i+1];
    pathlist[index]:=pstring;
    end;
  end;
end;

Насчет следующей песни, пиши в таймере вот такое:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if mpcanplay in MediaPlayer1.Capabilities then
  Begin
   ProgressBar1.Position:=trunc(MediaPlayer1.Position/ratio);
   Label2.Caption:=MusicToStr(MediaPlayer1.Position);
     if mediaplayer1.Position = mediaplayer1.Length then NextTrack;
end;
End;

Можно написать только одну строчку, последнюю, остальное это мое.

Ну и если интересно то вот моя процедура NextTrack:

procedure TForm1.NextTrack;
begin
if ListBox1.Items.Count > 0 then
  begin
  if N5.Checked then  //повторять одну
    begin
    AutoChoise;
    end;
  if N6.Checked then  //повторять все
    begin
    if ListBox1.Items.IndexOf(PlayItem) = ListBox1.Items.Count-1 then
    PlayItem:=ListBox1.Items[0] else
    PlayItem:=ListBox1.Items[ListBox1.Items.IndexOf(PlayItem)+1];
    AutoChoise;
    end;
  if N7.Checked then  //в случайном порядке
    begin
    Randomize;
    PlayItem:=ListBox1.Items[Random(ListBox1.Items.Count)];
    AutoChoise;
    end;
  if N8.Checked then  //отключить повтор
    begin
    end;
  end;
end;

Да и насчет этого:

Да нет на форуме про листбокс! НЕТ! есть одна тема где тоже отсылают в поиск

есть там все, нужно было лучше искать, я ж нашел или вы думаете я это все сам писал? Увы и жаль но нет, я лиш исправлял, добавлял, переделывал под себя
А вот здесь и обсуждается эта тема - Ease Player

[SERG1980]

Если это всё самому лень писать то в наборе компонентов JEDI есть компонент PlayList. он позволяет выполнить пункт 3 и не только (random, нумерация ....)

[inndim]

1. Насчёт вытаскивания имени исполнителя и названия песни и тд. воспользуйтесь библиотекой tags.dll с сайта un4seen.com
2. Мой вам совет забудьте про ListBox, а используйте лучше ListView он гораздо функциональней, в нём можно в одном столбце показывать название песни напрмиер взятое из тега, а в другом столбце хранить путь к этому файлу естественно не показывая пользователю.

p.s.
Я когда-то тоже пытался использовать ListBox, но потом сильно пожалел, и пришлось много что переделывать.