Tableaux de string vers dll

Bonjour,

Je cherche à passer un tableau de string depuis une application VB.NET à une dll c++. J'arrive à le faire avec un tableaux de double mais là je sèche complètement.

Code:

1
2
3
4
5
6
7
8
9
10
11
 
__declspec(dllexport) void __stdcall TestStr(BSTR *stringArray, int n)
{
	std::wstring ws;
	ws.append(L"hello");
 
	for (int i = 0; i < n; ++i)
	{
		stringArray[i] = SysAllocString(ws.c_str());
	}
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
    Private Declare Sub TestStr Lib "TESTDLL.dll" (ByRef s As String, n As Long)
 
    Public Sub Test(ByRef s() As String, n As Double)
        Dim mat(n - 1) As String
 
        Call TestStr(mat(0), n)
 
        Dim i As Long
        For i = 0 To n - 1
            s(i) = mat(i)
        Next
 
    End Sub

Merci de votre aide.