Как извлечь значение конкретного бита в типе byte?

← →
NetKnight © (2003-07-29 13:16) [0]

Субж! Считываю в буфер информацию, а обработать её надо побитно.. Как извлечь значения?

И ещё в добавок: как наиболее оптимально считать из файла данные и представить их в бинарном виде?
В данный момент юзаю BlockRead, а потом конвертирую в массив из byte.

← →
VaS © (2003-07-29 13:35) [1]

IsFiveBit := (b shr 6) and 1 <> 0;

← →
Verg © (2003-07-29 13:36) [2]

if (<переменная типа byte> and (1 shl <номер конкретного бита>))<>0 then <этот бит =1> else <этот бит=0>

Биты нумеруются 0..7

> В данный момент юзаю BlockRead, а потом конвертирую в массив
> из byte.

Интересно как выглядит "конвертация".

← →
Verg © (2003-07-29 13:38) [3]

> VaS ©

Тож нормально. Если уж совсем на Паскале, то
odd(b shr n), b- байт(и не только) n -номер бита

← →
HolACost (2003-07-29 14:40) [4]

Лишний вызов - это уже серьёзнее!

> IsFiveBit := (b shr 6) and 1 <> 0;
- а не проще, тогда уж IsFiveBit := (b and $20) <> 0
хотя (1 shl < константа - номер конкретного бита>) - это константа рассчитанная на этапе компиляции ((1 shl 5)<==>$20)...

а битовый поток действительно:
for j:=0 to DataSize-1 do begin b:=Data[j]; for i:=0 to 7 do begin if((b and 1)<>0)then DoBit1 else DoBit0; b:=b shr 1; end; end;
хотя, для удобства чтения битового потока(глазами), в шестнадцатиричном побайтовом виде, обычно, делают первый бит старшим (CA BE ==> 11001010 10111110, вместо 0101001 10111110 1 ==>56 7D - с первым удобнее читать поток,байты переворачивать не надо(в голове)) и разбирать поток надо:
for j:=0 to DataSize-1 do begin b:=Datap[j]; for i:=0 to 7 do begin if((b and $80)<>0)then DoBit1 else DoBit0; b:=b sh l 1; end; end;

можно юзать вот этот класс
EBitsError_ = class(Exception); TRange = (r_8, r_16, r_32); TBits_ = class private FNumber: Cardinal; FRange: Byte; function GetBit(Index: Byte): Boolean; procedure SetBit(Index: Byte; Value: Boolean); procedure SetRange(Value: TRange); function GetRange: TRange; procedure SetNumber(Value: Cardinal); procedure Error; public constructor Create(Number: Cardinal; RangeValue: TRange = r_32); property Number: Cardinal read FNumber write SetNumber; property Bits[Index: Byte]: Boolean read GetBit write SetBit; default; property Range: TRange read GetRange write SetRange; end; constructor TBits_.Create(Number: Cardinal; RangeValue: TRange = r_32); begin FNumber := Number; Range := RangeValue end; function TBits_.GetRange: TRange; begin case FRange of $F8: Result := r_8; $F0: Result := r_16; $E0: Result := r_32; end; end; procedure TBits_.SetRange(Value: TRange); begin case Value of r_8 : begin FRange := $F8; FNumber := FNumber and $000000FF; end; r_16 : begin FRange := $F0; FNumber := FNumber and $0000FFFF; end; r_32 : FRange := $E0; end; end; procedure TBits_.Error; begin raise EBitsError_.Create("The borders are broken") end; function TBits_.GetBit(Index: Byte): Boolean; asm MOV DH, Self.FRange TEST DL, DH JNZ TBits_.Error MOV EAX, Self.FNumber MOV CL, DL SHR EAX, CL AND EAX, 1 end; procedure TBits_.SetBit(Index: Byte; Value: Boolean); asm MOV DH, Self.FRange TEST DL, DH JNZ TBits_.Error MOVZX EDX, DL TEST CL, 1 JZ @@ResetBit BTS Self.FNumber, EDX RET @@ResetBit: BTR Self.FNumber, EDX end; procedure TBits_.SetNumber(Value: Cardinal); begin if Value <> FNumber then begin FNumber := Value; Range := Range; end; end; procedure TForm1.Button3Click(Sender: TObject); var b: TBits_; begin b := TBits_.Create($FFFFFFEF, r_16); // b.Number = $0000FFEF b.Range := r_8; // b.Number = $000000EF ( $EF = 11101111b ) if not b[4] then begin b[4] := True; b[0] := False; end; // b.Number = $000000FE ( $FE = 11111110b = 254 ) Caption := IntToStr(b.Number); Sleep(1000); try // исключение - обращение к 8 биту при Range = r_8 b[8] := True; except on EBitsError_ do Caption := "Обработка исключения класса TBits_"; end; end;

Как извлечь значение конкретного бита в типе byte? Найти похожие ветки