Битовые операции с переменной String

[Don Leno]

Салют всем!
Итак, есть функция которая получает изображение и создает ее черно-белый "эскиз". После "эскиз" заносится в массив Hash() as Long через битовые операции. Но вот проблема - как функция должна возвращать значение этой цепочки битов в массиве, т.е. вернуть сам массив. Как это сделать?
Мое предположение - создать переменную типа String и перенести всю цепочку битов в нее, а после функция вернет как String значение, которое будет считываться и сравниваться с другими теми же битовыми операциями. Но встает вопрос - как это реализовать?

[pronto]

Указатель на первый элемент массива lpThumb& = VarPtr(Hash(0))

[Don Leno]

pronto, а можно по подробней? Допустим получили указатель а как дальше с ним работать?

[Teranas]

А зачем нужен вообще String, если уже есть массив Long, Long будет сравниваться быстрей чем String.

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

Function CompareHesh(Lh1() As Long, Lh2() As Long) As Boolean
  Dim i As Long
  For i = LBound(Lh1()) To UBound(Ln1())
    If i > UBound(Lh2()) Then Exit Function
    If Lh1(i) <> Lh2(i) Then Exit Function
  Next i
  CompareHesh = True
End Function


[pronto]

По указателю копировать в свой массив

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

Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" (ByVal Dest As Long, ByVal Source As Long, ByVal Length As Long)
' Dest - приёмник (куда?)
' Source - источник (откуда?)

Dim HashCopy() As Long

ReDim HashCopy(UBound(Hash))

' в массив HashCopy копируется содержимое массива
CopyMemory VarPtr(HashCopy(0)), VarPtr(Hash(0)), (UBound(Hash) + 1) * LenB(Hash(0))

Если функция вычисления твоя, то есть ещё вариант — передавать в функцию массив HashCopy по ссылке: CalcHash(... , ByRef HashData() As Long, ...)

Использование в коде:

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

Dim HashCopy() As Long

CalcHash(... , HashCopy(), ...)

Debug.Print Hex(HashCopy(0)), UBound(HashCopy)

Такой вариант предпочтительней из-за отсутствия этапа копирования массива.

[alibek]

If i > UBound(Lh2()) Then Exit Function

А зачем это проверять внутри цикла?

[Don Leno]

Спс за столь подробные изъяснения.
Вот что требуется мне:

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

Private Function MyFunc ()
' Здесь в массив Hash() вносятся данные
' И только после всех действий:
MyFunc=Hash()
End Function

Как вернуть массив чтобы потом им можно было пользоваться????!!!!
К примеру мог написать так:

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

Dim buf() as long
BUF()=MyFunc()

Возможен ли такой код? Если нет, тогда я воспользуюсь другим предложеным вами способом.

[The trick]

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

Dim buf() as long
BUF()=MyFunc()

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

Option Explicit

Sub Main()
    Dim j() As Long
   
    j = z
   
End Sub


Function z() As Long()
    Dim p() As Long
   
    ReDim p(...)
   
    ...
   
    z = p
   
End Function


[Don Leno]

Спс всем!