Appel de code non-managé

Bonjour,

Dans le cadre de la migration d'une appli VB6 en VB.NET, je me retrouve confronté au problème d'appeler du code non-managé (de winspool.drv) depuis mon code VB.NET. Je précise que je maîtrise plutôt bien C++, mais que je suis une bille en VB, avec ou sans .NET.

J'ai donc déclaré la méthode en question :

Code:

---

Private Declare Function EnumMonitors Lib "winspool.drv" Alias "EnumMonitorsA" (ByVal pName As String, ByVal Level As System.UInt32, ByRef pMonitors As MONITOR_INFO_1(), ByVal cdBuf As System.UInt32, ByRef pcbNeeded As System.UInt32, ByRef pcReturned As System.UInt32) As System.Int32

---

J'ai bien évidemment défini la structure MONITOR_INFO_1 pour correspondre à ce qu'attent la fonction EnumMonitorsA.

Code:

---

1 2 3

Private Structure MONITOR_INFO_1 Dim pName As String End Structure

---

Et, lors de l'appel, mon premier appel à EnumMonitors, avec Nothing sur le troisième paramètre, se passe bien. Le deuxième, avec une array de MONITOR_INFO_1 (de la bonne taille), se passe très mal en revanche, puisqu'il fait planter le CLR.

Code:

---

1 2 3 4 5

Dim tmp As MONITOR_INFO_1 = New MONITOR_INFO_1 Dim size As Integer = System.Runtime.InteropServices.Marshal.SizeOf(tmp.GetType()) Dim mi1(sizeNeeded / size) As MONITOR_INFO_1 'sizeNeeded a été renvoyé par le premier appel à EnumMonitorsA If EnumMonitors(vbNullString, 1, mi1, pcbNeeded, pcbNeeded, pcReturned) Then 'ici ça plante avec un System.ExecutionEngineException

---

Je passe mes paramètres correctement si j'en crois MSDN, et ma structure a la bonne taille (4).

Donc, qu'est-ce que j'ai fait de mal ?

Je pense qu'il faut que tu rajoutes un attribut "MarshalAs(UnmanagedType.LPTStr)" au pName de ta Struct pour indiquer que c'est un TChar*

Finalement, je m'en suis sorti comme ça :

Code:

---

1 2 3 4 5 6 7

Private Declare Function EnumMonitors Lib "winspool.drv" Alias "EnumMonitorsA" (ByVal pName As String, ByVal Level As System.UInt32, ByVal pMonitors As IntPtr, ByVal cdBuf As System.UInt32, ByRef pcbNeeded As System.UInt32, ByRef pcReturned As System.UInt32) As System.Int32   Dim monitors As IntPtr = System.Runtime.InteropServices.Marshal.AllocHGlobal(pcbNeeded)   If EnumMonitors(vbNullString, 1, monitors, pcbNeeded, pcbNeeded, pcReturned) Then For i = 0 To (pcReturned - 1) mi1 = System.Runtime.InteropServices.Marshal.PtrToStructure(New IntPtr(monitors.ToInt64() + i * size), GetType(MONITOR_INFO_1))

---

Ca a l'avantage que je comprends bien ce qui se passe, même si ça me semble bien compliqué pour si peu... (impossible de faire fonctionner ce qui est décrit dans http://msdn.microsoft.com/en-us/library/hk9wyw21.aspx)

Je ne le note pas résolu tout de suite, car si quelqu'un a une solution un peu plus simple, je suis preneur.