[SCrat.ORS]

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

Код:

1	00 00 00 0A

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

Код:

1 2 3 4 5 6 7 8 9

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

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

[Alegun]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

...   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]

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

Код:

1	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.

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

Код:

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

[Bargest]

А еще есть

Код:

1 2 3

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]

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

Код:

1 2 3 4 5

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

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

[Bargest]

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

[SCrat.ORS]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

// Перестановка байт 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;