Exemplo de GCHandle

Este exemplo demonstra como passar um objeto gerenciado para uma função não gerenciada que espera um LPARAM tipo.An LPARAM tipo é um ponteiro para um parâmetro não gerenciado.

O exemplo de GCHandle utiliza a seguinte função não gerenciada, mostrada com sua declaração de função original:

• EnumWindows exportados de User32.dll.

  BOOL EnumWindows(WNDENUMPROC lpEnumFunc, LPARAM lParam);
  

Neste exemplo, a LibWrap classe contém um protótipo do gerenciado de EnumWindows método. sistema autônomo seus parâmetros, o método gerenciado substitui o CallBack delegado para o WNDENUMPROC ponteiro de função e um IntPtr ponteiro de a LPARAM tipo.

The App classe cria um identificador para o objeto gerenciado usando o GCHandle.Alloc método impede que o objeto gerenciado sendo coletados. Uma telefonar para o EnumWindows método passa o delegado e o objeto gerenciado, a alça para a projeção um IntPtr.A função não gerenciada passa o tipo de volta para o chamador sistema autônomo um parâmetro da função de chamada de retorno.

O código-fonte para os exemplos de código a seguir é fornecido pelo.NET estrutura Invocação de plataforma Tecnologia Exemplo.

Declaração de protótipos

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 'LibWrap

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 );
}

Chamando funções

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 'Main
   
   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 'CaptureEnumWindowsProc
End Class 'App 

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;
   }   
}

Consulte também

Conceitos

Diversos exemplos de marshaling

Tipos de dados de invocação de plataforma

Criando protótipos em código gerenciado