Extraer informacion de un fichero mp3

[miguel_e]

Hola, me gustaria que si alguien sabe como podira extraer la informacion de un fichero, principalmente mp3, algun ejemplo o idea de como hacer esto vendria muy bien. muchas gracias por su tiempo.

El archivo de musica debe tener dentro esta informacion.
- Nombre de la cancion
- Nombre del Album
- Nombre del Artista
- Año
- Genero
- Portada del Disco

y toda esta informacion quiero obtenerla desde una app hecha por mi en delphi

salu2
miguel_e

[maeyanes]

Hola...

Puedes buscar en Torry (ww.torry.net) por algún componente para obtener la información de archivos mp3...


Saludos...

[miguel_e]

si, hay un ejemplo, vere si puedo obtener todo lo que necesito. muchas gracias

salu2
miguel_e

[miguel_e]

Poniendo el ejemplo que descarge de torry.net:


procedure Lese_ID3Tag(Filename:string);
var Buffer:array[1..128] of char;
F:File;
begin
AssignFile(F, Filename);
Reset(F,1);
Seek(F,FileSize(F)-128);
BlockRead(F, Buffer, SizeOf(Buffer));
CloseFile(F);
with ID3Tag 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;
end;


todo eso funciona bien, pero como haria para obtener el cover del disco????, he estado buscando en que posicion se encuantra esa info pero no la encuentro, alguna idea???

salu2
miguel_e