Marshal.GetActiveObject(String) Methode

Referenz

Definition

Namespace:: System.Runtime.InteropServices

Assembly:: mscorlib.dll

Wichtig

Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.

Ruft eine ausgeführte Instanz des angegebenen Objekts aus der ROT (Running Object Table) ab.

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

Parameter

progID: String

Der programmgesteuerte Bezeichner (ProgID) des Objekts, das angefordert wurde.

Gibt zurück

Object

Das Objekt, das angefordert wurde, andernfalls null. Sie können dieses Objekt in eine beliebige unterstützte COM-Schnittstelle umwandeln.

Attribute: SecurityCriticalAttribute

Ausnahmen

COMException

Das Objekt wurde nicht gefunden.

Beispiele

Das folgende Beispiel wurde auf einem Computer ausgeführt, der mit einer ausgeführten Instanz von Microsoft Word konfiguriert wurde. Es wurden keine Instanzen von Microsoft Excel ausgeführt.

Im Beispiel wird zweimal aufgerufen GetActiveObject . Der erste Aufruf versucht, einen Verweis auf eine Instanz von Microsoft Word (eine Instanz des Word.Application -Objekts) abzurufen. Der zweite Aufruf versucht, einen Verweis auf eine Instanz von Microsoft Excel (eine Instanz eines Excel.Application -Objekts) abzurufen.

Der Code ruft erfolgreich einen Verweis auf eine Instanz von Microsoft Word ab. Da Microsoft Excel jedoch nicht ausgeführt wird, wird beim Versuch, das zweite Objekt abzurufen, eine COMExceptionausgelöst.

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
'

Hinweise

Weitere Informationen zu dieser API finden Sie unter Ergänzende API-Hinweise für Marshal.GetActiveObject.

Gilt für:

Freigeben über