Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003791 Thu, 03 Jul 2008 11:55:15 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003791
Добавлено
Кстати, в комментариях к статье предложен как раз подход без функций SafeArrayЛяляля - там предлагается рядом с объявлением массива объявлять и его SAFEARRAY, а размерности (которые могут быть разными) как-то хитро хранить в строках (я недопонял).

Так мой способ с сохранением адреса старых данных, мне кажется, тоже не так уж и плох. Тем более, что заморачиваться по поводу полей стуктуры вообще не пришлось бы, а один лонг, лежащий рядом с массивом - это даже меньше, чем одна SAFEARRAY, лежащая там же.]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003729 Thu, 03 Jul 2008 11:20:08 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003729 Цитата Артур @
какой смысл инициировать?


Что бы было совсем красиво. Это не обязательно.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003671 Thu, 03 Jul 2008 10:41:17 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003671 B.V.
Ну так lLbound ведь ноль - какой смысл инициировать?

А cDims, вроде бы, заполняется самой SafeArrayAllocDescriptor - у меня размерность одна, так что я сразу 1 и записал]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003586 Thu, 03 Jul 2008 09:28:23 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003586 Цитата Артур @
А то, как я переписал - правильно?


Вроде как да. Только ты оставил непроинициализированными cDims и lLbound.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003362 Thu, 03 Jul 2008 07:10:06 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003362
А то, как я переписал - правильно? Вроде, работает.]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003282 Thu, 03 Jul 2008 06:09:59 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003282 Цитата Артур @
В таком случае, к чему был этот совет?


Ой, сам не знаю :) В общем, первые два пункта -- SafeArrayAllocDescriptor.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003234 Thu, 03 Jul 2008 04:41:26 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2003234 B.V.
Ты переоцениваешь мою способность понимать такие статьи. Читал, и уже не один раз (и даже, наверное, не десять). И с каждым разом всё больше понятно... Сейчас уже понимаю процентов 5.

В основном, понятным становится то, что получается использовать. Как использовать CreateSAFEARRAY, мне не понятно. Ну тупой я. Кстати, массив всё рано нужно будет уничтожать самому - ну и какая тогда разница: так создавать и уничтожать или как у меня? Только в том, что с каждой строкой я храню один лонг? Ну ещё в том, что мой вариант не так изящен. Зато я сам до него додумался.


Цитата
Надо объявить структуру SAFEARRAY
В таком случае, к чему был этот совет? у Сергея структура не объявлена (просто описана), а заполняет он её теми же гетмем и путмем. Да ещё наводящим на меня ужас SafeArrayAllocDescriptor

Кстати, сейчас ещё раз перечитал эту CreateSAFEARRAY - она, оказывается, уже почти понятна :) Через годик уже смогу использовать.

Добавлено
Ну вот - и года не прошло...

    Option Explicit
     
    Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (ByRef pArr() As Any) As Long
    Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long)
    Public Declare Function PutMem4 Lib "msvbvm60" (ByVal pDst As Long, ByVal NewValue As Long) As Long
    Private Declare Sub SafeArrayAllocDescriptor Lib "oleaut32.dll" (ByVal cDims As Long, ppsaOut As Any)
    Private Declare Sub SafeArrayDestroyDescriptor Lib "oleaut32.dll" (psa As Any)
     
     
    Public Function stringIsBytes(s As String, b() As Byte) As Long
     
        Dim psa As Long, pAr As Long
        pAr = ArrPtr(b)'адрес массива
        GetMem4 pAr, VarPtr(psa) 'в pSa получить адрес на SAFEARRAY массива
        
        If psa = 0 Then 'массив ещё не проредимлен
           SafeArrayAllocDescriptor 1, ByVal pAr 'выделяем новый дескриптор массива и память под него
           GetMem4 pAr, VarPtr(psa) 'получаем дескриптор SAFEARRAY
           PutMem4 psa + 4, 1 'записываем размер элемента массива (массив байтовый, так что 1)
        End If
        
        Dim pStr As Long
        pStr = StrPtr(s) ' адрес данных строки
     
        GetMem4 VarPtr(pStr), (psa + 12) 'подмена данных массива данными строки
        
        PutMem4 psa + 16, LenB(s) 'записать длинну массива в SAFEARRAY.rgsabound.cElements
        
    End Function
     
    Public Sub DestroySAFEARRAY(b() As Byte)
      Dim psa As Long, pAr As Long
      pAr = ArrPtr(b)
      GetMem4 pAr, VarPtr(psa)
      If psa Then
        SafeArrayDestroyDescriptor ByVal psa
        PutMem4 pAr, 0
      End If
    End Sub
]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002973 Wed, 02 Jul 2008 18:59:06 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002973 Цитата Артур @
допустим, я в функции объявляю sf as SAFEARRAY, заполняю поля и пристёгиваю её к массиву


