PureBasic

Parole De JOJO a écrit :la wrapper de progi1984 a l'air interressante mais je n'ai pas reussi a l'utiliser. un message d'erreur s'affiche

• 3 premiers octets : "ID3" ($494433)
• octet suivant : Version majeure ID3
• octet suivant : Révision mineure ID3
• octet suivant : Flags ID3 (la plupart du temps $00)
• 4 octets suivants : Taille totale du tag ID3 (- 10 octets correspondant à la taille de l'en-tête ID3)

• 4 premiers octets : Description du champ (TALB, TOPE, TIT2, ...)
• 4 octets suivants : Taille de la valeur du champ
• 2 octets suivants : Flags du champ ID3 (la plupart du temps $00. Note : en cas d'écriture, il vaut mieux laisser cette valeur qui permet la préservation du champ par d'autres applications de gestion des tags ID3)
• Ensuite, ça se complique un peu !
  • Si la valeur du descripteur est une valeur numérique, elle sera codée classiquement en hexadécimal directement après le flag du champ ID3
  • Si, en revanche, c'est une valeur alphabétique (ou alphanumérique) :
    • si la valeur des 3 octets suivant le flag est $00 00 00, la valeur sera codée en ASCII
      Ex (TIT2) : $ 54 49 54 32 00 00 00 07 00 00 00 00 00 42 65 20 63 6F 6F 6C
    • si la valeur de l'octet suivant le flag est $01, elle sera immédiatement suivie du descripteur Unicode $FF FE ou $FE FF (soit, là aussi, au total 3 octets : $ 01 FF FE) puis de la valeur du champ terminée obligatoirement par un $00
      Ex (TIT2) : $ 54 49 54 32 00 00 00 0F 00 00 01 FF FE 42 00 65 00 20 00 63 00 6F 00 6F 00 6C 00

; ****
; **** Lecture En-tête ID3V2
; **** Auteur : Boddhi           
; ****
If ReadFile(0,"C:\zic.mp3")
  Define.i *tampon.i
  Define.i TagID3       ; EnTete ID3v2
  Define.s Tag          ; Tag ID3
  Define.i TagVM        ; Version majeure
  Define.i TagRM        ; Révision mineure
  Define.i TagFlag      ; Flag tag ID3
  Define.i TagTaille    ; Taille tag ID3
  Define.s TagTailleBin ; Taille binaire tag ID3
  Define.w Compteur1,Compteur2 ; Compteurs Boucles
  
  *tampon=AllocateMemory(10)
  TagID3=ReadData(0,*tampon,10)
  CloseFile(0)
  Tag=PeekS(*tampon,3)
  TagVM=PeekB(*tampon+3)
  TagRM=PeekB(*tampon+4)
  TagFlag=PeekB(*tampon+5)
  TagTailleBin=RSet(Bin(PeekB(*tampon+6)),7,"0")
  TagTailleBin+RSet(Bin(PeekB(*tampon+7)),7,"0")
  TagTailleBin+RSet(Bin(PeekB(*tampon+8)),7,"0")
  TagTailleBin+RSet(Bin(PeekB(*tampon+9)),7,"0")
  
  TagTaille=BinVal(TagTailleBin)
  Debug TagTaille ; Taille du bloc ID3
  ; Ajouter 10 à TagTaille pour avoir l'adresse de début du bloc suivant
  Debug Hex(TagTaille+10) ; Début du bloc suivant => Vérifie dans ton éditeur héxa
  FreeMemory(*tampon)
EndIf

• Tu lis l'en-tête,
• Après l'en-tête, tu fais une boucle qui récupère chaque champ en faisant en sorte que
  ta position dans le fichier ne dépasse pas la taille du bloc ID3 ( Loc(#File)<TailleBloc ),
• Aide-toi d'un Select...Case...Default...End Select pour déterminer pour chaque champ sa taille exacte et incidemment la position du champ suivant