Titel einer Mp3 -Datei auslesen?

[KuH_am_SchuH]

Hi,
angenommen ich habe einen TMediaPlayer in einer Form und spiel auf dem TMP eine mp3 datei ab.
wie kann ich dann den titel des liedes auslesen und in zb. ein label schreiben ????



Schonmal danke für eure Antworten

[Klaus01]

ich habe das mal im Web gefunden, bei mir hat es funktioniert.

Delphi-Quellcode:

  TID3Rec = packed record
    Tag     : array[0..2] of Char;
    Title,
    Artist,
    Comment,
    Album   : array[0..29] of Char;
    Year    : array[0..3] of Char;
    Genre   : Byte;
  end;

Delphi-Quellcode:

procedure FillID3TagInformation(mp3File:string;VAR ID3:TID3Rec);
var //fMP3: file of Byte;
    fmp3: TFileStream;
begin
  fmp3:=TFileStream.Create(mp3File, fmOpenRead);
  try
    fmp3.position:=fmp3.size-128;
    fmp3.Read(ID3,SizeOf(ID3));
  finally
    fmp3.free;
  end;
END;

Grüße
Klaus

[Der_Unwissende]

Hi,
auch wenn ich dir nicht auf deine eigentliche Frage antworten kann, die von Klaus01 gepostete Methode dürfte nur mit ID3v1.1 funktionieren. Lässt du das Genre Flag weg, natürlich auch mit ID3v1 (wenn ich mich nicht irre), aber wenn deine Datei < ID3v2 als ID3 Tags benutzt, können die Info's an beliebiger Stelle im File abgelegt werden, es gibt keine feste Größen, ...

Gruß Der Unwissende

[Klaus01]

id3v3 gibt es hier -> http://www.audioxl.com/id3v2lib.html

Grüße
Klaus