Esempio di GCHandle
In questo esempio viene illustrato come passare un oggetto gestito a una funzione non gestita per la quale è previsto un tipo LPARAM. Il tipo LPARAM è un puntatore a un parametro non gestito.
Nell'esempio di GCHandle viene utilizzata la seguente funzione non gestita, illustrata con la dichiarazione di funzione originale:
EnumWindows esportata da User32.dll.
BOOL EnumWindows(WNDENUMPROC lpEnumFunc, LPARAM lParam);
In questo esempio la classe LibWrap contiene un prototipo gestito del metodo EnumWindows. Come parametri, nel metodo gestito vengono sostituiti il delegato CallBack per il puntatore a funzione WNDENUMPROC e un puntatore IntPtr per il tipo LPARAM.
La classe App crea un handle per l'oggetto gestito mediante il metodo GCHandle.Alloc che consente di evitare che l'oggetto gestito sia sottoposto alla procedura di Garbage Collection. Con una chiamata al metodo EnumWindows il delegato e l'oggetto gestito vengono passati e viene effettuato il cast dell'handle su un puntatore IntPtr. La funzione non gestita restituisce il tipo al chiamante come parametro della funzione di callback.
Dichiarazione dei prototipi
Public Delegate Function CallBack(ByVal handle As Integer, _
ByVal param As IntPtr) As Boolean
Public Class LibWrap
' Passes a managed object instead of an LPARAM.
' Declares a managed prototype for the unmanaged function.
Declare Function EnumWindows Lib "user32.dll" ( _
ByVal cb As CallBack, ByVal param As IntPtr) As Boolean
End Class
public delegate bool CallBack(int handle, IntPtr param);
public class LibWrap
{
// Passes a managed object as an LPARAM type.
// Declares a managed prototype for the unmanaged function.
[DllImport("user32.dll")]
public static extern bool EnumWindows(CallBack cb, IntPtr param);
}
public delegate bool CallBack(int handle, IntPtr param);
public ref class LibWrap
{
public:
// Passes a managed object as an LPARAM type.
// Declares a managed prototype for the unmanaged function.
[DllImport("user32.dll")]
static bool EnumWindows(CallBack^ cb, IntPtr param);
};
Chiamata delle funzioni
Public Class App
Public Shared Sub Main()
Dim tw As TextWriter = System.Console.Out
Dim gch As GCHandle = GCHandle.Alloc(tw)
' Platform invoke prevents the delegate from being garbage collected
' before the call ends.
Dim cewp As CallBack
cewp = AddressOf App.CaptureEnumWindowsProc
LibWrap.EnumWindows(cewp, GCHandle.op_Explicit(gch))
gch.Free()
End Sub
Public Shared Function CaptureEnumWindowsProc(ByVal handle As Integer, _
ByVal param As IntPtr) As Boolean
Dim gch As GCHandle = GCHandle.op_Explicit(param)
Dim tw As TextWriter = CType(gch.Target, TextWriter)
tw.WriteLine(handle)
Return True
End Function
End Class
public class App
{
public static void Main()
{
TextWriter tw = System.Console.Out;
GCHandle gch = GCHandle.Alloc(tw);
CallBack cewp = new CallBack(CaptureEnumWindowsProc);
// Platform invoke prevents the delegate from being garbage
// collected before the call ends.
LibWrap.EnumWindows(cewp, (IntPtr)gch);
gch.Free();
}
private static bool CaptureEnumWindowsProc(int handle, IntPtr param)
{
GCHandle gch = (GCHandle)param;
TextWriter tw = (TextWriter)gch.Target;
tw.WriteLine(handle);
return true;
}
}
public ref class App
{
public:
static void Main()
{
TextWriter^ tw = System::Console::Out;
GCHandle gch = GCHandle::Alloc(tw);
CallBack^ cewp = gcnew CallBack(&CaptureEnumWindowsProc);
// Platform invoke prevents the delegate from being garbage
// collected before the call ends.
LibWrap::EnumWindows(cewp, (IntPtr)gch);
gch.Free();
}
private:
static bool CaptureEnumWindowsProc(int handle, IntPtr param)
{
GCHandle gch = (GCHandle)param;
TextWriter^ tw = (TextWriter^)gch.Target;
tw->WriteLine(handle);
return true;
}
};