Opération sur les bits

Version imprimable

Salut,

N'étant pas encore très familier avec les manipulations de bits, j'aimerais avoir quelques éléments complémentaires sur ce sujet.

Par exemple ce bout de code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 f := TFileStream.create(FileName, fmOpenRead or fmShareDenyNone);
 
    if (f.Read(SignatureChunk, SizeOf(SignatureChunk)) = SizeOf(SignatureChunk)) and (SignatureChunk = 30475) then
    begin
      FillChar(theByte, SizeOf(theByte),0);
      f.Seek(2, soFromCurrent);
      f.Read(theByte, SizeOf(theByte));
 
      FFileSize := f.Size;
      FValid := TRUE;
 
      case (theByte and $C0) of
          0: MyValue := 48000;
        $40: MyValue := 44100;
        $80: MyValue := 32000;
      else MyValue := 0;
      end;
...........

A quoi correspondent donc le $C0, $40 et $80 et quelles valeurs cela renvoient ?

Merci. :)

23/12/2007, 16h09
sjrd

En Delphi, écrire un $ devant un nombre veut dire que celui-ci est écrit en base hexadécimale.

Par exemple, $C0 = C0 (base 16) = 192 (base 10) = 11000000 (base 2)

en gros, ce qu'il fait, c'est ça :
Code:

1 2 3 4 5 6 7 8 9 10 theByte = ABCDEFGH $C0 = 11000000 $40 = 01000000 $80 = 10000000 theByte and $C0 = AB000000 = X si X = $0 alors A = 0 et B = 0 si X = $40 alors A = 0 et B = 1 si X = $80 alors A = 1 et B = 0
donc il vérifie la valeur des 2 bits de poids fort pour déterminer l'échantillonnage.