Передача массивов из VBA в DLL (BCB) и обратно

[shvevgen]

Вопрос: Как передавать одномерные и двумерные массивы из VisualBasic в DLL (созданную в C++Builder) и обратно после их изменения в процессе вычислений в DLL?
В момент компиляции размер неизвестен, т. е. массив динамический.
Сколько ни парился ничего не получилось:
Передаю массив из VBA в С++ DLL по ссылке. А там (в DLL) какой - то мусор

[Igor_123]

Почитай об VARIANT.
А к чему такой гемморой???

[shvevgen]

А при чем здесь Variant. Мне надо передавать массивы целого или вещественного типа.

[GSerg]

Сигнатуру функции покажи.

[shvevgen]

Объявление и вызов функции из DLL в VBA у меня такие:

Public Declare Sub MyDllFunction Lib "Project1.dll" (MyArray() As Double)
.
.
.
Public Sub MySub()
Dim array() As Double
.
.
.
ReDim array(0 To n)
.
.
.
MyDllFunction(array)

End Sub
//__________________________________________________________________________
В C++ DLL экспортируемая функция имеет следующий код

extern "C" __declspec(dllexport) void __stdcall MyDllFunction(double *CongArray);

void __stdcall MyDllFunction(double *CongArray)
{
.
.
.
//Здесь CongArray содержит всякую хрень, но только не то, что я передавал.

}

[GSerg]

Мда

0. RTFM. Эта тема обсуждалась сотни раз
1. Изменить (double *CongArray) на (double *CongArray, int Count)
2. Изменить (MyArray() As Double) на (ByRef MyArray As Double, ByVal Count as long)
3. Вызов:

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

redim arr(0 to n)
MyDllFunction arr(lbound(arr)), ubound(arr)-lbound(arr)+1

[shvevgen]

GSerg, спасибо за ответ.
Передать массив из VBA программы в C++ DLL получилось! Но тут же возникла обратная проблема: как сделать, чтобы C++ DLL вернула двухмерный массив в VBA программу. Размер массива не известен в VBA, определяется в DLL.

[GSerg]

Тогда в своей библиотеке обрати внимание на функции, начинающиеся с SafeArray*. В VB параметр объяви как MyArray() As Double, а в C++ как SAFEARRAY** MyArray.