API функция для переворачивания Long числа

[Teranas]

Кто нибудь знает, как перевернуть Long число при помощи API функции, без копирования в байтовый массив?

У меня сейчас так, может, есть, что попроще

Код: Выделить всё

        nSwap = b2(x): b2(x) = b2(x + 3): b2(x + 3) = nSwap
        nSwap = b2(x + 1): b2(x + 1) = b2(x + 2): b2(x + 2) = nSwap


[Хакер]

Есть htonl и ntohl.

Но, во-первых они относятся к сетевой подсистеме ОС, хотя фактических препятствий к их использованию в несетевом применении нет.
Во-вторых, провозглашенная для них функциональность это не переворачивание байтов, а конвертация.

htonl это host-to-network (long).
ntohl это network-to-host (long).

Соответственно функции конвертируют между порядком байтов, используемым процессорпором целевой машины (host), и порядком, принятым в сетевых протоколах (network). В одном из частных случаев эта конвертация заключается в смене порядка байтов (если процессор целевой машины использует little endian организацию). В другом частном случае эта конвертация состоит в ничегониделаньи (если целевая машина использует big endian, так же, как сетевые протоколы).

Понятное дело, что VB пока что умеет делать исполняемые файлы под x86, который использует little endian, так что в отношении скомпилированного кода справедливо утверждение, что эти функции всегда меняют порядок байтов. Но все же идиологически верно использовать их только в отношении чисел, которые пришли из сети в формат, понятный целевому процессору, или наоборот. Или же не из сети, а из файла, формат которого придерживается той же принципиальной привязанности к big endian, как это делают сетевые протоколы. Например PNG.

[Teranas]

Спасибо Огромное!
Буду лепить, для тестовой проги пойдёт, там как раз скорость нужна.

[bon818]

http://www.xbeat.net/vbspeed/index.htm , раздел Bits
Не знаю, подойдет тебе это, но думаю будет полезно глянуть.
зы: в низу страниц, под ф-ми, тесты производительности.

[Teranas]

bon818

Код: Выделить всё

Public Function SwapEndian08(ByVal dw As Long) As Long
' by Mike D Sutton, Mike.Sutton@btclick.com, 20040914
  SwapEndian08 = _
      (((dw And &HFF000000) \ &H1000000) And &HFF&) Or _
      ((dw And &HFF0000) \ &H100&) Or _
      ((dw And &HFF00&) * &H100&) Or _
      ((dw And &H7F&) * &H1000000)
  If (dw And &H80&) Then SwapEndian08 = SwapEndian08 Or &H80000000
End Function


Забавно, с "And" и делением у них получается, по тестам, быстрее...

[Хакер]

Вообще, можно задачу выполнить ещё на порядок быстрее. Одной единственной инструкцией процессора — BSWAP. Все вышеперечисленные варианты она порвёт как тузик грелку.