FreePascal.ru

Собрал работающий код:

VBA
Private Declare Sub test Lib "test.dll" (ByRef tabl1() As Double)
Sub TWS()
Dim tabl1(0 To 7) As Double
MsgBox (tabl1(6))
Call test(tabl1)
MsgBox (tabl1(7))
End Sub

Delphi
unit testU;
interface
uses ActiveX,SysUtils;
procedure test(var tabl1: PSafeArray); stdcall ...

Widowmaker писал(а):type TRealVector = array of double;
procedure test(const size_of_tabl1: longint; var tabl1: TRealVector); export; stdcall;

А как при этом выглядит обращение из VBA к test?

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

А обойтись без SAFEARRAY никак нельзя?

При выполнении макроса при обращении к test
выдается сообщение:
run-time error "49"
bad DLL calling convention

Если параметры не массивы, все работает.
Ниже привожу исходники.
Спасибо



<<----------------- ЭТО FPC ----------------------------->>
unit testU;
interface
procedure test(var tabl1 ...