Unit MP3Info

Title: TMP3Info component Version: 1.1 Date: 24.MAY.1998 Description: Component MP3Info extracts/saves any ID3 Tag into/from it's properties from/to MP3 file. Keywords: MP3 ID3 TAG INFO Author: Rok Krulec (Rok@fpp.edu) (http://Rok.fpp.edu) Primary site: ftp://ftp.fpp.edu/pub/people/Rok_Krulec/mp3i-v11.zip Alternate sites: http://www.delphiexchange.com ; http://sunsite.icm.edu.pl/delphi/ Delphi version: 1.0, 2.0, 3.0 Policy: Freeware Comment: If you use this component, I would like to get some feedback via e-mail. CHANGES from v1.0: - Genre and GenreID property implemented - GENRE Global variable is public, so you can use it in ListBoxes, DropDowns e.t.c. - onChangeFile, onChange, onError events added and Error property TODO: - Retrieve other MP3 info Description of Properties, Methods and Events: constructor Create(AOwner: TComponent); - Creates an instance destructor Destroy; override; - Destroys an instance method Save; - Saves ID3 Tag to file property Filename: TFilename; - Filename of MP3 file, when changed it opens a new MP3 file property Artist: String; - Artist (30 Chars) property Title: String; - Title (30 Chars) property Album: String; - Album (30 Chars) property Year: String; - Year ( 4 chars) property Comment: String; - Comment (30 Chars) property Genre: String; - Genre [Read Only] Property GenreID: Byte; - Genre ID property Valid: Boolean; - Is ID3 valid [Read Only] property Error: String; - Error Message [Read Only] property onChangeFile:TNotifyEvent; - Triggers when other file is openned property onChange:TNotifyEvent; - Triggers when one of propertis is changed (Artist, Title, Album, Year, Comment, GenreID) property onError:TNotifyEvent; - Triggers when errors ocure (Wrong filename, Frong fileformat)

Classes

TMP3Info -

Functions

Register -

Types

Constants

GENRES
MAXGENRES
TAGLEN

Variables


Functions


procedure Register;


Types


Constants

GENRES = ( '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','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' )

MAXGENRES = 114

TAGLEN = 127


Variables