Побитовый сдвиг (слить 4 байта в 1 лонг)

[Doctor Nestor]

Надо слить 4 байта в 1 лонг. Это быстро надо делать, т.е. не прокатит
long= b1+256*b2+256*256*b3+256*256*256*b4
надо бы как-то через битовый сдвиг, но я не знаю, как на VB такое сотворить. Помогите... А

[alibek]

Четыре раза CopyMemory? Или (если исходные байты в массиве) один раз CopyMemory.

[Ennor]

В шестом Басике есть такой замечательный оператор - LSet. Копирует данные из одной структуры/строки в другую, игнорируя конкретные определения. Быстрее, чем CopyMemory() (если верить Брюсу МакКинни...). Выглядит примерно так:

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

private type tag_RGBA
  R as byte
  G as byte
  B as byte
  A as byte
end type
'
private type tag_COLORREF
  C as Long
end type
'
Dim rgba as tag_RGBA, cr as tag_COLORREF
' ... Fill rgba struct here
LSet cr = rgba


Voila! Если rgba заполнен, как надо, то в CR получишь свой лонг. Единственное - можешь получить обратный порядок байт, так что поэкспериментируй сначала.
В обратную сторону - аналогично.

ЗЫ А вот в НЕТе эту возможность у LSet убрали, оставив только работу со строками...

[Doctor Nestor]

цель сего действия - быстро забивать массивы.
если с Long ьмассивами прокатывает через putmem8, то с байтовыми массивами я не знаю как? ведь putmem8 берет старший и младший DWORD, и я хотел забить каждый DWORD 4 байтами. А если делать через LSet or CopyMemory то выигрыша не будет. Может есть другой способ забивать в память байтовые массивы? (быстро)

[Ennor]

Ну, значит, остается тебе только CopyMemory(). Не волнуйся, она довольно быстрая

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

' ...
redim BArr(0 to 256) as Byte
redim LArr(0 to 64) as Long
' Wanna make long #31?
call copymemory(BArr(31*4), LArr(31), 4)