Discussion :

[Sergio29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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)

[guillemouze]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.