Foros Club Delphi - Extraer informacion de un fichero mp3

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Extraer informacion de un fichero mp3 (https://www.clubdelphi.com/foros/showthread.php?t=48440)

Extraer informacion de un fichero mp3

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

Hola...

Puedes buscar en Torry por algún componente para obtener la información de archivos mp3...

Saludos...

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

salu2
miguel_e

Poniendo el ejemplo que descarge de torry.net:

Código:

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