[VB6]Passage d'un tableau dans une DLL écrite en delphi

Bonjour,

J'essaie de transmettre un tableau à un procedure faisant partie d'une dll écrite en delphi.

La procedure en delphi est :
procedure transTableau (var pMat : PTabMat);stdcall;export;
où PTabMat est un pointeur sur TTabMat qui est un tableau de double.
et var pour passer le tableau par reference.

en vb je déclare :
Private Declare Sub TransMat Lib "PMadll.dll" Alias "transTableau" (addrT As Long)

ensuite je déclare un tableau et transmet le premier element pour donner l'adresse du tableau
Dim Mat(5) as double
TransMat (Mat(0))

Et VB plante erreur fatal. :twisted:

J'ai aussi essayé de passer le tableau (en changeant le code de la dll pour qu'elle attend un tableau array of double à la place de PTabMat) mais là j'ai une erreur de compilation : tableau ou type définit par l'utilisateur attendu (la déclaration de la DLL devient alors alias "transTableau(T() as double)" et l'appel TransMat(Mat()) ou TransMat(Mat)).:evil:

Help :cry:

et si tu passes juste
TransMat (Mat)

ça fais quoi ??

vb retourne erreur tableau ou type définit par l'utilisateur.

Par contre, je pense avoir trouver la solution.
plutôt que de passer le tableau, j'ai cherché à passer un pointeur sur le tableau. Mais bon je pouvais toujours chercher, il n'y a pas de pointeur en vb.
Alors je passe le premier élément comme il passe par référence je transmet en fait son adresse. En delphi j'en fait un pointeur et j'ai alors un pointeur qui pointe sur le premier éléement du tableau. Mon pointeur est en plus un pointeur sur tableau, il me suffit de transmettre également la taille du tableau et le tour est joué.

Enfin, j'espère.

PS : c'est le même principe que lorsque l'on veut transmettre des chaines.

Il existe un moyen mais je ne garantis rien : essaie de passer en paramètre AdressOf(tonTab)

il me semblait aussi qu'il fallait passé le premier élément du tableau, de même, dans ton code, tu passes
Private Declare Sub TransMat Lib "PMadll.dll" Alias "transTableau" (addrT As Long)
ce qui est par défaut par référence (Byref), ce qui devrai etre bon ...
es-tu sur de ta déclaration dans ta dll, je pense que tu ne récupère pas l'adresse du tableau correctement ...
:?
bhaal76

Exact ! Il est vrai que par défaut les passages en paramètres en VB sont par référence.

pour la déclaration :
Private Declare Sub TransMat Lib "PMadll.dll" Alias "transTableau" (ByRef T As Double, ByVal taille As Long)

et pour l'utilisation
Call TransMat(Mat(0), 5)
ou
TransMat(Mat(0), taille=5) Rmq je ne suis pas sur de celle là mais peut m'importe :)

Par contre transmettre l'addresse ne marche pas bien, d'abord parce que je ne connaissais pas AddressOf(T), dans l'aide de vb une recherche sur adresse ne m'a rien donné sic. et ensuite parce qu'en suite il faut se battre pour la transformer en pointeur.

Enfin, voilà le code marche impec.

Eh! Zorro, sache qu'avant de poser ma question, j'ai recherché dans l'aide de vb, dans un bouquin sur internet et lancer une recherche sur les dll, passage de parametre, d'ailleurs dans les resultats j'ai trouvé une question où je pouvais répondre (passer des string en paramètre dns une dll en c, c'est le même principe que j'ai utiliser pour un tableau sauf qu'il ne fallait pas chercher à transmettre un pointeur).

Sinon comme VB passe par défaut les paramètre par référence, en transmettant le premier élément, on transmet en fait son adresse, que l'on n'a plsu qu'a transformer en pointeur.
si P est notre pointeur, PTabMat le type
-> P := @ValeurTransmise_soit_l'adresse; // dans delphi
@ : donne l'adresse de la variable que l'on affecte à P.

Merci de votre aide