Passage d'un tableau de strings d'une DLL C++ => VB

Bonjour,

Après plusieurs tentatives depuis plusieurs jours, je me rabas sur ce forum ... car il semble qu'aucune réponse claire ne soit disponible sur internet ...

Je cherche à récupérer, d'un programme écrit VB ( sous visual 2005 ) un tableau de données alimenté par des chaines de caractères à partir d'une dll en C++ ...

J'arrive bien à communiquer et lancer mes méthodes dans la dll ... mais impossible de récupérer les données ..

Est-ce qu'il serait possible d'avoir un exemple simplissime, fonctionnant sous visual 2005 pour créer une méthode qui alimente et renvoie un tableau de chaines .. que je peux ensuite afficher dans mon programme VB ?

Pour info .. j'avais essayé cela :
MYDLL VARIANT _stdcall retVariantArray(void) {
COleSafeArray saRet;
DWORD numElements[] = {10, 10}; // 10x10

// Create the safe-array...
saRet.Create(VT_R8, 2, numElements);

// Initialize it with values...
long index[2];
for(index[0]=0; index[0]<10; index[0]++) {
for(index[1]=0; index[1]<10; index[1]++) {
double val = index[0] + index[1]*10;
saRet.PutElement(index, &val);
}
}

// Return the safe-array encapsulated in a VARIANT...
return saRet.Detach();
}

Mais en appelant cette méthode depuis le programme VB ( en spécifiant un retour de type OBJECT car le type VARIANT a disparu ! ), j'ai une exception comme quoi on ne peut récupérer un VARIANT ...

Voilà .. Quelqu'un aurait t'il la solution ?

D'avance ... Merciiii

Salut,

Autant VB6 était très orienté OLE/COM, autant c'est moins le cas pour VB2005...

Si le tableau en question est de taille fixée, pourquoi ne pas l'allouer dans la partie VB2005 ? Ou pourquoi ne pas passer par un vrai pointeur plutôt que par du COM ?

Bonjour,

Merci beaucoup pour cette réponse ....

Justement je cherche le moyen de passer par un vrai pointeur (en déclarant coté vb et c++ une structure identique) mais jusqu'à présent je n'ai trouvé aucun exemple qui marche ...

En auriez vous un, simple, que je pourrais reproduire avec la partie vb et c++ ?

D'avance merci ...

Mon problème est que je n'arrive pas à envoyer le pointeur de mon tableau ..
Avant VB5, il y avait la méthode VarPtr .. maintenant comment faire pour passer l'adresse mon tableau ?

Avant VB5 ? Avant VB7 en fait. VB6 est le dernier "vrai" VB.

Regarde par là. Dommage que ce soit pour du C# par contre.

Merciiiiiii ... je suis désolé .. dans l'exemple que tu m'as donné ... il n'y a pas d'appel Visual Basic ..

De plus, le pointeur transmis est modifié dans la même méthode .. et quand la valeur finale est trouvée, on renvoie un int ..
Par contre si tu as un exemple avec une méthode qui renvoie un pointeur à un code VB, je suis preneur !

En fait, beaucoup d'exemple d'utilisation de PInvoke sont des utilisations de l'API Win32. Et cette API ne contient pratiquement pas de fonction renvoyant un pointeur. C'est en effet à éviter. En effet, l'appelant ne sait en général pas libérer ce qui est alloué par l'appeler (Sans même parler de plusieurs langages, faire free dans un .exe d'une zone allouée par malloc dans une dll, souvent, cela ne fonctionne pas).

Les seuls exemples qui me viennent à l'esprit, c'est FormatMessage (A libérer impérativement avec LocalFree) et GetCommandLine (Qui n'a pas besoin de libération).

Ce ne sont pas de très bon exemple car ce sont en fait des String qui sont utilisés. Mais on voit au moins des appels à des méthodes de Marshal (PtrToStringAnsi et PtrToStringAuto), documentées ici.

Il y a peut être des méthodes dans cette classe qui peuvent t'aider... Tu as par exemple Copy pour copier d'un tableau non managé vers un tableau managé.

Oulala .. ca me parait compliqué tout cela ...

Ce que je ne comprend pas, c'est qu'on peut passer en argument ( avec Byref ) un tableau d'Integer à une méthode de la dll en c++ ..Cette méthode peut modifier les valeurs du tableau et on peut très bien réutiliser tout cela ...
void _stdcall FillArr(int *inArr) {
inArr[0] = 100;
inArr[1] = 200;
inArr[2] = 500;
}

Donc pourquoi est-ce si compliqué de faire la même chose pour une structure ?

Quand j'essaie, j'ai le message :Tentative de lecture ou d'écriture de mémoire protégée. Cela indique souvent qu'une autre mémoire est endommagée.

par exemple en faisant :
typedef struct {
long x;
BSTR chaine;
} data;
int _stdcall FillArr(data *inArr, int ArrSize) {
inArr[0].x = 100;
inArr[1].x = 200;
inArr[2].x = 500;
return 1;
}

Qu'est ce qui n'irait pas dans ce code ?

Merciiiii

Et comment est ton code côté VB ?

Exemple de passage de structure, encore en C#.

Donc la déclaration est la suivante au début :

Private Structure Data
Dim x As Long
Dim chaine As String
End Structure

Private Declare Function FillArr Lib "vb4.dll" Alias "?FillArr@@YGHPAUdata@@H@Z" (ByRef inArr() As Data) As Long


Dans la méthode qui est appelée sur un clic :

Dim tableau As data() = New data(3) {}
FillArr(tableau)

En fait, j'ai un plantage pur et simple maintenant, sans message ...

Merci ...