Эм. А ты правда читал те статьи, ну к которым тебя направили и с которых у тебя мысль появилась? Или ты дальше заголовка их не читал?
http://www.vbstreets.ru/VB/Articles/65977.aspx, обрати внимание на функцию CreateSAFEARRAY.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002889 Wed, 02 Jul 2008 17:38:34 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002889 Цитата
Ну разумеется.


Мой вариант может и корявый, но мне понятный. А вариант с объявлением SAFEARRAY я представляю довольно смутно, и он мне не то чтобы сильно понятен. Если разберусь, то сделаю... но пока не разобрался.

допустим, я в функции объявляю sf as SAFEARRAY, заполняю поля и пристёгиваю её к массиву. Но после выхода из функции sf ведь умрёт и память, выделенная под неё, освободится?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002796 Wed, 02 Jul 2008 16:39:48 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002796 Цитата B.V. @
Надо объявить структуру SAFEARRAY, выделить под неё память, присвоить указатель, ручками проинициализировать

И ничего не придётся запоминать, возвращать...]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002773 Wed, 02 Jul 2008 16:25:29 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002773 B.V.
А по какому поводу сарказм? как было бы лучше?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002763 Wed, 02 Jul 2008 16:20:25 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002763 B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002683 Wed, 02 Jul 2008 15:08:29 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002683
    Option Explicit
     
    Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (ByRef pArr() As Any) As Long
    Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long)
    Public Declare Function PutMem4 Lib "msvbvm60" (ByVal pDst As Long, ByVal NewValue As Long) As Long
     
    '_____________________________________________________________________________________________________
     
    Public Function stringIsBytes(s As String, b() As Byte) As Long 'функция будет возвращать адрес данных массива до подмены
                                                                    '(или ноль, если массив уже привязан к строке)
     
        Dim pSa As Long
        GetMem4 ArrPtr(b), VarPtr(pSa) 'в pSa получить адрес на SAFEARRAY массива
        
        If pSa = 0 Then 'массив ещё не проредимлен
          ReDim b(0) As Byte
          b(0) = 98 'чтобы перед уничтожением проверить, а вернулись ли данные на место. Потом закомментирую
          GetMem4 ArrPtr(b), VarPtr(pSa)
          
          Dim pOld As Long
          GetMem4 (pSa + 12), VarPtr(pOld) 'запоминаем данные по этому адресу (потому что мы их сейчас перепишем)
          stringIsBytes = pOld 'функция возвращает адрес старых данных
        End If
        
        Dim pStr As Long
        pStr = StrPtr(s) ' адрес данных строки
     
        GetMem4 VarPtr(pStr), (pSa + 12) 'подмена данных массива данными строки
        
        PutMem4 pSa + 16, LenB(s) 'записать длинну массива в SAFEARRAY.rgsabound.cElements
        
    End Function
     
    '_____________________________________________________________________________________________________
     
    Public Sub DestroySAFEARRAY(b() As Byte, pOld As Long)
          Dim pSa As Long
          GetMem4 ArrPtr(b), VarPtr(pSa) 'получаем адрес SAFEARRAY
          If pSa Then
            GetMem4 VarPtr(pOld), (pSa + 12)  ' записываем старые данные на место
            PutMem4 pSa + 16, 1 ' записываем старую длинну (у нас был там всего один меченый байт)
            Debug.Print b(0) 'проверяем, вернулись ли старые данные на место (должно быть 98)
            Erase b
          End If
    End Sub


Специально пометил неприкаянный байт перед подменой, чтобы проверить, вернётся ли он на место перед уничтожением. Вернулся. Вроде бы, вопрос решён?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002615 Wed, 02 Jul 2008 14:03:00 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002615 Цитата Артур @
А от чего это зависит?


От того, чем выделялась память.

