Marshal.GetActiveObject(String) Metodo

Riferimento

Definizione

Spazio dei nomi:: System.Runtime.InteropServices

Assembly:: mscorlib.dll

Importante

Alcune informazioni sono relative alla release non definitiva del prodotto, che potrebbe subire modifiche significative prima della release definitiva. Microsoft non riconosce alcuna garanzia, espressa o implicita, in merito alle informazioni qui fornite.

Ottiene un'istanza in esecuzione dell'oggetto specificato dalla tabella ROT (Running Object Table).

public:
 static System::Object ^ GetActiveObject(System::String ^ progID);

public static object GetActiveObject (string progID);

[System.Security.SecurityCritical]
public static object GetActiveObject (string progID);

static member GetActiveObject : string -> obj

[<System.Security.SecurityCritical>]
static member GetActiveObject : string -> obj

Public Shared Function GetActiveObject (progID As String) As Object

Parametri

progID: String

Identificatore programmatico (ProgID) dell'oggetto richiesto.

Restituisce

Object

Oggetto richiesto; in caso contrario, null. È possibile eseguire il cast di questo oggetto a qualsiasi interfaccia COM supportata.

Attributi: SecurityCriticalAttribute

Eccezioni

COMException

L'oggetto non è stato trovato.

Esempio

L'esempio seguente è stato eseguito in un computer configurato con un'istanza in esecuzione di Microsoft Word. Non sono state eseguite istanze di Microsoft Excel.

L'esempio chiama GetActiveObject due volte. La prima chiamata tenta di recuperare un riferimento a un'istanza di Microsoft Word (istanza dell'oggetto Word.Application ). La seconda chiamata tenta di recuperare un riferimento a un'istanza di Microsoft Excel (istanza di un Excel.Application oggetto).

Il codice recupera un riferimento a un'istanza di Microsoft Word correttamente. Tuttavia, poiché Microsoft Excel non è in esecuzione, il tentativo di recuperare il secondo oggetto genera un COMExceptionoggetto .

using System;
using System.Runtime.InteropServices;

class MainFunction
{
    static void Main()
        {
        Console.WriteLine("\nSample: C# System.Runtime.InteropServices.Marshal.GetActiveObject.cs\n"); 

        GetObj(1, "Word.Application");
        GetObj(2, "Excel.Application");
        }

    static void GetObj(int i, String progID)
    {
        Object obj = null;

        Console.WriteLine("\n" +i+") Object obj = GetActiveObject(\"" + progID + "\")");
        try
           { obj = Marshal.GetActiveObject(progID); }
        catch (Exception e)
           {
           Write2Console("\n   Failure: obj did not get initialized\n" + 
                         "   Exception = " +e.ToString().Substring(0,43), 0); 
           }
 
        if (obj != null)
           { Write2Console("\n   Success: obj = " + obj.ToString(), 1 ); }
    }

    static void Write2Console(String s, int color)
        {
        Console.ForegroundColor = color == 1? ConsoleColor.Green : ConsoleColor.Red;
        Console.WriteLine(s); 
        Console.ForegroundColor = ConsoleColor.Gray;
    }
}

/*
Expected Output:

Sample: C# System.Runtime.InteropServices.Marshal.GetActiveObject.cs

1) Object obj = GetActiveObject("Word.Application")

   Success: obj = System.__ComObject

2) Object obj = GetActiveObject("Excel.Application")

   Failure: obj did not get initialized
   Exception = System.Runtime.InteropServices.COMException
*/


Imports System.Runtime.InteropServices

Module Module1

    Sub Main()
        Console.WriteLine(vbcrlf + "Sample: VB System.Runtime.InteropServices.Marshal.GetActiveObject.vb" + vbcrlf) 
        GetObj(1, "Word.Application")
        GetObj(2, "Excel.Application")
    End Sub


    Sub GetObj(ByVal i As Integer, ByVal progID As [String])
        Dim obj As [Object] = Nothing
        
        Console.WriteLine((vbLf & i & ") Object obj = GetActiveObject(""") + progID & """)")
        Try
            obj = Marshal.GetActiveObject(progID)
        Catch e As Exception
            Write2Console((vbLf & "   Failure: obj did not get initialized" & vbLf & "   Exception = ") + e.ToString().Substring(0, 43), 0)
        End Try
        
        If obj IsNot Nothing Then
            Write2Console(vbLf & "   Success: obj = " & obj.ToString(), 1)
        End If
    End Sub

    Sub Write2Console(ByVal s As [String], ByVal color As Integer)
        Console.ForegroundColor = If(color = 1, ConsoleColor.Green, ConsoleColor.Red)
        Console.WriteLine(s)
        Console.ForegroundColor = ConsoleColor.Gray
    End Sub

End Module

'Expected Output:
'
'Sample: VB System.Runtime.InteropServices.Marshal.GetActiveObject.vb
'
'1) Object obj = GetActiveObject("Word.Application")
'
'   Success: obj = System.__ComObject
'
'2) Object obj = GetActiveObject("Excel.Application")
'
'   Failure: obj did not get initialized
'   Exception = System.Runtime.InteropServices.COMException
'

Commenti

Per altre informazioni su questa API, vedere Osservazioni api supplementari per Marshallal.GetActiveObject.

Si applica a

Condividi tramite