[Petermechanic]

Kod:

var   S:  String;   MP3File: TFileStream;   Buffer: array[0..128] of Char;   Tag: TMP3Tag; begin   if OpenFile.Execute then   begin     S := LowerCase(OpenFile.FileName);     if Length(S) > 0 then     begin       if Pos('mp3', S) > 0 then       begin         MP3File := TFileStream.Create(S, fmOpenRead);         MP3File.Seek(MP3File.Size - 128, soFromBeginning);         MP3File.Read(Buffer, 128);         with Tag do         begin           ID := Copy(Buffer, 1, 3);           Title := Copy(Buffer, 4, 30);           Artist := Copy(Buffer, 34, 30);         end;         if Tag.Title = '' then           Tag.Title := 'Brak tytułu';         if Tag.Artist = '' then           Tag.Artist := 'Brak wykonawcy';         if Tag.ID = 'TAG' then         begin           PlayList.AddToPlayList(S, Tag.Artist + ' - ' + Tag.Title);           ListBox.Items.Add(Tag.Artist + ' - ' + Tag.Title);         end else         begin           PlayList.AddToPlayList(S, ExtractFileName(S));           ListBox.Items.Add(ExtractFileName(S));         end;         MP3File.Free;       end else       begin         PlayList.AddToPlayList(S, ExtractFileName(S));         ListBox.Items.Add(ExtractFileName(S));       end;     end;   end;

Jednak czyta on tylko pliki zakodowane w formacie ID3v1. Znacie jakiś inny sposób nna wyciągnięcie tagów?
/Ten PlayList to komponent, nie ma z nim problemów./

[Maciek]

Nie wiem czy tu szukałeś:
http://download.4programm..._Tag_Editor.zip
http://www.audioxl.com/id3v2lib.html
ewentualnie http://www.audioxl.com/oldtagger.html

[Petermechanic]

Maciek, jesteś dobrym kumplem. Dzięki Hurra, udało się