Red Viper The Hellfire Preacher | Bonjour chers programmeurs,
J'aimerais modifier l'ID3Tag d'un fichier MP3.
J'ai trouvé pour lire les informations. En Delphi, ça donne ceci :
Citation :
procedure TMP3.Charger(Const CheminFichier : String);
var
Buffer : array[1..128] of char;
Fichier : File;
begin
AssignFile(Fichier, CheminFichier);
Reset(Fichier, 1);
Seek(Fichier, FileSize(Fichier)-128);
BlockRead(Fichier, Buffer, SizeOf(Buffer));
CloseFile(Fichier);
Titre := Trim(copy(Buffer, 4, 30));
Artiste := Trim(copy(Buffer, 34, 30));
Album := Trim(copy(Buffer, 64, 30));
Annee := Trim(copy(Buffer, 94, 4));
Commentaire := Trim(copy(Buffer, 98, 30));
Genre := ord(Buffer[128]);
Piste := ord(Buffer[127]);
end;
|
Titre, Artiste, Album, Annee, Commentaire, Genre et Piste étant les attribut du type TMP3
Le problème maintenant est que je ne peux pas récupérer un titre plus long que 30 caractères, pourtant lorsque l'on change les ID3Tag directement dans Windows, on peut mettre autant de caractères que l'on veut.
Comment récupérer les informations complètes sans qu'elles soient tronquées ?
Merci pour votre aide. |