VB and VC++ DLL общие данные в программе.

[Fedorfx]

Всем привет.
Пишу прогу на VB, а некоторые функции пишу на VC++.
Так вот в вызываемые функции постоянно передаю некоторые данные из программы.
1-А можно ли в моей DLL как нибудь получить ссылку на какой либо обьект в проге и брать данные оттуда? чтоб не передавать постоянно одни и те же данные.
2- И еще, можно ли например создать массив в VB, передать его в DLL, там изменить размер и вернуть????
3-И можно ли передавать в DLL классы и типпы??
Всем спасибо.

[GSerg]

Да на здоровье.
Все классы в VB - COM объекты и имплементят IDispatch.
Все массивы - SAFEARRAY, функции для работы есть в oleaut32.

[Fedorfx]

ОПссс.
Честно говоря не все понял.
Нет ли исходника для примера??? или пару строк кода здесь.

[Ennor]

ОПссс.

Не обращай внимания, это у GSerg, по ходу, такие шутки юмора. Но на самом деле он прав.
Массивы переопределять нельзя - это раз. Если, конечно, ты работаешь с ним по правилам С++, а не OLE. Далее, классы и типы - см. высказывание вышеупомянутого уважаемого господина. Весь геморрой по работе с ActiveX COM в С++ - твой. Иначе - никак.

[GSerg]

Честно говоря, я долго пытался передать в библу на C++ SAFEARRAY, но у меня это не получилось. Указатель на первый элемент - запросто, а вот на сам SAFEARRAY - ни фига. Bad dll calling convention - хоть stdcall, хоть cdecl, хоть даже fastcall.

[Vi]

Bad dll calling convention - хоть stdcall, хоть cdecl, хоть даже fastcall.

Нужно использовать ТОЛЬКО stdcall, никаких cdecl или fastcall.

Честно говоря, я долго пытался передать в библу на C++ SAFEARRAY, но у меня это не получилось. Указатель на первый элемент - запросто, а вот на сам SAFEARRAY - ни фига.

На C:

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

SAFEARRAY* __stdcall funcWithArray(SAFEARRAY* *ppsa) {...}
void __stdcall subWithArray(SAFEARRAY* *ppsa) {...}


На VB, если массив Long-ов - проверки сответствия типов нет: как написал, так и будет:

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

Private Declare Function funcWithArray Lib "WithArraydll" (arr() As Long) As Long()
Private Declare Sub subWithArray Lib "WithArraydll" (arr() As Long)


[GSerg]

НИ Х СЕБЕ
Сколько лет живу на свете, но чтобы функции на VB возвращали указатель на массив... И ведь работает же...

Так. Внимание, вопрос.

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

Option Explicit

Function aaa() As Long()
  ReDim aaa(1 To 5)
  MsgBox UBound(aaa)
  'aaa()(3) = 7
End Function

Private Sub Form_Load()
  MsgBox aaa()(3)
End Sub

Спрашивается, как установить значение элемента такого массива? Строка закомментирована, ибо не работает.

[GSerg]

Мдя

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

В общем, http://msdn.microsoft.com/library/defau ... arrays.asp