Delphi 7. Как декодировать набор байтов в Integer с учетом UInt32?

Question

Delphi 7. Как декодировать набор байтов в Integer с учетом UInt32?

Вячеслав Власов Гуру (3453), закрыт 2 года назад

Например:
Исходные байты: 69 43 00 00
Надо их конвертировать в: 17257

Answer 1

kaiu Высший разум (115628) 2 года назад

WriteLn($69 + 256*$43 + 256*256*$00 + 256*256*256*$00);
или
WriteLn($69 + $43 shl 8 + $00 shl 16 + $00 shl 24);
или есть еще более быстрые способы

Владимир АлексеевОракул (50304) 2 года назад

чиста конкретно.
поскольку не обнаружено как признаков основания системы
binary/ hex / decimal /octal (see Donald Knut),
так и признаков разумной деятельности вопросителя, экономически целесообразно послать оного в пешеходную эротическую проулку на флейту любви.. Это минимизирует возрастание энтропии.

Владимир АлексеевОракул (50304) 2 года назад

strtoint(

Answer 2

const
a: packed array[0..3] of byte = ($69, $43, 00, 00);
var
b: uint32 absolute a;
begin
Writeln(b);
end.

Answer 3

unit IdWinSock2;
...
type
SunB = packed record
s_b1, s_b2, s_b3, s_b4: u_char;
end;
SunW = packed record
s_w1, s_w2: u_short;
end;
TInAddr = packed record
case integer of
0: (S_un_b: SunB);
1: (S_un_w: SunW);
2: (S_addr: u_long);
end;

Answer 4

Артём Корсаков Ученик (145) 2 года назад

напиши нейросеть