SAFEARRAY Tricks

[GSerg]

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

[Fedorfx]

Есть несколько различных классов
Один - хранилище данных
Остальные - обработчики этих данных
Цель - получить доступ к данным класса для последующей обработки с наименьшими потерями времени. ( сейчас использую такой метод
Arr1=Arr2) Arr1 -массив переменной длинны.
Думаю сделать так
Создать в классах обработчиках массивы и перенаправить адреса на адрес главного массива.
Трудности -
При удалении класса обработчика некорректно удаляется ссылка на массив.

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

  Dim Adr as long
  Dim r1(1 To 10) as long
  Dim r2(1 To 1) as long

  r1(1) = 33
  GetMem4 ArrPtr(r1), ArrPtr(r2)
' До сих пор все ок
' Пытаюсь удалить массив r1
  GetMem4 r2, VarPtr(Adr)
  SafeArrayDestroyDescriptor ByVal Adr
' Вот после этой строчки глюки ( массив становится интом
  PutMem4 12, 0


А если удаляю Erase R2 то первый массив удаляется корректно а второй с ошибкой.

[GSerg]

1. Все массивы сделать динамическими.
2. Хранилище данных должно создаваться раньше обработчиков, инициализация его массива встроенными средствами VB.
3. Обработчик содержит пустой динамический массив.
4. При создании обработчика вызывать CreateSAFEARRAY, указывая в качестве источника данных VarPtr первого элемента массива хранилища.
5. Обработчики должны уничтожаться раньше хранилища. При этом вызывается DestroySAFEARRAY.
6. Последним уничтожается хранилище. Никаких tricks, VB всё сделает сам.

[Fedorfx]

Тут вот какой замут
Хочется в классе 1 сделать массив с данными
Сделать в классе 2 указатель на массив и направить его на 1й массив
дальше работать с классом 2
если произойдут изменения с массивом 1 ( данные или размер) то указатель во втором классе все это отобразит

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

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

GetMem4 ArrPtr(r1), ArrPtr(r2)


И это класно работает. Я имею массив в многих местах одновременно.
и тогда мне не надо каждый раз обновлять указатель.
Но тут бяка - как порвать этот порочный круг, при убийстве любого из массивов второй на какое то время указывает на несуществующий участок памяти, и прога вместе в VB летит в тартарары

Есть у кого какие мысли по этому поводу??

[GSerg]

Ну тогда любой массив, созданный через GetMem4, нужно убивать через PutMem4 arrptr(r2), 0.

[Fedorfx]

Я тоже до этого допер, только уже засыпал, и лень вставвать было.
P.S. Хочу сказать большое спасибо за столь познавательные и полезные топики ( сейчас вникаю в АСМ.Кстати есть ли там какие либо мысли по передаче аргументов из реалтайма. Примерчик бы )

[GSerg]

Что есть "передача аргументов из реалтайма"? Примерчик, плз

[alibek]

Винда не является операционной системой реал-тайм, так что строить на ее основе реал-тайм подсистемы не совсем правильно.

[GSerg]

Правильно! (только я ни черта не понял)
Только там (как я наконец-то посмотрел) речь шла об использовании в асм-коде переменных VB

[GSerg]

Всё-таки пробивать стены головой возможно
Вот как можно получить (SAFEARRAY**) стрингового массива:

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

Public Function StrArrPtr(arr() As String, Optional ByVal IgnoreMe As Long = 0) As Long
  GetMem4 VarPtr(IgnoreMe) - 4, VarPtr(StrArrPtr)
End Function


Второй параметр игнорим. Всегда и везде.


Как думаете, стоит всё это (и другое ) оформить поструктурнее, и чтобы Гайдар выложил где следует?

[TEH3OP]

Ежели он -- адрес постоянный, то его мона просто получить, выковырив из Variant'а. Для этого надо присвоить какой-нить Variant переменной, созданный массив и скопировать оный Variant на такую чтучку:

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

Public Type VariantInfo
    vt As Integer
    wReserved1 As Integer
    wReserved2 As Integer
    wReserved3 As Integer
    LoUnion As Long
    HiUnion As Long
End Type


В LoUnion буит ссылка на SAFEARRAY.

Спасибо за внимание...

PS: Копировать так:

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

CopyMemory <имя пременной типа VariantInfo>, <имя переменной типа Variant>, 16&