Das Lesen der Tags hast Du doch schon wunderschön über TFileStream gelöst. Wie die Tags bei anderen Audioformaten aussehen, kann ich Dir nicht sagen, aber für MP3 solltest Du den Code quasi übernehmen können. Einfach in die Read Methode des TMP3File kopieren, und die Properties deiner Klasse füllen:
Delphi-Quellcode:
procedure TMP3Fil.Read ;
begin
with TFileStream.Create(MusicFileName, fmOpenRead or fmShareDenyNone) do
try
Position := Size - 128;
Read(ID, 3);
Read(Titel, 30);
Read(Artist, 30);
Read(Album, 30);
Read(Year, 4);
Read(Comment, 30);
Read(Genre, 1);
finally
Free;
end;
end ;
So in etwa... Musst natürlich deine Basisklasse noch um die anderen Eigenschaften erweitern, bislang steht ja nur Title drin.