Цитата Артур @
А эта пристёгнутая структура должна же будет где-то жить? Под неё же тоже нужно выделять память? а потом и удалять? и всё это во что-то запоминать?


Ну разумеется.

Цитата Артур @
Может, лучше этот способ?


Можешь сделать так.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002607 Wed, 02 Jul 2008 13:58:02 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002607 Цитата B.V. @
Можно, конечно. Только надо знать, чем (CoTaskMemFree/LocalFree/HeapFree...).

А от чего это зависит?

Цитата B.V. @
GetMem4 pMySA, ArrPtr(bArr)
А эта пристёгнутая структура должна же будет где-то жить? Под неё же тоже нужно выделять память? а потом и удалять? и всё это во что-то запоминать?

Цитата Артур @
может, запоминать адрес данных массива после redim b(0) и до подмены данных? А затем вместо уничтожения возврощать b исходное состояние
Может, лучше этот способ? Или с ним что-нибудь не так?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002563 Wed, 02 Jul 2008 13:30:25 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002563 Цитата Артур @
Ну а если самому заполнить структуру - как её потом пристегнуть к массиву-то?


Гм. Так...
    GetMem4 pMySA, ArrPtr(bArr)


Цитата Артур @
А может всё же можно как-нибудь вручную освободить этот единственный байт - ведь его адрес известен?


Можно, конечно. Только надо знать, чем (CoTaskMemFree/LocalFree/HeapFree...).]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002512 Wed, 02 Jul 2008 12:55:39 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002512 B.V.
Вроде бы, как раз изменяет - после неё массив пуст. Ну а если самому заполнить структуру - как её потом пристегнуть к массиву-то?

А может всё же можно как-нибудь вручную освободить этот единственный байт - ведь его адрес известен? Как вариант борьбы с моветоном: может, запоминать адрес данных массива после redim b(0) и до подмены данных? А затем вместо уничтожения возврощать b исходное состояние. Тогда ведь он сам уничтожится без всякой утечки?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002350 Wed, 02 Jul 2008 11:17:33 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002350 Цитата Артур @
один неприкаяный байт прога как-нибудь переживёт


Это уже моветон. Утечек допускать нельзя.

Еще раз по поводу всей этой затеи с массивом и строкой... если SafeArrayDestroyData освобождает только данные, не изменяя остальные поля структуры, то делай себе ReDim на здоровье (разумеется, перед вызовом SafeArrayDestroyData). Если же SafeArrayDestroyData все-таки изменяет остальные поля -- то
Цитата B.V. @
Надо объявить структуру SAFEARRAY, выделить под неё память, присвоить указатель, ручками проинициализировать
]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002271 Wed, 02 Jul 2008 09:58:55 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002271 B.V.
Мне кажется, что после redim b(0) все поля, кроме длинны массива, уже нормально проинициализованы. Длину я могу вписать PutMem4 pSa + 16, LenB(s) А один неприкаяный байт прога как-нибудь переживёт.

А может, вообще не редимить, если хоть однажды проредимлен? Тогда ведь неприкаяный байт возникнет только при первом обращении к функции. Просто массив нигде снаружи не редимить, а управление памятью оставить за ведущей строкой. Получится по однму неприкаяному байту на каждый массив.

    Public Sub stringIsBytes(s As String, b() As Byte)
     
        Dim psa As Long
        GetMem4 ArrPtr(b), VarPtr(psa) 'в pSa получить адрес SAFEARRAY
        
        If psa = 0 Then 'массив ещё не проредимлен
          ReDim b(0) As Byte
          GetMem4 ArrPtr(b), VarPtr(psa)
        End If
        
        Dim pStr As Long
        pStr = StrPtr(s) ' адрес данных строки
     
        GetMem4 VarPtr(pStr), (psa + 12) 'подмена данных массива данными строки
        
        PutMem4 psa + 16, LenB(s) 'записать длинну массива в SAFEARRAY.rgsabound.cElements
        
    End Sub

А чтобы бейсик сам не уничтожал массивы, делать так:

    Public Sub DestroySAFEARRAY(b() As Byte)
      Dim pSa As Long, pAr As Long
      pAr = ArrPtr(b)
      GetMem4 pAr, VarPtr(pSa)
      If pSa Then
        SafeArrayDestroyDescriptor ByVal pSa
        PutMem4 pAr, 0
      End If
    End Sub


