[Delphi] petage de plomb avec un Pchar

petage de plomb avec un Pchar [Delphi] - Programmation

Marsh Posté le 30-12-2001 à 11:53:20    

je suis en train de devenir fou!! :crazy:  
 
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! :pt1cable:  
 
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!! :pt1cable:  
on pourrait m'expliquer ce qui va pas?
tous ce que je veux c'est recuperer le Buffer dans un string...

Reply

Marsh Posté le 30-12-2001 à 11:53:20   

Reply

Marsh Posté le 30-12-2001 à 12:07:50    

Reply

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.

Reply

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 :
  1. recsize: integer;
  2.   field: PChar;
  3.   function ReadField: string;
  4.   begin
  5.     with InputFile do   // inputfile est un TFileStream
  6.     begin
  7.       ReadBuffer(recsize, intsize);
  8.       if recsize > 0 then
  9.       begin
  10.         ReallocMem(field, recsize+1);
  11.         field[recsize] := char(0);    // 0 de fin de chaîne pour en faire un PChar correct
  12.         ReadBuffer(field^, recsize);
  13.         result := field;
  14.       end else
  15.         result := '';
  16.     end;
  17.   end;

 

[edtdd]--Message édité par antp--[/edtdd]


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

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


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 30-12-2001 à 13:42:14    

:cry:  :cry:  
 
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  :sweat:  
 
j'ai mis le code source et un mp3 tagé pour que vous voyer par vous meme.
Je vais aller me pendre... :pt1cable:  
 
le lien: http://lyrixplugin.free.fr/dl/exempleID3.zip (3.8Mo)

Reply

Marsh Posté le 30-12-2001 à 14:04:09    

DrLobo a écrit a écrit :

:cry:  :cry:  
 
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  :sweat:  
 
j'ai mis le code source et un mp3 tagé pour que vous voyer par vous meme.
Je vais aller me pendre... :pt1cable:  
 
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


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

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]

Reply

Marsh Posté le 30-12-2001 à 14:29:43    

bon, mystère résolu:
http://users.skynet.be/acp/_images/buffer.png
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]


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

Marsh Posté le 30-12-2001 à 14:37:08    

:hap:  
Youhou !!
 
merci pour votre aide !!
je coinçai la dessus depuis un journée!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed