Catalogar Cds De Mp3.

[sampras]

Hola amigos programadores, vereis he visto por la red miles de aplicaciones catalogadoras de cds, pero no reunen las condiciones que busco. El caso es que me gustaria saber como leer un cd de MP3 y meter esos datos una BD.

Como lo tengo pensado es de la siguiente manera, que se guarde una especie de relacion cabecera-lineas y a su vez estas lineas mas lineas ..... me explico:
VOL1>CARPETA1,CARPETA2,...>CARPETA1>FICH1,FICH2......
>CAPRETA2>FICH1,FICH2,....
>...
Supongo que existera algun componente, codigo fuente o libreria por ahy pero esque no lo encuentro, si podeis ayudarme :(

Gracias de antemano porque sin vosotros nada seria posible, para los no tan expertos.

[__cadetill]

Esta respuesta la saque del Club hace tiempo. El autor de la misma es Quicky


Para leer esto te valdría :

Código:

TID3Tag = packed record // 128 bytes
TAGID: array[0..2] of char; // 3 bytes: TAG
Titulo: array[0..29] of char; // 30 bytes: Titulo de la canción
Artista: array[0..29] of char; // 30 bytes: Artista
Album: array[0..29] of char; // 30 bytes: Album
Anno: array[0..3] of char; // 4 bytes: Año de publicacion
Comentarios: array[0..29] of char; // 30 bytes: Comentarios
Genero: byte; // 1 byte: ID del Genero
end;


procedure TForm1.foButton1Click(Sender: TObject);
const
_mp3file='C:\Songs\Scorpions\Wind of change.mp3'; //this is only an example for filename
var
id3tag : TID3tag;
mp3file : Tfilestream;
begin
mp3file := TFileStream.Create(_mp3file,fmOpenRead);
try
mp3file.position := mp3file.size - 128;
mp3file.Read(id3tag,SizeOf(id3tag));
showmessage('Titulo: ' + id3tag.Titulo + #13 +
' Artista: ' + id3tag.Artista + #13 +
' Album: ' + id3tag.Album + #13 +
' Año: ' + id3tag.Anno + #13 +
' Comentarios: ' + id3tag.Comentarios + #13 +
' Genero: ' + IntToStr(id3tag.Genero)
);
finally
mp3file.Free;
end;
end;



por lo tanto para escribir, con cambiar el Modo de apertura del Archivo de fmOpenRead a fmOpenWrite, te deberia valer.

No tendrias mas que hacer un FillChar de la variable Tipo TID3Tag, y luego mediante unos edits o lo que mejot te vieniera pasrle los valores.

Estos son los generos que el WinAmp entiende (creo que empezarian desde cero...) :



Blues,
Classic Rock,
Country,
Dance,
Disco,
Funk,
Grunge,
Hip-Hop,
Jazz,
Metal,
New Age,
Oldies,
Other,
Pop,
R&B,
Rap,
Reggae,
Rock,
Techno,
Industrial,
Alternative,
Ska,
Death Metal,
Pranks,
Soundtrack,
Euro-Techno,
Ambient,
Trip-Hop,
Vocal,
Jazz+Funk,
Fusion,
Trance,
Classical,
Instrumental,
Acid,
House,
Game,
Sound Clip,
Gospel,
Noise,
AlternRock,
Bass,
Soul,
Punk,
Space,
Meditative,
Instrumental Pop,
Instrumental Rock,
Ethnic,
Gothic,
Darkwave,
Techno-Industrial,
Electronic,
Pop-Folk,
Eurodance,
Dream,
Southern Rock,
Comedy,
Cult,
Gangsta,
Top 40,
Christian Rap,
Pop/Funk,
Jungle,
Native American,
Cabaret,
New Wave,
Psychadelic,
Rave,
Showtunes,
Trailer,
Lo-Fi,
Tribal,
Acid Punk,
Acid Jazz,
Polka,
Retro,
Musical,
Rock & Roll,
Hard Rock,
Folk,
Folk-Rock,
National Folk,
Swing,
Fast Fusion,
Bebob,
Latin,
Revival,
Celtic,
Bluegrass,
Avantgarde,
Gothic Rock,
Progressive Rock,
Psychedelic Rock,
Symphonic Rock,
Slow Rock,
Big Band,
Chorus,
Easy Listening,
Acoustic,
Humour,
Speech,
Chanson,
Opera,
Chamber Music,
Sonata,
Symphony,
Booty Bass,
Primus,
Porn Groove,
Satire,
Slow Jam,
Club,
Tango,
Samba,
Folklore,
Ballad,
Power Ballad,
Rhythmic Soul,
Freestyle,
Duet,
Punk Rock,
Drum Solo,
Acapella,
Euro-House,
Dance Hall.


Para el tema de la lectura de todo el CD de MP3, puedes mirarte un truco que tengo en mi web para recorrerte todos los archivos de un directorio (con FindFirst, FindNext)

Espero te sirva