dll c++ / VBA

Version imprimable

dll c++ / VBA

Bonjour,
J'ai un petit problème avec une dll. En effet, j'aimerais manipuler des matrice avec des dll a fin de faire des calculs matriciels sous Excel. Pour cela j'ai commencé par une simple dll:
Code:

1 2 3 4 // in : matrix , out : matrix LPSAFEARRAY FAR * __stdcall Optimization(LPSAFEARRAY FAR *variance){ return variance; }
et je l'appelle sous VBA :
Code:

1 2 3 4 5 6 7 8 9 10 11 Declare Function Optimization Lib "Optimization.dll" (integerArray() As Variant) As Variant Sub test1() Dim a() As Double ReDim a(1 To 3, 1 To 3) As Double For u = 1 To 3 For v = 1 To 3 a(u, v) = 0 Next Next bb = Optimization(a()) End Sub
Comme vous pouvez le voir, c'est très simple; par contre quant je compile il me sort cette erreur : " Expression trop complex" (i.e. bb = Optimization(a()) )
Merci d'avance.

Ya²

08/04/2007, 16h05
Delbeke

Je ne connais pas la solution; mais je peux donner plusieurs pistes
le type variant de vb,je ne pense pas que ce soit la bonne façon de passer des variables vers une dll. j'essyareais plutot de declarer en long

Déclarer un tableau, pas nescessairement une bonne idée non plus, je pense, il doit suffire de passer un pointeur sur le tableau

Je verrais bien donc quelque chose comme

Code:

Declare Function Optimization Lib "Optimization.dll" (integerArray As Long) as Long

Pour compenser, si c'est toi qui a ecrit la dll en C++, il serait interessant de passer en plus le nombre d'elements du tableau
Ce qui ferait alors un definition de type

Code:

Declare Function Optimization Lib "Optimization.dll" (integerArray As Long, ByVal cCount1 As Long,, ByVal cCount2 As Long) as Long

En faisant l'appel de la fonction, on passerait alors le premier element du tableau

Code:

bb = Optimization(a(0,0),3,3)

J'ai fait comme vous m'avez conseillé mais ça marche toujours pas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
double **  __stdcall Optimization(double**variance, int  dim1, int  dim2){
 
	int i, j;
	double** weight_optim;
	for (i=0; i<dim1; i++)
	{
		for (j=0; i<dim2; i++)
		{
			variance[i][j]=1;
		}
	}
	weight_optim=variance;
    return weight_optim;
 
}

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Declare Function Optimization Lib "Optimization.dll" (integerArray As Double, ByVal cCount1 As Double, ByVal cCount2 As Double) As Double
 
 
    Sub test1()
       Dim a() As Double
       ReDim a(0 To 2, 0 To 2) As Double
           For u = 0 To 2
               For v = 0 To 2
                   a(u, v) = 0
               Next v
           Next u
    tt = Optimization(a(0, 0), 3, 3)
    End Sub