Discussion :

[andrebernard]

Bonjour à tous

Apres des heures de recherche de reflexion, beaucoup d'aide, je suis arrivé à faire un petit code qui permet de passer un tableau de string contenu dans une DLL standard (donc non activex) à un exe VB6

Pour moi c'est un exploit

Apparement ce code marche, mais j'aurais aimé avoir un avis d'expert sur ce dernier, afin de savoir si il est correct, ou meme mieux si il y a un chemin plus facile pour faire cela.
Car si c'est bon, j'adapterais tous mes programmes sur ce modele

Je vous remercie de votre avis

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, ByVal lpString1 As Any) As Long
Private Declare Function lstrlen Lib "kernel32.dll" Alias "lstrlenA" (ByVal lpString As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal size As Long)
Private Declare Function TabloDansLaDll Lib "DllTablo.dll" () As Long
 
Public Function StringDLL(AdresseVariable As Long) As String
 StringDLL = Space$(lstrlen(AdresseVariable))
 lstrcpy StringDLL, AdresseVariable
End Function
 
Public Function ArrayDLL(ByVal AdresseTabloDll As Long, ByRef LeTablo)
 
 Dim Tablo() As Long
 Dim AdrLongTablo As Long
 Dim LongTablo As Integer
 
 CopyMemory AdrLongTablo, ByVal AdresseTabloDll, 4
 LongTablo = Val(StringDLL(AdrLongTablo)) + 1
 ReDim Tablo(0 To LongTablo)
 CopyMemory Tablo(0), ByVal AdresseTabloDll, LongTablo * 4
 
 For i = 1 To UBound(Tablo())
  ReDim Preserve LeTablo(i)
  LeTablo(i) = StringDLL(Tablo(i))
 Next
 
End Function
 
Private Sub Form_Load()
 
 Dim LeTablo() As String
 ArrayDLL TabloDansLaDll, LeTablo
 
 For i = 1 To UBound(LeTablo())
  Debug.Print LeTablo(i)
 Next
 
End Sub

[DarkVader]

Bonjour,
Apparemment, c'est toi qui développe la Dll.
Si c'est bien le cas, j'aurai plutôt écrit une procédure utilisant le tableau comme paramètre
afin que l'appel se fasse dans le style suivant :
Declare sub ReadBuffer lib "myDll.dll" (buffer as Any)
où
buffer est un tableau de byte
chaque chaine est séparée par un ou deux caractères nul
ce qui permet ensuite de récupérer le tableau en lui passant seulement la référence du premier élément
Prévoir un fonction retournant la longueur du tableau

Code :

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

1
2
3
4
dim myBuffer() as Byte,lenArray as long
lenArray=LenBuffer()  ' La fonction retournant la longueur du tableau
redim myBuffer(0 to lenArray -1)  'Tableau Ascii
ReadBuffer myBuffer(0)

Il ne reste plus qu'à détailler les chaines contenues dans le tableau

[andrebernard]

Bonjour DARKVADER

Tout d'abord merci de t'interesser à mon cas
Ensuite j'aime bien ta citation qui parle des félés et de la lumiere
Et aussi j'aime bien ton avatar, j'espere juste que le pauvre..... il sait lire le panneau danger pour sa santé sur les paquets de cigarette

Bon pour en revenir, a mes moutons, parce que moi c'est des moutons, pas des chimpanzés que je gere

Oui c'est moi qui fait la DLL.
Je n'ai pas tout compris dans ta methode, mais en fait le tableau ne proviens pas de l'exe VB.....
L'exe demande à la DLL de lire un fichier et de lui retourner ce dernier dans un tableau.
Et pour l'instant je n'ai pas prévu qu'il le modifie, donc il ne fait que le lire, via la DLL

Est ce que ta combine marche toujours dans ce cas ????

Encore merci de ton aide

[DarkVader]

.../...
Oui c'est moi qui fait la DLL.
Je n'ai pas tout compris dans ta methode, mais en fait le tableau ne proviens pas de l'exe VB.....
L'exe demande à la DLL de lire un fichier et de lui retourner ce dernier dans un tableau.
Et pour l'instant je n'ai pas prévu qu'il le modifie, donc il ne fait que le lire, via la DLL
.../...

La solution que je te proposais était de récupérer un tableau de byte des données sérialisées
mais le principe est le même pour un tableau de string
coté dll tu retournes l'adresse du tableau
coté vb tu récupères directement le tableau en passant en paramètre le premier élément par référence.

[andrebernard]

D'accord impeccable.
Comme je n'avais pas tout compris de ton idée, je voulais etre sur que tu ai bien compris que je ne passais pas le tableau de l'exe à la DLL

Car on m'a proposé parfois une solution en passant le tableau et le faisant remplir par la DLL, et cette fonction ne me conviens pas.

Bon je vais essayer d'appliquer ta methode, car je ne suis pas super doué, je doit le reconnaitre

Je te tiens au courant, si tu le veux bien
Encore merci