调用 COM 属性和方法

Question

我正在尝试动态创建 COM 对象、调用 COM 方法并设置 COM 属性。 COM 类是一个 VB6 ActiveX DLL。该实现与此页面中的 VB6 代码完全相同 http://msdn.microsoft .com/en-us/library/ms973800.aspx。

简而言之，项目是 PhysServer，类名为 Temperature，它有两个属性 Celsius 和 Fahrenheit 和两个方法 GetCelsius() 和 GetFahrenheit()。

我已经运行 regsvr32 来将 ActiveX DLL 注册到计算机。 ProgID 是PhysServer.Temperature。

我有三个代码块

代码块 1（有效）

Option Explicit Off
Option Strict Off
...
Dim objType = Type.GetTypeFromProgID("PhysServer.Temperature")
Dim comObj = Activator.CreateInstance(objType)
comObj.Celsius = 100
Dim f As Double = comObj.GetFahrenheit()
Console.WriteLine(f) ' shows 212

代码块 2（有效）

Option Explicit On
Option Strict On
...
Dim objType = Type.GetTypeFromProgID("PhysServer.Temperature")
Dim comObj = Activator.CreateInstance(objType)
Microsoft.VisualBasic.CallByName(comObj, "Celsius", CallType.Let, 100)
Dim f As Double = CDbl(Microsoft.VisualBasic.CallByName(comObj, "GetFahrenheit", CallType.Method, Nothing))
Console.WriteLine(f) ' shows 212

代码块 3（无效）

Option Explicit On
Option Strict On
...
Dim objType = Type.GetTypeFromProgID("PhysServer.Temperature")
Dim comObj = Activator.CreateInstance(objType)
Dim f As Double = CDbl(objType.InvokeMember("GetFahrenheit", Reflection.BindingFlags.InvokeMethod, Nothing, comObj, Nothing))
Console.WriteLine(f) ' shows the default value of GetFahrenheit '
objType.InvokeMember("Celsius", Reflection.BindingFlags.SetField Or Reflection.BindingFlags.InvokeMethod, Nothing, comObj, New Object() {100}) ' throws exception: Number of parameters specified does not match the expected number '
f = CDbl(objType.InvokeMember("GetFahrenheit", Reflection.BindingFlags.InvokeMethod, Nothing, comObj, Nothing))
Console.WriteLine(f)

我明白代码块 1 和代码块 2。但是，如何像代码块 3 一样使用反射设置 COM 对象？由于某些原因，我无法使用代码块 1 和代码块 2。所以唯一的方法是代码块 3...但它不起作用。

有谁知道代码块3的解决方案吗？谢谢！

Answer 1

试试这个：

objType.InvokeMember("Celsius", Reflection.BindingFlags.SetProperty Or ...

而不是 SetField。

comObj 是一个运行时可调用的包装器，而摄氏温度将是其属性，而不是字段。

您也可能还需要指定 BindingFlags.Instance 标志。