MP3 ID3 Bilgilerini Okumak

[Ersun]

Sanatçı Adı, Albüm Adı, Yayınlanma Yılı gibi bilgileri okumak.

formunuza bir buton bir opendialog ekleyin.
aşağıdaki tip tanımını yapın.

type
TID3Tag = packed record
TAGID: array[0..2] of char;
Title: array[0..29] of char;
Artist: array[0..29] of char;
Album: array[0..29] of char;
Comment: array[0..29] of char;
Genre: byte;
end;

buttonun onclick yordamına kodları yazın.

procedure TForm1.Button1Click(Sender: TObject);
var
id3tag: Tid3tag;
mp3file: Tfilestream;
fname:string;
begin
if opendialog1.Execute then
fname:=opendialog1.FileName;
mp3file:=Tfilestream.create(fname,fmOpenRead);
try
mp3file.position:=mp3file.size-128;
mp3file.Read(id3tag,SizeOf(id3tag));
showmessage(' Başlık: '+id3tag.title+#13+
' Sanatçı: '+id3tag.artist+#13+
' Albüm: '+id3tag.album+#13+
' Yıl: '+id3tag.year+#13+
' Açıklama: '+id3tag.comment+#13+
' Genre-ID: '+inttostr(id3tag.genre)
);
finally
mp3file.free;
end;
end;