Algo

Trouver un mot ENVIRON vers la fin d'un texte de longueur variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Trouver un mot ENVIRON vers la fin d'un texte de longueur variable

Un4GivN

Je dois créer un lecteur d'ID3 des mp3... les informations concernant le nom du groupe, le genre, blablabla sont situées à la fin de tout ( les dernier 128 bytes )

" If you one sum the the size of all these fields we see that 30+30+30+4+30+1 equals 125 bytes and not 128 bytes. The missing three bytes can be found at the very end of the tag, before the song title. These three bytes are always "TAG" and is the identification that this is indeed a ID3 tag. The easiest way to find a ID3v1/1.1 tag is to look for the word "TAG" 128 bytes from the end of a file. "

Comment feriez-vous pour aller chercher le mot "TAG" directement ?

Publicité

antp

Super Administrateur
Champion des excuses bidons

tu tapes les 128 derniers octets du fichier dans une structure :

Code :

TID3Info = record
TAG: array[0..2] of Char;
Title: array[0..29] of Char;
Author: array[0..29] of Char;
Album: array[0..29] of Char;
Year: array[0..3] of Char;
Comment: array[0..29] of Char;
Genre: Byte;
end;

Code :

f.Seek(- SizeOf(TID3Info), soFromEnd);
f.Read(TempRec, SizeOf(TID3Info));

Et tu vérifies qu'y a bien 'TAG' dans le champ TAG de la structure.

Message édité par antp le 20-10-2002 à 23:52:31

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Un4GivN

mon prob c'est que je sais pas comment accéder Exactement aux derniers 128 octets...

antp

Super Administrateur
Champion des excuses bidons

j'ai édité.
suffit de se déplacer à -128 octets de la fin du fichier (très facile avec un TFileStream (j'ai vu que t'utilisais Delphi dans un autre topic, je suppose que c'est pareil ici)

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Un4GivN

ooooouuhhh ok je vois

Mais euh en delphi ya FSeek ?

Un4GivN

:eek2: MERDE ! Toi là... la mémoire c'est pour toi t'es trop fort ! Merci bcppppppp !

antp

Super Administrateur
Champion des excuses bidons

Un4GivN a écrit a écrit :

Mais euh en delphi ya FSeek ?

non
ici f est un TFileStream
f.Seek -> c'est TFileStream.Seek

Message édité par antp le 20-10-2002 à 23:54:50

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Un4GivN

Code :

procedure TForm1.Button2Click(Sender: TObject);
var
TID3Info = record
TAG: array[0..2] of Char;
Title: array[0..29] of Char;
Author: array[0..29] of Char;
Album: array[0..29] of Char;
Year: array[0..3] of Char;
Comment: array[0..29] of Char;
Genre: Byte;
end;
f : TFileStream;
Temp : TID3Info;
Info : TID3Info;
begin
AssignFile(FName, File1.FileName);
Reset(FName, 1);
if File1.FileName <> '' then
begin
f.Seek(- SizeOf(TID3Info), soFromEnd);
f.Read(TempRec, SizeOf(TID3Info));
end;
end.

Ça plante à la toute première ligne ... " TID3Info = record "

antp

Super Administrateur
Champion des excuses bidons

:heink: TID3Info c'est la déclaration d'un type de variable, pas d'une variable directement

tu dois déclarer ça après la ligne "type" dans la partie "identification" de ta unit.

Message édité par antp le 21-10-2002 à 09:43:30

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

antp

Super Administrateur
Champion des excuses bidons

et ça:
AssignFile(FName, File1.FileName);
Reset(FName, 1);
if File1.FileName <> '' then
begin

je sais pas d'où ça sort

ça serait plutôt :

f := TFileStream.Create(FName, fmOpenRead);
(où FName = le nom du fichier)

et pour fermer le fichier:

f.Free;

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Algo

Trouver un mot ENVIRON vers la fin d'un texte de longueur variable

Sujets relatifs
[JAVA] souligner le texte dans un JTextField	savoir si une variable est de type entier
probleme avec une variable NULL (en access)	cherche petit lien vers doc sur SRVMGRL [ORACLE]
[PHP] Vérifier si un serveur est online + afficher un texte si online	Commment déclarer une variable utilisable ds tout le projet ???
probleme de changement de type pour une variable [newbies du Python]	[PHP] Order by une variable ???
[HTML] Solution simple pour faire défiler du texte sur une page
Plus de sujets relatifs à : Trouver un mot ENVIRON vers la fin d'un texte de longueur variable

Page générée en 0.057 secondes