Указатель на строчный массив (одномерный).

[Vi]

Мне нужно чтобы модуль класса помнил ссылку на массив модуля формы или другого модуля и мог с ним работать не только тогда когда его передали, а в любое время. VarPtr хорошо конечно, но как я буду узнавать длину массива? Массив то динамический. Нужно чтобы модуль класса сам знал сколько у массива элементов.

Самый простой путь - получить Variant по ссылке и сохранить его на будущее.

В классе или еще где:

Private vPriv As Variant
Sub StoreArray(v As Variant)
' VarType(v) должен быть &H4000(VT_BYREF)+&H2000(vbArray)+vb...(vbLong и т.д.)
' Это можно (или нужно) проверять
CopyMemory vPriv, v, 16
End Sub

И вызов
Dim x() As Long, x2(2) As Long, s() As String, s2(2) As String
ReDim x(2), s(2)
StoreArray x
StoreArray x2
StoreArray s
StoreArray s2

До тех пор, пока исходный массив существует в памяти, vPriv будет указывать на этот массив.

А использовать этот массив в классе или еще где так: vPriv(i) без всяких там API.

[BP]

Спасибо попробую

[BP]

Всё гениальное просто
А почему копируется 16 байт?

[Vi]

А почему копируется 16 байт?

Таков размер VARIANTа в С. Здесь же достаточно скопировать 12 байт: 2 байта типа + 6 неиспользуемых байт + 4 байта указателя. Но для простоты копируем полностью.

[BP]

Ага, так и запишем в коментариях.

[BP]

И потом, я же уже давал ссылку на топик в трёпе, где обсуждался вызов функций по указателю. Я там кое-что добавил. Посмотри последний пример и .dll к нему.

Ты нашёл что то новенькое? Сейчаз поищу. Хотя мне DLL нежелательна.

[Approximator]

Мне нужно чтобы модуль класса помнил ссылку на массив модуля формы или другого модуля и мог с ним работать не только тогда когда его передали, а в любое время. VarPtr хорошо конечно, но как я буду узнавать длину массива? Массив то динамический. Нужно чтобы модуль класса сам знал сколько у массива элементов.

Самый простой путь - получить Variant по ссылке и сохранить его на будущее.

Дык, я уже ему пример с Varint'ом предложил (на предыдущей странице).

[BP]

Всем спасибо. Качайте по этой ссылке.
http://basicproduction.nm.ru/clrlist2.rar

[SCINER]

Цель.
Обращаться к массиу байтов расположенному в модуле, но через Class.

Но есть проблема.
Похоже что-то неправильно делаю
Сорс прилагаю.

[Viper]

2SCINER а на кой тебе понадобилось так хитро обращаться к массиву байтов... через указатель... через тип Variant...

Почему бы не написать класс с таким кодом (чисто для примера)

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

Private m_array() As Byte
Public Sub Init(iMax As Integer, jMax As Integer, kMax As Integer)
ReDim m_array(0 To iMax, 0 To jMax, 0 To kMax)
End Sub
Public Property Get Data(i As Integer, j As Integer, k As Integer) As Byte
Data = m_array(i, j, k)
End Property
Public Property Let Data(i As Integer, j As Integer, k As Integer, value As Byte)
m_array(i, j, k) = value
End Property

и юзать это такой методой:

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


Dim c As New MyClass
c.Init(100, 100, 100)
'устанавливаем значение
с.Data(10, 10, 10) = 100
'считываем значение
Debug.Print c.Data(10, 10, 10)


Можно свойство Data сделат свойством по умолчанию, еще проще будет

[SCINER]

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

Это ведь используется в графическом редакторе.

[Viper]

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

Как это? Доступ к байтам через Variant получается быстрее, чем доступ к ним же напрямую??? Не верю!

[SCINER]

я говорю, что доступ к ним из методов класса медленней в сотни раз, чем например все тоже самое но из модуля.

остальное меня все устраивает.

попробуй код из класса перекинуть в модуль.
тут-же все заработает нормально.

[Viper]

А зачем тебе тогда вообще класс? Пусть все работает в модуле... Ну и если уж делать через класс, то зачем мудрить с типом Variant. Замедление то здесь происходит. Да и ошибок можно наловить всфких разных.

Короче, имеет место быть странная архитектура проги