Pointer sur un champ d'une structure/classe

Bonjour

J'ai une structure qui contient des données continuellement rafraichies. Elle est dans une DLL dont je ne peux pas modifier le code
Je cherche à créer une procédure qui permet d'en lire n'importe quelle valeur. Je ne sais pas à l'avance quelle variable va être lue.

J'ai tenté ce type de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'partie dans la DLL fournie Structure struct_READ Dim champ_a As Integer Dim champ_b As String End Structure Dim READABLE As New struct_READ ' instancie la structure ... Les variables de l'objet READABLE sont mises à jour ...   ' Procédure generique qui permet de lire n'importe quelle valeur de ma structure Private Sub READ_ONE_VALUE(ByRef my_field As object) MsgBox(my_field.ToString) End Sub   'Appel de la procédure pour lire un champs Private Sub test_me() READ_ONE_VALUE(READABLE.champ_a) ' le problème est là, cela envoi la valeur de la variable et non son adresse End Sub

---

Le soucis c'est qu'une fois que j'appelle la SUB test_me, la valeur reste figée --> champs_a est un integer et c'est sa valeur qui est copiée par l'adresse de l'object. Il faudrait utiliser un pointeur mais je ne suis pas sûr de bien m'y prendre (genre avec IntPtr).

Avez-vous une idée pour manipuler l'objet (la variable) et non sa valeur ?

Merci pour vos conseils

Dan

Un struct est un type valeur, une classe est un type référence

Merci pour ton retour cela explique pourquoi je n'arrive pas à manipuler la référence de ma variable.

Devant faire avec cette structure je n'ai donc pas d'autres choix que d'utiliser un pointeur.
Je vais me pencher sur IntPtr en particulier sur l'article suivant :
http://www.binaryintellect.net/artic...546cd8fa8.aspx

Je mettrai ici mon code si j'y parviens.

Dan

J'ai essayé deux méthodes (avec WriteInt32 et alloc/GCHandle)

Code:

---

1 2 3 4 5 6 7 8 9

'Tentative de lire un integer dans la structure Dim ptr As IntPtr ptr = Marshal.AllocHGlobal(4) Marshal.WriteInt32(ptr, READABLE.champ_a)   ...   'lecture de la valeur Dim new_integer As Integer = Marshal.ReadInt32(ptr) 'valeur correcte mais fixe

---

J'obtiens bien la valeur mais uniquement celle du départ. Si entre temps la valeur dans la structure évolue, elle ne change pas au niveau du pointeur.
Même comportement avec alloc/GCHandle.

Je me suis aperçu que l’adresse du pointeur est différente à chaque mise à jour de la valeur de la variable. Le pointeur sur la variable n'est donc pas utilisable.
Merci pour votre aide

Dan

reflection ?

Merci de m'avoir orienté sur reflection.

Cela fonctionne. Je précise que mon objet contient des structures imbriquées ce qui m'oblige à parcourir en deux fois:
1 - Une fois pour trouver les objets qui le compose
2 - Pour chaque objet trouvé, en extraire ses propriétés et ses valeurs

Cela donne le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim My_object As Type = My_DLL.My_Object.GetType() 'L'objet contenant des structures avec des propriétés For Each Nested_Type As Type In FindNestedTypes(My_object) ' récupére chaque structure de mon object Dim my_properties As PropertyInfo() = Nested_Type.GetProperties ' recupere la liste des propriétés de la structure For Each property_element As PropertyInfo In my_properties 'on extrait le nom de la propriété et sa valeur Dim name As String = property_element.Name Dim value As String = property_element.GetValue(My_DLL.My_Object.SIM, Nothing).ToString() End If Next Next

---

Ca fonctionne très bien même. le code demande de l'optimisation pour ne pas trop plomber les perfs.

je clos le thread.

Merci encore

Dan

c'est rare de voir quelqu'un qui se débrouille avec un mot, bravo à toi déjà ^^

après si tu veux les perfs avec il y a les lambdas expression (dans system.linq.expressions je crois)
ca fait du code un peu illisible et complexe mais ca peut se compiler à la volée une fois qu'on a décrit ce qu'on voulait faire
à voir si si ca convient dans ton cas, mais je crois qu'on peut faire pas mal de choses avec

sinon tu peux aussi faire des parallel.foreach qui sont plus rapides si tu as plusieurs coeurs qu'un for each