А до того, как байт станет неприкаеным, мы ведь можем узнать, где он лежит - может его можно освободить как-нибудь вручную?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002136 Wed, 02 Jul 2008 08:35:58 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002136 Цитата Артур @
а те, что мы самы выделили, остаются где-то в пустоте. Правильно понял?


Правильно

Добавлено
Цитата Артур @
Значит, LenB(s) нужно записать в SAFEARRAY.rgsabound.cElements? так что ли?


Вот тут не уверен. Не уверен, что SafeArrayDestroyData затирает это поле.

Цитата Артур @
Вроде, работает. Не редимить совсем не получилось - у пустого массива pSa=0


Надо объявить структуру SAFEARRAY, выделить под неё память, присвоить указатель, ручками проинициализировать... Слушай, а оно тебе надо?]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002115 Wed, 02 Jul 2008 08:18:54 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002115
Значит, LenB(s) нужно записать в SAFEARRAY.rgsabound.cElements? так что ли?

Добавлено
Написал так:
    Public Sub stringIsBytes(s As String, b() As Byte)
        
          Erase b
    '      ReDim b(LenB(s) - 1) As Byte
          ReDim b(0) As Byte
     
        Dim pSa As Long
        GetMem4 ArrPtr(b), VarPtr(pSa)
        
        
        Dim pStr As Long
        pStr = StrPtr(s)
     
        GetMem4 VarPtr(pStr), (pSa + 12)
        PutMem4 pSa + 16, LenB(s)
        
    End Sub

Вроде, работает. Не редимить совсем не получилось - у пустого массива pSa=0]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002106 Wed, 02 Jul 2008 08:13:03 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002106 ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002095 Wed, 02 Jul 2008 08:06:36 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002095 ANDLL
Но ведь это та же самая память, которая в строке - она не освободится вместе со строкой?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002087 Wed, 02 Jul 2008 08:00:14 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002087 ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002085 Wed, 02 Jul 2008 07:57:17 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002085 ANDLL
Ну так раскрой мысль. И почему нельзя - чем черевато?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002080 Wed, 02 Jul 2008 07:53:39 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002080 Я же говорю, инициализировать поля структуры лучше без Redim, ручками.]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002068 Wed, 02 Jul 2008 07:45:03 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002068 ANDLL
То есть, можно вот так:
    Public Sub stringIsBytes(s As String, b() As Byte)
      
          Erase b
          ReDim b(LenB(s) - 1) As Byte
     
        Dim psa As Long
        GetMem4 ArrPtr(b), VarPtr(psa)
        
        Dim pStr As Long
        pStr = StrPtr(s)
        GetMem4 VarPtr(pStr), (psa + 12)
        
    End Sub
]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002041 Wed, 02 Jul 2008 07:21:42 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002041 Нужно вместо redim использовать Erase (для очистки от старых данных если они были) а затем ручками выставлять все поля структуры.]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002032 Wed, 02 Jul 2008 07:17:00 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2002032 Цитата Артур @
А строки устроены не так, как байтовые массивы? в смысле, у них нет SAFEARRAY?


[Общее] Устройство некоторых типов данны

Цитата Артур @
Но данные в b() не пропадают. Интересно, почему


Вероятно, потому, что память не затирается при удалении, а просто помечается как свободная.

Цитата Артур @
есть подозрение, что они просто помечаются как неиспользуемые и через какое-то время в них может оказаться что-то совсем левое


Весьма вероятно :)

Цитата Артур @
SafeArrayDestroyData попробовал прикрутить так:


Я SafeArrayDestroyData предложил просто как вариант. Я не знаю, стоит (и можно) ли её тут использовать или нет.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001981 Wed, 02 Jul 2008 06:49:56 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001981 B.V.
Спасибо! Даже уже почти понял. А строки устроены не так, как байтовые массивы? в смысле, у них нет SAFEARRAY?

Насчёт редимов методом тыка выяснил следующее: если обнулить или переписать строку, связь прерывается (как мне объяснили, под строку выделяется новый адрес и новый участок памяти). Но данные в b() не пропадают. Интересно, почему - ведь если обычную строку обнулить, данные в ней вроде как должны очиститься? Если редимить b(), то связь сохраняется, но строка не увеличивается (это вроде бы понятно), но и не уменьшается - получается, данные опять же не очищаются? (есть подозрение, что они просто помечаются как неиспользуемые и через какое-то время в них может оказаться что-то совсем левое?)

