Ошибка при чтении mp3 тегов

[Anfall]

Доброго времени суток всем. Использую код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  type  
  TID3Tag = record
    ID: string[3];  
    Titel: string[30];
    Artist: string[30];  
    Album: string[30];
    Year: string[4];  
    Comment: string[30];
    Genre: Byte;
  end;

implementation

{$R *.dfm}
function readID3Tag(FileName: string): TID3Tag;
var
  FS: TFileStream;
  Buffer: array [1..128] of Char;
begin
  FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    FS.Seek(-128, soFromEnd);
    FS.Read(Buffer, 128);
    with Result do
    begin
      ID := Copy(Buffer, 1, 3);
      Titel := Copy(Buffer, 4, 30);
      Artist := Copy(Buffer, 34, 30);
      Album := Copy(Buffer, 64, 30);
      Year := Copy(Buffer, 94, 4);
      Comment := Copy(Buffer, 98, 30);
      Genre := Ord(Buffer[128]);
    end;
  finally
    FS.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
    with readID3Tag('С:\test.mp3') do
      s:=Artist;                                                     
        with readID3Tag('С:\test.mp3') do      
      s:=s+titel;                                    
      Listbox1.Items.Add(pltsitem);
end;
end.

Но почему-то добавляет только Artist в листбокс. А если поставить сначала чтение Titel - то добавляет только titel. Т е одно из двух. Пробовал по-разному:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
    with readID3Tag('С:\test.mp3') do
    Lixtbox1.Items.Add(Artist+titel);
end;

Все равно одинково добавляет только Artist. Или titel, если ввести
Lixtbox1.Items.Add(titel+artist);

В чем проблема? Заранее благодарен!

[Terran]

procedure TForm1.Button1Click(Sender: TObject);
begin
with readID3Tag('E:\Музыка\Musik1.Mp3') do
Listbox1.Items.Add(Artist);
with readID3Tag('E:\Музыка\Musik1.Mp3') do
Listbox1.Items.Add(Titel);
end;

[Anfall]

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

procedure TForm1.Button1Click(Sender: TObject);
begin
with readID3Tag('E:\Музыка\Musik1.Mp3') do
Listbox1.Items.Add(Artist);
with readID3Tag('E:\Музыка\Musik1.Mp3') do
Listbox1.Items.Add(Titel);
end;

Ну это-то понятно. Но надо чтобы в одной строке было: Исполнитель+Заголовок.

[Terran]

procedure TForm1.Button1Click(Sender: TObject);
var
s:TID3Tag;
begin
S:=readID3Tag('E:\Музыка\Борьба с пустотой.mp3');
Listbox1.Items.Add(S.Artist);
Listbox1.Items.Strings[Listbox1.Items.Count-1]:=
Listbox1.Items.Strings[Listbox1.Items.Count-1]+ '  '+ S.Titel;
end;

[Anfall]

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

procedure TForm1.Button1Click(Sender: TObject);
var
s:TID3Tag;
begin
S:=readID3Tag('E:\Музыка\Борьба с пустотой.mp3');
Listbox1.Items.Add(S.Artist);
Listbox1.Items.Strings[Listbox1.Items.Count-1]:=
Listbox1.Items.Strings[Listbox1.Items.Count-1]+ '  '+ S.Titel;
end;

Спасибо. Можно и так. А почему не работает просто Artist+titel?

[Terran]

Спасибо. Можно и так. А почему не работает просто Artist+titel?

Не за что. Не работает из-за функции readID3Tag. Там какое-то стрёмное вытаскивание данных Я в ней не копался.

[Anfall]

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

Не за что. Не работает из-за функции readID3Tag. Там какое-то стрёмное вытаскивание данных Я в ней не копался.

Вот бы эту функцию подправить(

[Terran]

Вот бы эту функцию подправить(

В функции проблема в вытаскивании данных. Чтобы она хорошо работала, нужно чтобы данные доставались точно до последнего не пустого символа.
Этот код нужно изменить или придумать другое решение. И тогда всё будет хорошо работать.

ID := Copy(Buffer, 1, 3);
Titel := Copy(Buffer, 4, 30);
Artist := Copy(Buffer, 34, 30);
Album := Copy(Buffer, 64, 30);
Year := Copy(Buffer, 94, 4);
Comment := Copy(Buffer, 98, 30);
Genre := Ord(Buffer[128]);

[Anfall]

Terran, спасибо.
Вообще код левый какой-то. Теги не всегда корректно читает(
Может кто посоветует нормальную функцию/компонент?

[mutabor]

Где-то я уже этот "тител" (Titel: string[30]) видел
Тоже когда-то это был мой первый код чтения тегов, к-рый я разбирал.
Anfall, теги первой версии читать легко, в сети много примеров, у меня где-то есть (приложил к сообщению), но я так и не завершил его, кажется с расширенным наборов жанров не довел до конца, там неоднозначности были, т.к. все по своему трактуют, а в остальном читает как положено теги версий 1.0 и 1.1.
Для второй версии тегов, посмотри в Jedi пакете, мне говорили недавно что там есть компонент для тегов v2.x. Чем хорош Jedi компонент, он открытый и в исходниках, никаких dll и т.п.