Строка и байтоввый массив

[Antonariy]

Можно ли сделать так, чтобы строковая переменная и байтовый массив указывали на одну и ту же облать памяти? То есть изменил данные в x() As Byte - изменились данные в y As String.

[GSerg]

modSAFEARRAY в кирпичах.
Только интеджеровый массив тогда.

[CodeName33]

Можно попробовать так:
Декларации:

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

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" (Ptr() As Any) As Long

Private Type SAFEARRAYBOUND
    cElements As Long
    lLbound As Long
End Type
Private Type SAFEARRAY
    cDims As Integer
    fFeatures As Integer
    cbElements As Long
    cLocks As Long
    pvData As Long
    Bounds(0 To 0) As SAFEARRAYBOUND
End Type

Init:

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

Dim SA as SAFEARRAY,MyArray() As Byte
With SA
  .cbElements = 1
  .cDims = 1
  .Bounds(0).lLbound = 0 'Lbound
  .Bounds(0).cElements = 1 'Ubound
  .pvData = 0 'Pointer Here
End With
CopyMemory ByVal VarPtrArray(MyArray), VarPtr(SA), 4

Destroy:

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

CopyMemory ByVal VarPtrArray(MyArray), CLng(0), 4

Эта конструкция позволяет сделать массив где угодно, только вот как выйди на адрес, где хранятся символы строки я не знаю.

[CodeName33]

Опоздал я Да интежеровый массив, строки вроде как в Unicode, или байтовый, но *2

[keks-n]

Эта конструкция позволяет сделать массив где угодно, только вот как выйди на адрес, где хранятся символы строки я не знаю.

StrPtr

[Antonariy]

modSAFEARRAY в кирпичах.
Только интеджеровый массив тогда.

Насчет интеджерового массива не понял, но все получилось так:

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

Dim arrMain As String
Dim arr1() As Byte
    arrMain = "12345"
    CreateSAFEARRAY ArrPtr(arr1), 2, StrPtr(arrMain), 1, Len(arrMain)
    arr1(1) = 50
    Debug.Print arrMain
    DestroySAFEARRAY ArrPtr(arr1)

Благодарю

[GSerg]

Каждый символ в строке занимает 2 байта, и массив должен быть Integer.
Что сделал ты и почему это получилось, пока непонятно, но так делать не надо.

[Antonariy]

Я сначала сделал CreateSAFEARRAY ArrPtr(arr1), 1, StrPtr(arrMain), 1, Len(arrMain) и получил именно массив строки, в которой символ занимает 2 байта (в нем оказалось пол-строки), в общем много лишних нулей, и, увидев их, как раз вспомнил про эти байты. Подумал, почему бы не попробовать длину 2? Попробовал, IDE не дрогнула.

На самом деле все понятно. Каждый элемент массива arr1 ссылается на первый байт каждого символа строки. Если сделать Debug.Print VarPtr(arr1(1)), VarPtr(arr1(2)), то можно увидеть, что их адреса отличаются на 2. В общем все это будет корректно работать пока в строке не всплывет юникодный символ - замена одного байта из двух даст не тот результат.

Интересно, как с этим массивом будет себя вести CopyMemory...

[Andrey Fedorov]

Интересно, как с этим массивом будет себя вести CopyMemory...

А ты кинь модуль со всеми декларациями, а не отдельную вырезку - посмотрим...

[Antonariy]

Модуль с декларациями в кирпичах, весь остальной код - это и есть вырезка, за исключением sub и end sub.

Проверил. Очень непредсказуемые резултаты получаются.