Скачать: CL | DM;

чтение mp3 тегов   Найти похожие ветки 

← →
skvitek   (2007-08-31 18:50) [0]

Здавствуйте! Вот есть у меня такая(см ниже) функция поиска и занесения в дерево mp3 файлов. Подскажите, как вместо этого устроить чтение тегов, и уже по их данным заносить файлы в дерево(Delphi2007, WinXP, JVCL):
(Артист1
  трек1
  трек2
  ...
Артист2
 трек1
 ...
...
)

Вот прост
function TForm1.FillTreeMp3(ADir: string; const ATreeDir: string;
 ANode: TTreeNode): Integer;
var
 fs: TSearchRec;
 CurNode: TTreeNode;
begin
Led.ColorOn:=clLime;
 Result := 0;
 ADir := IncludeTrailingPathDelimiter(ADir);
 CurNode := TreeView1.Items.AddChild(ANode, ATreeDir);
 Result := 0;
 if FindFirst(IncludeTrailingPathDelimiter(ADir) + "*.mp3", faAnyFile - faDirectory - faVolumeID, fs) = 0 then
   repeat
     TreeView1.Items.AddChild(CurNode, fs.Name);
     Inc(Result);
   until FindNext(fs) <> 0;
 if FindFirst(ADir + "*.*", faDirectory, fs) = 0 then
   repeat
     if (fs.Name = ".") or (fs.Name = "..") then continue;
     if (fs.Attr and faDirectory) <> 0 then
       Result := Result + FillTreeMp3(ADir + fs.Name, fs.Name, CurNode);
   until FindNext(fs) <> 0;
 if Result = 0 then CurNode.Delete;
 FindClose(fs);
Led.ColorOn:=clSilver;
end;

---

← →
antonn ©   (2007-08-31 21:31) [1]

найти все файлы, у каждого прочитать тег. Находить уже научились, читать можно с помощью модулей audio tools library, скачать можно на http://www.torry.net/ или тут http://desksoft.ru/index.php?downloads=files&id=8 (150кб)

---

← →
skvitek   (2007-08-31 22:06) [2]

Вот именно это "у каждого прочитать тег" у меня и не получается.

---

← →
antonn ©   (2007-08-31 22:12) [3]

из-за чего?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c