PureBoard

Code: Alles auswählen

; PureBasic Visual Designer v3.80 build 1249


Structure ID3v2 
  Title.s 
  Artist.s 
  Album.s 
  Comment.s 
  Year.s 
  Genre.s 
  Composer.s 
  URL.s 
  OrgArtist.s 
  Copyright.s 
  EncodedBy.s 
  Encoder.s 
  Track.s 
EndStructure 
Global TagID3v2.ID3v2 

Declare.l GetID3v2Tag(FileName.s) 


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Gadget_0
  #Gadget_1
  #Gadget_2
  #Gadget_3
  #Gadget_9
  #Gadget_10
  #Gadget_11
  #Gadget_12
  #Gadget_17
  #Gadget_18
  #Gadget_19
  #Gadget_20
  #Gadget_21
  #Gadget_22
  #Gadget_23
  #Gadget_24
  #Gadget_25
  #Gadget_26
  #Gadget_27
  #Gadget_28
  #Gadget_29
  #Gadget_30
  #Gadget_31
  #Gadget_32
  #Gadget_33
  #Gadget_34
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 600, 455,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      StringGadget(#Gadget_0, 10, 130, 270, 20, "", #PB_String_ReadOnly)
      TextGadget(#Gadget_1, 10, 110, 270, 20, "Album:")
      TextGadget(#Gadget_2, 320, 110, 270, 20, "Artist:")
      StringGadget(#Gadget_3, 320, 130, 270, 20, "", #PB_String_ReadOnly)
      StringGadget(#Gadget_9, 10, 180, 270, 20, "", #PB_String_ReadOnly)
      TextGadget(#Gadget_10, 10, 160, 270, 20, "Comment:")
      TextGadget(#Gadget_11, 320, 160, 270, 20, "Composer:")
      StringGadget(#Gadget_12, 320, 180, 270, 20, "", #PB_String_ReadOnly)
      StringGadget(#Gadget_17, 10, 230, 270, 20, "", #PB_String_ReadOnly)
      TextGadget(#Gadget_18, 10, 210, 270, 20, "Copyright:")
      TextGadget(#Gadget_19, 320, 210, 270, 20, "Encodet by:")
      StringGadget(#Gadget_20, 320, 230, 270, 20, "", #PB_String_ReadOnly)
      StringGadget(#Gadget_21, 10, 280, 270, 20, "", #PB_String_ReadOnly)
      TextGadget(#Gadget_22, 10, 260, 270, 20, "Encoder:")
      TextGadget(#Gadget_23, 320, 260, 270, 20, "Genre:")
      StringGadget(#Gadget_24, 320, 280, 270, 20, "", #PB_String_ReadOnly)
      StringGadget(#Gadget_25, 10, 330, 270, 20, "", #PB_String_ReadOnly)
      TextGadget(#Gadget_26, 10, 310, 270, 20, "Original Artist:")
      TextGadget(#Gadget_27, 320, 310, 270, 20, "Title:")
      StringGadget(#Gadget_28, 320, 330, 270, 20, "", #PB_String_ReadOnly)
      StringGadget(#Gadget_29, 10, 380, 270, 20, "", #PB_String_ReadOnly)
      TextGadget(#Gadget_30, 10, 360, 270, 20, "Track:")
      TextGadget(#Gadget_31, 320, 360, 270, 20, "URL:")
      StringGadget(#Gadget_32, 320, 380, 270, 20, "", #PB_String_ReadOnly)
      StringGadget(#Gadget_33, 160, 430, 270, 20, "", #PB_String_ReadOnly)
      TextGadget(#Gadget_34, 160, 410, 270, 20, "Year:")
      
    EndIf
  EndIf
EndProcedure

Open_Window_0()

Repeat
 



MP3File.s = OpenFileRequester("Select MP3 File", "", "MP3 Files (*.mp3)|*.mp3", 0) 
  If GetID3v2Tag(MP3File) 
    ; display tag contents 
    SetGadgetText(#Gadget_0, TagID3v2\Album)
    SetGadgetText(#Gadget_3, TagID3v2\Artist)
    SetGadgetText(#Gadget_9, TagID3v2\Comment)
    SetGadgetText(#Gadget_12,  TagID3v2\Composer)
    SetGadgetText(#Gadget_17,  TagID3v2\Copyright)
    SetGadgetText(#Gadget_20,  TagID3v2\EncodedBy)
    SetGadgetText(#Gadget_21,  TagID3v2\Encoder)
    SetGadgetText(#Gadget_24,  TagID3v2\Genre)
    SetGadgetText(#Gadget_25,  TagID3v2\OrgArtist)
    SetGadgetText(#Gadget_28,  TagID3v2\Title)
    SetGadgetText(#Gadget_29,  TagID3v2\Track)
    SetGadgetText(#Gadget_32,  TagID3v2\URL)
    SetGadgetText(#Gadget_33,  TagID3v2\Year) 
  EndIf

EventID.l = WindowEvent()
    If EventID = #PB_Event_CloseWindow 
      Quit = 1 
    EndIf 

  Until Quit = 1   
End


;- read ID3v2.3.x tag fields from MP3 file 
Procedure.l GetID3v2Tag(FileName.s) 
  If FileName = "" 
    ProcedureReturn #False 
  EndIf 
  
  ReadFile(1, FileName) 
  
  ID3.s = Space(3) 
  ReadData(@ID3, 3) 
  ; must be ID3v2.3.x 
  If ID3 = "ID3" And ReadByte() = $03 
    ID3Exists = #True 
    ; skip revision and flag bytes 
    ReadWord() 
    ; get tag size 
    ID3Size.l = 0 
    For Byte.l = 3 To 0 Step -1 
      ID3Size + (ReadByte() << (7*Byte)) 
    Next 
  Else 
    ; no ID3v2.3.x tag present 
    CloseFile(1) 
    ProcedureReturn #False 
  EndIf 
  
  ; clear tag contents 
  TagID3v2\Album = "" 
  TagID3v2\Artist = "" 
  TagID3v2\Comment = "" 
  TagID3v2\Composer = "" 
  TagID3v2\Copyright = "" 
  TagID3v2\EncodedBy = "" 
  TagID3v2\Encoder = "" 
  TagID3v2\Genre = "" 
  TagID3v2\OrgArtist = "" 
  TagID3v2\Title = "" 
  TagID3v2\Track = "" 
  TagID3v2\URL = "" 
  TagID3v2\Year = "" 
  
  Size.l = 0 
  Repeat 
    ; get frames until no more 
    FrameID.s = Space(4) 
    ReadData(@FrameID, 4) 
    If Asc(Left(FrameID, 1)) = 0 
      ; no more frames 
      CloseFile(1) 
      ProcedureReturn #True 
    EndIf 
    
    ; get frame size 
    FrameSize.l = 0 
    For Byte.l = 3 To 0 Step -1 
      FrameSize + (ReadByte() << (7*Byte)) 
    Next 
    ; add frame size to total size 
    Size + FrameSize 
    
    ; skip flag and language bytes 
    ReadWord() 
    ReadByte() 
    
    ; get frame contents 
    ; subtract one for language byte 
    FrameSize - 1 
    Contents.s = Space(FrameSize) 
    ReadData(@Contents, FrameSize) 
    
    ; put frame contents into structure 
    Select FrameID 
      Case "TALB" 
        TagID3v2\Album = Contents 
      Case "TCOM" 
        TagID3v2\Composer = Contents 
      Case "TCON" 
        TagID3v2\Genre = Contents 
      Case "TCOP" 
        TagID3v2\Copyright = Contents 
      Case "TENC" 
        TagID3v2\EncodedBy = Contents 
      Case "TIT2" 
        TagID3v2\Title = Contents 
      Case "TOPE" 
        TagID3v2\OrgArtist = Contents 
      Case "TPE1" 
        TagID3v2\Artist = Contents 
      Case "TRCK" 
        TagID3v2\Track = Contents 
      Case "TSSE" 
        TagID3v2\Encoder = Contents 
      Case "TYER" 
        TagID3v2\Year = Contents 
      Case "COMM" 
        TagID3v2\Comment = Contents 
      Case "WXXX" 
        TagID3v2\URL = Contents 
    EndSelect 
  ; stop if tag size reached/exceeded  
  Until Size >= ID3Size 

  CloseFile(1) 
  ProcedureReturn #True 
EndProcedure

Code: Alles auswählen

"Staatsfeind"  = TagID3v2\Album
"Bulli"  = TagID3v2\Artist
"wos woas i"  = TagID3v2\Comment 
"Drecksog"  = TagID3v2\Composer
"gmbH"  = TagID3v2\Copyright
"sfdsd"  = TagID3v2\EncodedBy
"dsfds"  = TagID3v2\Encoder
"fsdaf"  = TagID3v2\Genre
"sasd"  = TagID3v2\OrgArtist
"dsfasd"  = TagID3v2\Title
"dsaf"  = TagID3v2\Track
"sdfa"  = TagID3v2\URL
"asdf"  = TagID3v2\Year