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

[BredoZavR]

1. Насчёт вытаскивания имени исполнителя и названия песни и тд. воспользуйтесь библиотекой tags.dll с сайта un4seen.com

Cпасибо, очень помогло! а на листвью некогда переделывать =(

[BredoZavR]

А вот советы Vladya... Были б очень полезны если б не использовался _bass.dll_

[Vladya]

Сообщение от BredoZavR

А вот советы Vladya... Были б очень полезны если б не использовался _bass.dll_

Вам виднее я всего лишь пытался помочь.

[BredoZavR]

Блин.. по bass.dll так мало информации =(

[inndim]

Сообщение от BredoZavR

Блин.. по bass.dll так мало информации =(

Что значит мало, а примеры которые идут в комплекте с bass.dll чем плохи, в них есть практически всё, и help ещё никто не отменял. В чём проблемы конкретнее можно?

[uberchel]

Вот по третьему пункту: Загрузка в ListBox аудио файлов.

procedure LoadMediaFile(mDir: TLabel; OpenFile: TOpenDialog; List: TListBox);
var
  nam, Dir: string;
  k, k1, k2, i: integer;
begin
  if OpenFile.Execute then
  GetDir(0, dir); k:= length(dir);
  for i:=0 to OpenFile.Files.Count-1 do
begin
  k1:= length(OpenFile.Files.Strings[i]);
  nam:= Copy(OpenFile.Files.Strings[i], k+2, k1-k);
  k2:= length(nam); List.Items.Add(nam);
  mDir.Caption:= Dir + '\';
end;
end;

Label1 - Путь к папке с файломи, OpenDialog1 - понятно что, ListBox1 - Загрузка в лисбокс

[BredoZavR]

Сообщение от inndim

Что значит мало, а примеры которые идут в комплекте с bass.dll чем плохи, в них есть практически всё, и help ещё никто не отменял. В чём проблемы конкретнее можно?

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

[BredoZavR]

Сообщение от uberchel

Вот по третьему пункту: Загрузка в ListBox аудио файлов.

procedure LoadMediaFile(mDir: TLabel; OpenFile: TOpenDialog; List: TListBox);
var
  nam, Dir: string;
  k, k1, k2, i: integer;
begin
  if OpenFile.Execute then
  GetDir(0, dir); k:= length(dir);
  for i:=0 to OpenFile.Files.Count-1 do
begin
  k1:= length(OpenFile.Files.Strings[i]);
  nam:= Copy(OpenFile.Files.Strings[i], k+2, k1-k);
  k2:= length(nam); List.Items.Add(nam);
  mDir.Caption:= Dir + '\';
end;
end;

Label1 - Путь к папке с файломи, OpenDialog1 - понятно что, ListBox1 - Загрузка в лисбокс

Спасибо, конечно, большое, но третий пункт уже реализован =) Чуть чуть не так правда.