08-22-2005, 12:31 PM
function str&mp3 str&titulo str&artista str&album str&ano str&comen [int&gene]
;str titulo artista album ano comen
;int gene
;str mp3="c:\cancion.mp3"
;if(mp3info(mp3 titulo artista album ano comen gene))
,;out titulo
,;out artista
,;out album
,;out ano
,;out comen
,;out gene
File f.Open(mp3 "r")
f.SetPos(-128 2)
str header temp
int i
f.ReadToStr(header 3)
if(header="TAG")
,f.ReadToStr(titulo 30)
,f.ReadToStr(artista 30)
,f.ReadToStr(album 30)
,f.ReadToStr(ano 4)
,f.ReadToStr(comen 30)
,f.ReadToStr(temp 1)
,if(&gene) gene=temp[0]
,i=1
f.Close
ret i