#N88BASIC

Dim id3genre[256] = [ _
  "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", "Psychedelic", "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", _
  "A Cappella", "Euro-House", "Dance Hall", "Goa", "Drum & Bass", "Club-House", "Hardcore", "Terror", "Indie", "BritPop", _
  "Negerpunk", "Polsk Punk", "Beat", "Christian Gangsta Rap", "Heavy Metal",   "Black Metal", "Crossover", _
  "Contemporary Christian", "Christian Rock", "Merengue", "Salsa", "Thrash Metal", "Anime", "JPop", "Synthpop" _
  ] As BytePtr

Type ID3v1
  id[2] As Byte
  title[29] As Byte
  artist[29] As Byte
  album[29] As Byte
  year[3] As Byte
  comment[28] As Byte
  track As Byte
  genre As Byte
End Type

Sub Puts(str As BytePtr)
  Print MakeStr(str)
End Sub

Function GetID3(mp3file As BytePtr, id3 As *ID3v1) As Long
  Dim hFile As HANDLE
  Dim err As Long
  Dim read As Long
  debug
  hFile = CreateFile(mp3file, GENERIC_READ, 0, ByVal NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
  If hFile = INVALID_HANDLE_VALUE Then Exit Function
  err = SetFilePointer(hFile, -SizeOf(ID3V1), NULL, FILE_END)
  err = ReadFile(hFile, id3, SizeOf(ID3V1), VarPtr(read), ByVal NULL)
  CloseHandle(hFile)
  If err = FALSE Then Exit Function
  GetID3 = TRUE
End Function

Sub ShowID3(mp3file As BytePtr, id3 As *ID3v1)
  Dim b[3] As Byte
  Puts(mp3file)
  Puts(id3->title)
  Puts(id3->artist)
  Puts(id3->album)
  Puts(id3->year)
  Puts(id3->comment)
  b[0] = id3->track +Asc("0")
  Puts(b)
  Puts(id3genre[id3->genre])
End Sub

Dim id3 As ID3v1
GetID3("test.mp3", VarPtr(id3))
ShowID3("test.mp3", VarPtr(id3))

タグ:

+ タグ編集
  • タグ:

このサイトはreCAPTCHAによって保護されており、Googleの プライバシーポリシー利用規約 が適用されます。

最終更新:2010年01月06日 01:50