[SCrat.ORS]

Вот такая задача:
Имеем MemoryStream, в котором записано

Код:

00 00 00 0A

Это число 10 как можно понять. Пытаюсь это число прочитать:

Код:

var
A:TMemoryStream;
C:Integer;
Begin
// ... загружаем эти байты из файла не суть
A.Seek(0, soFromBeginning);
A.Read(C,4);
A.Free;
end;

И после чтения я получаю результат 167772160, т.е. 0A 00 00 00... все логично прочитало как число в обратном порядке. Но как его прочитать в прямом порядке? Предполагаю что ничего сложного, но использовать циклы и читать по 1 байту как-то не комильфо.
Подскажите кто знает.

[Alegun]

Данные так перевёрнутыми и хранятся везде - вроде в проц так их вгонять проще

Можно сделать так:

Код:

...

function bth(ds: byte): string;
const
 b: string = '0123456789ABCDEF';
begin
 Result:= b[(ds shr 4) + 1] + b[(ds and $F) + 1];
end;
...

var
 b1, b2, b3, b4: byte;
...

AssignFile(

Reset(

Read(SomeFile, b1, b2, b3, b4);
C:= StrToInt('$' + bth(b4) + bth(b3) + bth(b2) + bth(b1));

Правда это работает с типизированным байтовым файлом, в смысле с file of byte, но вроде должно и с потоком прокатить, к сожалению, такое не проверял

[SCrat.ORS]

Ох как же мог забыть про это:

Код:

C:= StrToInt('$' + bth(b4) + bth(b3) + bth(b2) + bth(b1));

[M.A.D.M.A.N.]

Big Endian, Little Endian.

[Alegun]

Сообщение от M.A.D.M.A.N.

Big Endian, Little Endian.

Только сейчас дошло

Код:

c:= swap(c shr 16) or (swap(c) shl 16);

[Bargest]

А еще есть

Код:

asm
   bswap eax
end;

[M.A.D.M.A.N.]

Есть менее задротский вариант: hton, ntoh.

[SCrat.ORS]

Что-то вообще не понимаю о чем вы =D ... можно по-русски?
Я конечно нашёл функцию htonl в модуле WinSock, и она "переворачивает" да...

[Bargest]

А что понимать? Есть нормальный вариант - LittleEdian, поскольку гарантирует элементарное преобразование типов к меньшим, при этом байты в числе записываются от младшего к старшему, т.е. в обратном порядке. Этот стандарт используется на персональных компьютерах. Но некоторые гении из моторолы и IBM решили, что числа должны записываться так, как привык человек, и сделали у себя BigEdian, в котором числа записываются как обычно. И этот стандарт часто используется во всяких "кросс-платформенных" вещах. Вот и появилось два стандарта, а вместе с ними и неизбежные функции конвертирования одного в другое, заключающиеся в простой перестановке байт в числе.

[SCrat.ORS]

Это я понял еще когда M.A.D.M.A.N. написал. Я не понял функции преобразования =) Ассемблерную функцию, hton, ntoh =) как с ними работать.

[Alegun]

Да это дядьки шутят так, в вашем варианте поможет и это

Код:

...
A.Read(C,4);
c:= swap(c shr итд.
A.Free;
end;

Swap кстати, это и есть обёртка над bswap eax, как и завещали отцы :-)

[Bargest]

Ассемблерная там не функция, а одна команда. bswap инвертирует порядок байт в регистре. hton/ntoh - POSIX-функции, преобразующие число в/из bigedian из/в машинный порядок.

[SCrat.ORS]

Ну дядьки хорошо вы шутите
Поклон вам низкий в ноги прям Суть понятна. Вопрос решён. Всем спасибо.

Код:

// Перестановка байт 32-битового целого; подходит, например,
// для передачи данных между процессорами Intel и Sun.
function Swap32(Value: LongWord): LongWord;
begin
  Result := Swap(Value shr 16) or (Swap(Value) shl 16);
end;

// Если действительно требуется переставить байты в 32-битовом
// целом, например, для преобразования обратного порядка байт в
// е прямой, используйте не функцию Swap, а инструкцию
// BSWAP.
function FastSwap(Value: LongWord): LongWord; register; overload;
asm
  bswap eax
end;

// Для перестановки значения Int64 аргумент передается в стек,
// а возвращаемое значение - в EAX:EDX.
function FastSwap(Value: Int64): Int64; register; overload;
asm
  mov edx, [esp+8]
  bswap edx
  mov eax, [esp+12]
  bswap eax
end;