Bonjour,

comme certains auront pu le deviner, je cherche à récupérer les tags ID3 v1.1 d'un morceau MP3, sans passer par une bibliothèque ou un composant extérieur.

J'avais vu un code qui permettait de le faire en delphi mais je ne le trouve plus, j'ai donc essayé ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
type
  ID3tags = packed record
    Title  : String[30];
    Artist : String[30];
    Album  : String[30];
    Year   : String[4];
    Comment: String[30];
    Genre  : Byte;
  end; 
 
... 
 
function GetID3tags(Fichier: String): ID3tags;
var
  Buffer: ID3tags;
begin
  with TFileStream.Create(Fichier, fmOpenRead) do
  try
    Seek(128,soFromEnd);
    Read(Buffer,128);
  finally
    Free;
  end;
    Result:=Buffer;
  end;
end;
Le code compile bien mais quelque soit la chanson quand je fait GetID3tags(...).Title ou une autre variable de l'enregistrement la chaine est vide.

Pouvez-vous me dire à quel niveau je me trompe?

Merci d'avance.