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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ C++ -> Delphi ] Ou je me gourre

Ciler

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

Code :

int StreamInfo::ReadHeaderSV7 ( Reader* fp )
{
const long samplefreqs [4] = { 44100, 48000, 37800, 32000 };
unsigned int HeaderData [8];
unsigned short EstimatedPeakTitle = 0;
if (simple.StreamVersion > 0x71 ) {
Update (simple.StreamVersion);
return 0;
}
if ( fp->seek ( simple.HeaderPosition, SEEK_SET ) != 0 ) // seek to header start
return ERROR_CODE_FILE;
if ( fp->read ( HeaderData, sizeof HeaderData) != sizeof HeaderData )
return ERROR_CODE_FILE;
...
simple.SampleFreq = samplefreqs [(HeaderData[2]>>16) & 0x0003];
EstimatedPeakTitle = HeaderData[2] & 0xFFFF; // read the ReplayGain data
simple.GainTitle = (HeaderData[3] >> 16) & 0xFFFF;
simple.PeakTitle = HeaderData[3] & 0xFFFF;
simple.GainAlbum = (HeaderData[4] >> 16) & 0xFFFF;
simple.PeakAlbum = HeaderData[4] & 0xFFFF;
...
}

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

Publicité

antp

Super Administrateur
Champion des excuses bidons

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

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

chrisbk

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]

Ciler

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

Ciler

: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

FORUM HardWare.fr

Programmation

Delphi/Pascal

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

Sujets relatifs
[ Delphi ] un transtypage marrant	[Delphi] plugin et utilisation dynamique de dll
[VB - C++ - Delphi] Status Upload / Download network...	[Delphi 7] livre à acheter pour apprendre Delphi?
Les .dll en delphi .. ?	[DELPHI] recuperer les arguments de la ligne de commande
[Delphi] Recherche désespéremment procédure ALPHA-BETA.....	Delphi et WebCam...
Comment gerer une BD sous Delphi avec Oracle	Comment recreer un projet Borland/Delphi a partir de .pas et .dfm
Plus de sujets relatifs à : [ C++ -> Delphi ] Ou je me gourre

Page générée en 0.058 secondes