Passage tableau string en parametre par pointeur

Version imprimable

Bonjour à tous

Je viens de m'appercevoir d'un truc que je n'arrive pas a comprendre 8O

J'ai une sub qui recupere le pointeur d'un arraystring et qui le copie dans un arraystring

Code:

1
2
3
Public Sub PtrUnicodeEnTabloString(PtrUnicode As Long, ByRef TabloARemplir() As String)
 CopyMemory TabloARemplir(), PtrUnicode, 4
End Sub

Cette fonction marche tres bien quand elle est dans la form principale :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination() As String, ByRef source As Long, ByVal Length As Long)
Private Declare Function CreationTabloUnicodeSafeArray Lib "DllPb.dll" () As Long
 
Public Sub PtrUnicodeEnTabloString(PtrUnicode As Long, ByRef TabloARemplir() As String)
 CopyMemory TabloARemplir(), PtrUnicode, 4
End Sub
 
Public Sub Form_Load()
 
 Dim Tablo() As String, PtrSafeArrayDll As Long
 ChDir App.Path
 
 PtrSafeArrayDll = CreationTabloUnicodeSafeArray()
 PtrUnicodeEnTabloString PtrSafeArrayDll, Tablo()
 
 For i = 1 To UBound(Tablo())
  phrase = phrase + StrConv(Tablo(i), vbFromUnicode) + Chr(13)
 Next
 
 MsgBox phrase, vbOKOnly, "Appel VB"
 
End Sub

Mais pas dans un module, quelqu'un sait il pourquoi ???? :(

Je vous remercie et vous souhaite une bonne journée

09/03/2011, 11h42
andrebernard

Excusez moi du derangement, j'ai trouvé que j'avais mal déclaré une API dans le module :oops:

Bonne journée
09/03/2011, 12h04
DarkVader

Bonjour,

Citation:

Envoyé par andrebernard

.../...
J'ai une sub qui recupere le pointeur d'un arraystring et qui le copie dans un arraystring
.../...

Juste une question ... accessoire :
comme récupères-tu le pointeur ?
09/03/2011, 14h03
andrebernard

Bonjour DarkVader content de te reparler 8-)

Bah toujours avec mon systeme de DLL
Le safearray est créé dans la DLL et elle me retourne le pointeur ;)
09/03/2011, 14h50
DarkVader

OK, c'était juste pour être sur que tu utilisais la fonction adéquate
pour récupérer le pointeur d'un tableau de String.
12/03/2011, 11h10
andrebernard

Merci de t'inquieter pour moi 8-)

Je progresse petit a petit, grace à l'aide d'un peu tout le monde, depuis 5 ans que je cherche le GRAAL
Heureusement pour moi, je fait des choses en attendant, mais ça me rammene toujours a la meme recherche un moment ou a un autre :cry:
Normal comment tu peux utiliser les DLL, si tu peux pas leur passer ou recuperer des variables ???:calim2:

Je te souhaite une bonne journée