; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=1350&highlight=
; Author: NicTheQuick (updated for PB3.93 by ts-soft, updated for PB4.00 by blbltheworm)
; Date: 18. December 2003
; OS: Windows
; Demo: Yes

; Read the ID3v1 (v1.1, including track number) tags from a MP3 file.
; Liest die ID3v1 (v1.1, einschliesslich Track-Nummer) aus einer MP3 Datei.
OpenConsole() 

If ReadFile(0,"test.mp3")    ; Pfad ggf. anpassen !!! 
  MemPointer =  AllocateMemory(128) ; 128 byte reservieren 
  If   MemPointer
    FileSeek(0,Lof(0)-128) 
    ReadData(0,MemPointer, 128) ; die letzten 128 byte der Datei auslesen 
    
    header$    = PeekS(MemPointer, 3) 
    
    If header$ = "TAG"                               ;  3 Zeichen 
      songtitle$ = Trim(PeekS(MemPointer +   3,30)) ; 30 Zeichen 
      artist$    = Trim(PeekS(MemPointer +  33,30)) ; 30 Zeichen 
      album$     = Trim(PeekS(MemPointer +  63,30)) ; 30 Zeichen 
      year$      = Trim(PeekS(MemPointer +  93, 4)) ;  4 Zeichen 
      comment$   = Trim(PeekS(MemPointer +  97,29)) ; 30 Zeichen 
      track      = PeekB(MemPointer + 126) 
      genre      = PeekB(MemPointer + 127)          ;  1 Zeichen 
      
      PrintN("Track: " + Str(track)) 
      PrintN("Titel: " + songtitle$) 
      PrintN("Kuenstler: " + artist$) 
      PrintN("Album: " + album$) 
      PrintN("Jahr: " + year$) 
      PrintN("Kommentar: " + comment$) 
      PrintN("Genre: " + Str(genre)) 
    Else 
      PrintN("Keine ID3-V1 Tags gefunden!") 
    EndIf 
  EndIf 
Else
  PrintN("Error reading file!")
EndIf 
      
Input() 
End

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -
; DisableDebugger