Discussion :

[mkl238]

Bonjour à tous,

J'aimerais utiliser une dll écrite en c dans du vba.
J'ai parcouru ce tuto:
http://rp.developpez.com/vb/tutoriels/dll/

mais je n'arrive pas à appliquer cette histoire de SAFEARRAY et je ne suis même pas sur qu'il faille l'utiliser...

le truc c'est que j'ai une fonction en c qui doit recevoir une structure contenant un tableau dynamique de chaine de caractères.

en c j'ai donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
typedef struct Stops Stops;
struct Stops{
    char stopId[7];
    size_t numberOfPicturesPath;
    char** picturesPath;
};
 
int __stdcall TestStruct(Stops* stopList);

où la fonction TestStruct ajoute des chaines dans picturesPath et chaque ajout incrémente numberOfPicturesPath...

et en vba j'ai donc écrit ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function TestStruct Lib "Machin.dll" (ByRef stopList As Stops) As Long
 
Type Stops
    stopId As String * 7
    numberOfPictures As Long
    pictures() As String
End Type
 
(...)
Private Sub TestMachin()
  Dim stopList As Stops
  Dim result As Long
  result = TestStruct(stopList)
(...)

Tel quel, le code s'exécute jusqu'au return de la fonction TestStruct dans laquelle stopList se remplit bien comme je veux mais une foi le return fait, access se gaufre complètement (fermeture + demande d'envois d'un rapport d'erreur...)

que dois-je faire?

j'imagine un truc du genre réécrire la structure du genre?:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
typedef struct Stops Stops;
struct Stops{
    char stopId[7];
    size_t numberOfPicturesPath; //ceci deviendrait inutile?
    SAFEARRAY *picturesPath;
};

mais alors il faut réécrire toutes les fonctions utilisant la structure?

[mkl238]

J'ai testé, j'ai avancé mais j'ai un problème.

Je l'ai posté sur le forum vba, mais vu que ca concerne aussi le c, je demande aussi à la communauté C.

donc ma dll devait à la base retourner un tableau de structures contenant un tableau de char*...

J'ai déclaré cette structure comme ceci en VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Type Stops
    stopId As String
    numberOfPictures As Long
    pictures() As String
End Type

la fonction c est déclarée en VBA comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function GetSafePictureFiles Lib "MaDLL.dll" (ByRef stopList() As Stops, ByRef size As Long) As Long

Dans la dll le prototype de la fonction est comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

int __stdcall GetSafePictureFiles(SAFEARRAY** safeStopList, size_t* numberOfStop);

Et la structure est comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
typedef struct SafeStops SafeStops;
struct SafeStops{
    BSTR stopId;
    size_t numberOfPictures;
    SAFEARRAY* pictures;
};

en VBA j'appelle la fonction comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Test()
  Dim stopList() As Stops
  Dim numberOfStops As Long
 
On Error GoTo Catch
  ReDim stopList(1)
  result = GetSafePictureFiles(stopList, numberOfStops)
...

Une foi la fonction appelée, le tableau stopList est remplis bizarrement... ce qui fait planter access.

Le premier élément et tous les éléments d'indice multiples de 3 sont corrects mais pas les autres...
De plus, tous les x derniers éléments du tableau sont vide

donc pour mes 5489 cellules:
stopList(0).stopId : Ok
stopList(1).stopId : Contenu rien avoir
stopList(2).stopId : fait planter access
stopList(3).stopId : Ok
stopList(4).stopId : Contenu rien avoir
stopList(5).stopId : fait planter access
...
stopList(4107).stopId : Ok
stopList(4108).stopId : Contenu rien avoir
stopList(4109).stopId : fait planter access
...
stopList(4116).stopId : Ok
stopList(4117).stopId : vide
stopList(4118).stopId : vide
stopList(4119).stopId : vide
stopList(4120).stopId : vide
...
stopList(5488).stopId : vide



Or, quand j'affiche le contenu de mon safearray en c, tous les éléments sont justes...

A mon avis, j'ai mal déclarer quelque chose quelque part... j'avoue que je ne vois pas dutout ce qui se passe.

Quelqu'un aurait il une idée?

[mkl238]

Avec un tableau de structures:

Quand on fait un:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SafeArrayCreateVector(VT_VARIANT, 0, numberOfRow);

est ce bien VT_VARIANT qu'il faut mettre comme type?

[Médinoc]

J'ai bien peur que tu doives utiliser des fonctions plus spécifiques pour créer le SAFEARRAY. Des fonctions qui permettent d'utiliser le flag FADF_RECORD et le champ cbElements.

Edit: Voilà qui est intéressant. Par contre, IRecordInfo a l'air compliquée. Si tu utilises MIDL, tu n'auras pas besoin de l'implémenter, mais sinon...