[ C++ -> Delphi ] Ou je me gourre

Ou je me gourre [ C++ -> Delphi ] - Delphi/Pascal - Programmation

Marsh Posté le 03-06-2003 à 19:11:32    

J'essaie de traduire une fonction de c++ en delphi :  
 

Code :
  1. int StreamInfo::ReadHeaderSV7 ( Reader* fp )
  2. {
  3.     const long samplefreqs [4] = { 44100, 48000, 37800, 32000 };
  4.     unsigned int    HeaderData [8];
  5.     unsigned short  EstimatedPeakTitle = 0;
  6.     if (simple.StreamVersion > 0x71 ) {
  7.         Update (simple.StreamVersion);
  8.         return 0;
  9.     }
  10.     if ( fp->seek ( simple.HeaderPosition, SEEK_SET ) != 0 )         // seek to header start
  11.         return ERROR_CODE_FILE;
  12.     if ( fp->read ( HeaderData, sizeof HeaderData) != sizeof HeaderData )
  13.         return ERROR_CODE_FILE;
  14. ...
  15.     simple.SampleFreq       = samplefreqs [(HeaderData[2]>>16) & 0x0003];
  16.     EstimatedPeakTitle      =  HeaderData[2]        & 0xFFFF;         // read the ReplayGain data
  17.     simple.GainTitle        = (HeaderData[3] >> 16) & 0xFFFF;
  18.     simple.PeakTitle        =  HeaderData[3]        & 0xFFFF;
  19.     simple.GainAlbum        = (HeaderData[4] >> 16) & 0xFFFF;
  20.     simple.PeakAlbum        =  HeaderData[4]        & 0xFFFF;
  21. ...
  22. }


 
Et je coince pour l'affectation en Delphi de l'equivalent de simple
 
je fais  

simple.GainTitle := (HeaderData[3] shr 16) and $FFFF;


 
Mais je n'obtiens pas le bon resultat. Je pense (mais bon on sait jamais) que le tableau headerdata est remplis correctement (array of cardinal), mais je vois pas ce qui clocherai dans la ligne sus-citee.


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
Reply

Marsh Posté le 03-06-2003 à 19:11:32   

Reply

Marsh Posté le 03-06-2003 à 19:50:50    

C'est quoi l'intérêt du "and $FFFF" :??:


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

Marsh Posté le 03-06-2003 à 19:51:57    

antp a écrit :

C'est quoi l'intérêt du "and $FFFF" :??:


 
la je crois que tu marques un point, j'avais meme pas fait gaffe [:ddr555]

Reply

Marsh Posté le 03-06-2003 à 20:04:49    

antp a écrit :

C'est quoi l'intérêt du "and $FFFF" :??:


 
Pas la moindre idee, mais c'est dans le code original. Je me suis aussi pose la question.


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
Reply

Marsh Posté le 03-06-2003 à 21:54:51    

:bounce: eupe


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
Reply

Sujets relatifs:

Leave a Replay

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