From a thread I participated in in June 2002, I was interested by the fact that it is easy to extract some property info from a MP3 file. Basically, you can extract the title, artist, album and year info quite easily by using the following approach:
lnFile=FOPEN(GETFILE())
FSEEK(lnFile,-128,2)
lcTag=FREAD(lnFile,128)
? "Title:",STRTRAN(SUBSTR(lcTag,4,30),CHR(0))
? "Artist:",STRTRAN(SUBSTR(lcTag,34,30),CHR(0))
? "Album:",STRTRAN(SUBSTR(lcTag,64,30),CHR(0))
? "Year:",VAL(SUBSTR(lcTag,94,4))
FCLOSE(lnFile)
As mentioned by Rick Strahl, various versions of the tag format are available. Some adjustments might be necessary to fully support all versions.
from a solution provided by António Lopes with additional info posted by Rick Strahl
|