SafeArrayDestroyData попробовал прикрутить так:
    Public Sub stringIsBytes(s As String, b() As Byte)
        
        ReDim b(LenB(s) - 1) As Byte
        
        Dim psa As Long
        GetMem4 ArrPtr(b), VarPtr(psa)
        SafeArrayDestroyData ByVal psa
        Dim pStr As Long
        pStr = StrPtr(s)
        
        GetMem4 VarPtr(pStr), (psa + 12)
        
    End Sub

Правильно?

Добавлено
Всё-таки, мне кажется, что если уж очищать данные массива, то перед редимом, а не после. Может, вот так:

    Public Sub stringIsBytes(s As String, b() As Byte)
        
        Dim psa As Long
        GetMem4 ArrPtr(b), VarPtr(psa)
     
        If psa Then
          SafeArrayDestroyData ByVal psa
          ReDim b(LenB(s) - 1) As Byte
        Else
          ReDim b(LenB(s) - 1) As Byte
          GetMem4 ArrPtr(b), VarPtr(psa)
        End If
      
        Dim pStr As Long
        pStr = StrPtr(s)
        
        GetMem4 VarPtr(pStr), (psa + 12)
        
    End Sub
]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001553 Tue, 01 Jul 2008 17:53:26 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001553 Цитата Артур @
А как это работает, не расскажешь?


Все уже рассказано в тех статьях, к которым тебя направили. Если коротко -- из указателя на указатель на SAFEARRAY я получаю указатель на SAFEARRAY, затем просто копирую в SAFEARRAY::pvData указатель на строку.

Цитата Артур @
Что такое 12?


Это смещение, по которому находится pvData (указатель на данные).

Единственное, что не помешало бы проверить -- чему равен pvData сразу после ReDim. Если он указывает на данные, то их, наверно, надо как-то освобождать перед подменой указателя (SafeArrayDestroyData?).]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001529 Tue, 01 Jul 2008 17:38:27 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001529
А как это работает, не расскажешь? Секрет фонкуса, так сказать?

Что такое 12? какой-то сдвиг в три лонга?

Переписал в процедуру, взгляни, всё правильно:
    Public Sub stringIsBytes(s As String, b() As Byte)
     
        ReDim b(LenB(s) - 1) As Byte
        
        Dim pSA As Long
        GetMem4 ArrPtr(b), VarPtr(pSA)
        
        Dim pStr As Long
        pStr = StrPtr(s)
        
        GetMem4 VarPtr(pStr), (pSA + 12)
        
    End Sub


Надо ли как-то по-особенному обращаться с полученным массивом (как-нибудь не просто так удалять или ещё чего)?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001315 Tue, 01 Jul 2008 13:37:03 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001315
    Option Explicit
     
    Private Declare Function ArrPtr Lib "msvbvm60" Alias "VarPtr" (ByRef pArr() As Any) As Long
    Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long)
     
    Private Sub Form_Load()
        Dim bArr(0 To 23) As Byte
        Dim strFoo As String
        Dim pSA As Long
        strFoo = "some text"
        
        GetMem4 ArrPtr(bArr), VarPtr(pSA)
        
        Dim pStr As Long
        pStr = StrPtr(strFoo)
        
        GetMem4 VarPtr(pStr), (pSA + 12)
        
        bArr(2) = Asc("n")
        
        MsgBox strFoo
    End Sub


Аплодисменты...]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001118 Tue, 01 Jul 2008 11:00:21 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001118 B.V.
Там направили. Правда, как раз туда, откуда у меня сама мысль появилась.

А чё, если в одном месте спросил, в другом уже нельзя спрашивать?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001114 Tue, 01 Jul 2008 10:55:23 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001114 B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001102 Tue, 01 Jul 2008 10:47:40 +0000 Как устроить такой фокус: строка как байтовый массив https://forum.sources.ru/index.php?showtopic=241951&view=findpost&p=2001102
На сколько я понимаю, такое должно получиться, если та и другая переменная будут пользоваться одним и тем же указателем... Я правильно понимаю?]]> Артур Visual Basic: Общие вопросы