Utiliser VarPtr pour retrouver StrPtrRésolu

Question

Salut
Je suis en train de pr&#233;parer la mutation de mes programmes VB6 en Net.

StrPtr (VB) fournit l'adresse m&#233;moire du contenu de la chaine
VarPtr (API) fournit l'adresse m&#233;moire de la variable contenant la chaine

Puisque .Net ne voudra plus entendre parler de StrPtr, existe t-il une mani&#232;re en VB6 de r&#233;cup&#233;rer StrPtr en utilisant VarPtr ?

En fait, c'est pour faire fonctionner des fonctions de DLL du genre (SubClassing) :
Call CopyMemory(ByVal (nAddrWnd + PATCH_0A), ByVal StrPtr(sAscii), LenB(sAscii))

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Gobillot · Accepted Answer

en VB6 facile.

en  .Net je ne crois pas que ce soit possible







Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)



Private Sub Command1_Click()

    Dim ch      As String

    Dim Ptrvar  As Long

    Dim Strvar  As Long

    

    ch = "blablabla"

    

    Ptrvar = VarPtr(ch)

    CopyMemory Strvar, ByVal Ptrvar, 4

    

    MsgBox Strvar

    MsgBox StrPtr(ch)



End Sub

Daniel

cs_Jack · Answer

Merci Gobillot

En fait, je viens de trouv&#233; mon erreur grace &#224; toi. Je me suis trop compliqu&#233; la vie.
VarPtr est une fonction appartenant &#224; la msvbvm60.dll, donc &#224; VB6.
J'ai voulu d&#233;clarer cette fonction alors qu'elle est native dans VB6, or la d&#233;claration que j'utilisais n'&#233;tait pas correcte ... Je l'avais d&#233;clar&#233; comme &#231;a
Private Declare Function VarPtr_Sting Lib "msvbvm60.dll" Alias "VarPtr" (Ptr As String) As Long
En fait, je tombais dans le panneau de la diff&#233;rence entre une String VB et un tableau de Bytes.
Bref, je me suis tortur&#233; pour rien. Merci de m'avoir ouvert les yeux, lol.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Non, en fait, il faut que je fasse aussi disparaitre VarPtr car elle n'est pas non plus support&#233;e, bien s&#251;r, puisqu'elle appartient &#224; la library de VB6.
Je vais r&#233;&#233;tudier le probl&#232;me au moment de la traduction VB6 --> Net, car je pense que Net a une solution interne pour g&#233;rer le SubClassing (and Co) qui fera disparaitre l'utilisation de VarPtr.

Gobillot · Answer

je me disais, une API Varptr() que je ne cannais pas ! il y a bien celles ci, mais l'une c'est pour un objet et l'autre pour un tableau d'array. Private Declare Function VarPtrAny Lib "vb40032.dll" Alias "VarPtr" (lpObject As Any) As Long Declare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" (Ptr() As Any) As Long ( msvbvm50.dll ou msvbvm60.dll ?) en Net, il y aurait ceci: cf : http://www.vbfrance.com/code.aspx?ID=22001

Public Function VarPtr(ByVal o As Object) As Integer
Dim GC As System.Runtime.InteropServices.GCHandle = System.Runtime.InteropServices.GCHandle.Alloc(o, System.Runtime.InteropServices.GCHandleType.Pinned)
Dim ret As Integer = GC.AddrOfPinnedObject.ToInt32
GC.Free()
Return ret
End Function

je te laisse le soin de tester, n'ayant aucune envie d'installer et encore moins de pratiquer Net. il reste encore CopyMemory qui n'est pas non plus évident en Net. Daniel

cs_Jack · Answer

Merci pour l'info

Utiliser VarPtr pour retrouver StrPtr

5 réponses

Discussions similaires