RÉCUPÉRER UNE CHAINE DE CARACTÈRE À PARTIR DE SON POINTEUR D'ADRESSE MÉMOIRE

Commentaire de MadM@tt le 08/08/2006 23:40:51

salut bouv, pas de problème pour l'exemple d'utilisation, je l'ai mis.
Mais je ne sais pas comment je me suis débrouillé, dans mon exemple ça marche pas lol... Oula je suis vraiment fatigué, pourtant dans mon prog qui l'utilise ça marche. Ici ça ne me renvoie que la première lettre du contenu de la chaine de caractère.
En meme temps, mon pc tourne depuis super longtemps et je lui en fait voir de toutes les couleurs avec mes tests sur ces api, depuis plusieurs heures je n'arrete pas d'avoir des "VB6 va etre fermé pour cause d'erreur, voulez vous envoyer un rapport à MS..." Et autres bugs
Je vais redémarrer et retenter voir si ça marche mieux.

Est ce que quelqu'un pourrait tester ce que j'ai mis voir si ça marche chez lui (ou alors si quelqu'un qui s'y connait voit une grossière erreur que j'ai fait dans mon code ^^)
Merci

Commentaire de Renfield le 09/08/2006 09:45:45 administrateur CS

j'aime pas trop le coup du
Space(256)

lstrlen pourrait directement te filer la bonne taille a allouer

Commentaire de PCPT le 09/08/2006 16:37:17 administrateur CS

salut,
l'erreur vient de tes déclarations.
elles ont besoins de chaînes (apparemment)

donc ton avant dernière ligne (Form) :
tStr = tStr + "     GetStringFromPtr(" + Str$(StrPtr(VarExemple)) + ")=" + GetStringFromPtr(VarExemple)



et ton module :
Option Explicit

' permet de copier une chaine de caractère dans une autre
'Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Long) As Long
Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
'Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
' Permet de récupérer la chaine de caractère en mémoire à partir de son pointeur
Public Function GetStringFromPtr(ByVal Pointeur As String) As String
    If LenB(Pointeur) > 0 Then
        GetStringFromPtr = Space(lstrlen(Pointeur))
        lstrcpy GetStringFromPtr, ByVal Pointeur
    End If
End Function

++ ;)

Commentaire de bouv le 09/08/2006 16:50:52

en faisant

Public Function GetStringFromPtr(ByRef Pointeur As String) As String

cela peut valoir le coup ^^

Commentaire de bouv le 09/08/2006 17:37:17

Après quelques recherches j'ai trouvé sur MSDN que lstrcpy  doit être déclaré ainsi

Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long

Les parametres sont de type Any pour car il existe plusieurs utilisations de l'API.

Maintenant je pose 1 question :
Est-il sûr que l'utilisation de cette fonction est l'équivalent d'un ByRef (n'occupe pas de nouvel espace mémoire)?

Commentaire de MadM@tt le 09/08/2006 17:46:56

J'ai changé les déclarations (mais résoud pas le prob en tout cas, le problème à l'air déjà de venir de lstrlen car ça renvoie toujours 1, quelque soit la chaine entrée)

Sinon je ne pense pas que cette fonction agisse comme un ByRef vu qu'on copie la chaine, c'est plutot un ByVal. Je pense que tu fais référence à l'explication que j'ai mis plus haut, en fait je voulais dire que ça faisait comme un ByRef quand on passe l'adresse mémoire en parametre à une api, et un ByVal quand on lui passe la valeur. Après ici c'est différent car on veut récupérer la valeur de sortie d'une api dans une variable exploitable en vb (certaines api renvoie des pointeurs). Et justement je pense qu'il faut que je supprime la chaine de caractère en mémoire une fois récupéré sa valeur.

Sinon ça me sert la dedans (en gros) :
' Fait la liste des processus en mémoire à l'endroit désigné par le pointeur : pProcessInfo
' Count est le nombre de processus
Public Declare Function WTSEnumerateProcesses Lib "wtsapi32.dll" Alias "WTSEnumerateProcessesA" (ByVal hServer As Long, ByVal Reserved As Long, ByVal Version As Long, ByRef pProcessInfo As Long, ByRef Count As Long) As Long
' Libère la mémoire utilisée par la liste des processus crée avec la fonction d'au dessus
Public Declare Sub WTSFreeMemory Lib "wtsapi32.dll" (ByVal pMemory As Long)
' Pour faire la liste des processus
Public Type WTS_PROCESS_INFO
    SessionID As Long        ' Identificateur de la session
    ProcessID As Long        ' Identificateur du processus
    pProcessName As Long     ' Pointeur vers le nom du processus
    pUserSid As Long         ' Pointeur vers l'ID de l'utilisateur associé au processus
End Type

Je fais la liste des processus et dans mon type de sortie, j'ai un pointeur vers la chaine de caractère qui contient le nom des processus.

Commentaire de MadM@tt le 09/08/2006 17:53:56

Oh non c'est bon, ça marche !!
(désolé pour vos boites mail ça aura fait un sacré troll)

J'avais juste oublié de mettre lstrlen(Str as ANY)

Merci bouv et PCPT pour votre aide

Commentaire de Renfield le 09/03/2007 09:45:14 administrateur CS

j'aime pas trop le > 0

en fait, en VB le Long est forcément signé...
ce qui fait que -123456 pourrait être un pointeur de chaine valide...

Commentaire de Renfield le 09/03/2007 21:00:25 administrateur CS

<>0 fera l'affaire ^^

le signe, ca n'est qu'une question de représentation...