petage de plomb avec un Pchar [Delphi] - Programmation
Marsh Posté le 30-12-2001 à 12:07:50
http://perso.wanadoo.fr/fobec/Delphi/T_Truc.htm
Marsh Posté le 30-12-2001 à 12:22:55
je suis allé voir sur le site et j'ai pas trouvé de reponse a ma question. 
Il y a bien un truc sur la lecture des tag id3 mais version 1 et donc avec taille définie ce qui dans mon cas ne pose pas de probleme. 
Marsh Posté le 30-12-2001 à 12:48:06
c'est très bizarre cette histoire. 
tu utilises quoi pour le fichier ? 
J'utilise TFileStream, et ca marche très bien.  
Exemple tiré de mon code source, pour une fonction locale à une autre fonction, et que j'utilise pour lire la chaine suivante dans un fichier où il y a des enregistrement de longueur variable (4 octets donnant la longueur, suivis par les caractères). intsize est un const valant sizeof(integer) 
 
| Code : 
 | 
[edtdd]--Message édité par antp--[/edtdd]
Marsh Posté le 30-12-2001 à 12:52:16
| DrLobo a écrit a écrit  : je suis allé voir sur le site et j'ai pas trouvé de reponse a ma question. Il y a bien un truc sur la lecture des tag id3 mais version 1 et donc avec taille définie ce qui dans mon cas ne pose pas de probleme. | 
 
La taille d'1 partie est indiqué dans le tag ID3V2 
http://www.stcommunications.ca/~mb [...] d3v2.shtml ou http://www.id3.org/id3v2.3.0.html 
Marsh Posté le 30-12-2001 à 13:42:14
 
   
  
 
antp>j'ai fait pareil ca marche pas 
[SDF]Poire> je sais et j'ai taille exacte mais je la connait pas a l'avance -> taille dynamique 
 
ca marche pas, je comprend pas   
  
 
j'ai mis le code source et un mp3 tagé pour que vous voyer par vous meme. 
Je vais aller me pendre...  
  
 
le lien: http://lyrixplugin.free.fr/dl/exempleID3.zip (3.8Mo) 
Marsh Posté le 30-12-2001 à 14:04:09
| DrLobo a écrit a écrit  :     antp>j'ai fait pareil ca marche pas [SDF]Poire> je sais et j'ai taille exacte mais je la connait pas a l'avance -> taille dynamique ca marche pas, je comprend pas   j'ai mis le code source et un mp3 tagé pour que vous voyer par vous meme. Je vais aller me pendre...   le lien: http://lyrixplugin.free.fr/dl/exempleID3.zip (3.8Mo) | 
 
G : 
 
debut de la lecture 
--------------------------------- 
USLT 
Taille du tag = 1114  Position=184 
> 
fin de la lecture 
 
 
engSummer Son 
Texas 
Greatest Hits (2000) 
 
i'm tired of telling the story  
tired of telling it your way  
yeh i know what i saw  
i know that i found the floor  
 
before you take my heart reconsider  
before you take my heart reconsider  
i've opened the door  
i've opened the door  
 
here comes the summer's son  
he burns my skin  
i ache again  
i'm over you  
 
i thought i had a dream to hold  
maybe that has gone  
your hands reach out and touch me still  
but this feels so wrong  
 
before you take my heart reconsider  
before you take my heart reconsider  
i've opened the door  
i've opened the door  
 
here comes the summer's son  
he burns my skin  
i ache again  
i'm over you  
 
before you take my heart reconsider  
before you take my heart reconsider  
i've opened the door  
i've opened the door  
 
here comes the summer's son  
he burns my skin  
i ache again  
i'm over you  
 
here comes the winter's rain  
to cleanse my skin  
i wake again  
i'm over you  
 
here comes the summer's son  
he burns my skin  
i ache again  
i'm over you  
 
here comes the winter's rain  
to cleanse my skin  
i wake again  
i'm over you  
 
i'm over you 
Marsh Posté le 30-12-2001 à 14:17:07
j'ai aussi ca met si tu regardes le code c'est vraiment pas elegant pour recuperer ces paroles 
de plus ca devrai aussi les afficher apres le ">" et la ca marche pas 
 
et puis si tu essayes dans la boucle de replacer: 
memo2.Text:=memo2.Text+Buffer[j]; 
par 
temp:=temp+Buffer[j]; 
avec temp:string ca devrais faire la meme chose et ben nan! 
[edtdd]--Message édité par DrLobo--[/edtdd]
Marsh Posté le 30-12-2001 à 14:29:43
bon, mystère résolu:  
 
les valeurs 0 sont utilisées comme fin de chaîne en C/C++, et pour le PChar du Pascal aussi. 
Ici comme la chaîne commence par un 0, il considère que c'est une chaîne vide ! 
(sur le screenshot on voit le contenu de la variable buffer après lecture, "dumpée" dans un fichier. l'éditeur hexadécimal est souvent l'ami du programmeur, en tout cas c'est le cas d'après mon expérience pourtant relativement courte de programmeur) 
[edtdd]--Message édité par antp--[/edtdd]
Marsh Posté le 30-12-2001 à 14:37:08
 
  
Youhou !! 
 
merci pour votre aide !! 
je coinçai la dessus depuis un journée!! 
Marsh Posté le 30-12-2001 à 11:53:20
je suis en train de devenir fou!! 
  
 
  
 
  
j'essaie de lire dans un mp3 les tags id3v2 (donc taille variable)
j'ai fais toutes les routines qui trouvent les tag et les tailles des champs, jusqu'a la pas tres compliqué tous est en taille fixe.
Mainteant pour récuperer les valeurs je fais ca:
var
Buffer:PChar;
temp:string;
taille:integer;
GetMem(Buffer,taille);
mp3.ReadBuffer(Buffer^,taille);
le probleme c'est que je n'arrive pas exploiter le contenu de Buffer!
premiere chose: Buffer n'est pas vide j'arrive a voir ce qu'il y a dedans en faisant
for j:=1 to taille do
memo2.Text:=memo2.Text+Buffer[j];
Par contre si je fais ca:
memo2.text:=Buffer
OU memo2.text:=Buffer^
OU temp:=Buffer
OU setString(temp,Buffer,Taille)
OU for j:=1 to taille do
temp:=temp+Buffer[j];
et ben y a rien!!
on pourrait m'expliquer ce qui va pas?
tous ce que je veux c'est recuperer le Buffer dans un string...