【发布时间】：2014-04-29 07:58:07
【问题描述】：
我有一个 COM 可见的 .NET 类，它公开事件并在 VB6 中使用。在过去的几天里，我一直试图让它与 regfree COM 一起工作，但没有成功。
- 当事件从原始线程触发时，VB6 事件在无注册模式下运行。
- VB6 事件在注册类型库时从另一个线程触发时运行。 （regasm /tlb /codebase 后跟 regasm /codebase /unregister，后者不会注销 tlb）
在 regfree 模式下从另一个线程触发时，它会引发异常，因此永远不会执行 VB6 事件代码。
System.Reflection.TargetException: Object does not match target type.
at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr, Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[] namedParameters)
at System.RuntimeType.InvokeMember(String name, BindingFlags bindingFlags, Binder binder, Object target, Object[] providedArgs, ParameterModifier[] modifiers, CultureInfo culture, String[] namedParams)
at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
at Example.Vb6RegFreeCom.IExampleClassEvents.TestEvent()
at Example.Vb6RegFreeCom.ExampleClass.OnTestEvent(Action func) in ExampleClass.cs:line 78
我可以想到两种情况：1）清单缺少与 tlb 注册相关的内容，或者 2）在创建新线程时丢失了激活上下文。不幸的是，我不知道如何找出是哪种情况，或者甚至可能是由其他原因引起的。
下面是一个显示我的问题的基本示例。
清单（VB6 可执行文件）
<?xml version="1.0" encoding="utf-8"?>
<assembly xsi:schemaLocation="urn:schemas-microsoft-com:asm.v1 assembly.adaptive.xsd" manifestVersion="1.0" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:dsig="http://www.w3.org/2000/09/xmldsig#" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<assemblyIdentity name="VB6COM" version="1.0.0.0" type="win32" />
<dependency xmlns="urn:schemas-microsoft-com:asm.v2">
<dependentAssembly codebase="Example.Vb6RegFreeCom.tlb">
<assemblyIdentity name="Example.Vb6RegFreeCom" version="1.0.0.0" publicKeyToken="B5630FCEE39CF455" language="neutral" processorArchitecture="x86" />
</dependentAssembly>
</dependency>
</assembly>
清单（C# DLL）
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity name="Example.Vb6RegFreeCom" version="1.0.0.0" publicKeyToken="b5630fcee39cf455" processorArchitecture="x86"></assemblyIdentity>
<clrClass clsid="{8D51802D-0DAE-40F2-8559-7BF63C92E261}" progid="Example.Vb6RegFreeCom.ExampleClass" threadingModel="Both" name="Example.Vb6RegFreeCom.ExampleClass" runtimeVersion="v4.0.30319"></clrClass>
<file name="Example.Vb6RegFreeCom.dll" hashalg="SHA1"></file>
<!--
<file name="Example.Vb6RegFreeCom.TLB">
<typelib tlbid="{FABD4158-AFDB-4223-BB09-AB8B45E3816E}" version="1.0" flags="" helpdir="" />
</file>
-->
</assembly>
C#（平台目标：x86）
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
using System.Threading;
using System.Windows.Forms;
using Timer = System.Threading.Timer;
using FormsTimer = System.Windows.Forms.Timer;
namespace Example.Vb6RegFreeCom {
[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[Guid("467EB602-B7C4-4752-824A-B1BC164C7962")]
public interface IExampleClass {
[DispId(1)] int Test(int mode);
}
[ComVisible(true)]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[Guid("2669EBDB-16D9-45C8-B0A3-ED2CEE26862C")]
public interface IExampleClassEvents {
[DispId(1)] void TestEvent();
}
[ComVisible(true)]
[ClassInterface(ClassInterfaceType.None)]
[ComSourceInterfaces(typeof(IExampleClassEvents))]
[Guid("8D51802D-0DAE-40F2-8559-7BF63C92E261")]
public class ExampleClass: IExampleClass {
public event Action TestEvent;
public int Test(int mode) {
var tempEvent = TestEvent;
if (tempEvent == null) return -1;
switch (mode) {
case 0:
tempEvent();
break;
case 1:
var staThread = new Thread(() => OnTestEvent(tempEvent) );
//if (!staThread.TrySetApartmentState(ApartmentState.STA)) MessageBox.Show("Failed to set STA thread.");
staThread.Start();
break;
case 2:
var invoker = new Invoker();
var otherThread = new Thread(() => invoker.Invoke((Action)(() => OnTestEvent(tempEvent))));
otherThread.Start();
break;
case 3:
var timer = new FormsTimer();
timer.Tick += (_1, _2) => { timer.Dispose(); OnTestEvent(tempEvent); };
timer.Interval = 100;
timer.Start();
break;
default:
return -2;
}
return 1;
}
internal static void OnTestEvent(Action func) {
try { func(); } catch (Exception err) { MessageBox.Show(err.ToString()); }
}
}
internal class Invoker : Control {
internal Invoker() {
this.CreateHandle();
}
}
}
VB6
Option Explicit
Dim WithEvents DotNetObject As ExampleClass
Private Sub cmdImmediate_Click()
CallDotNet 0
End Sub
Private Sub cmdOtherThread_Click()
CallDotNet 1
End Sub
Private Sub cmdSameThread_Click()
CallDotNet 2
End Sub
Private Sub Form_Load()
Set DotNetObject = New ExampleClass
End Sub
Private Sub CallDotNet(TestMode As Long)
Dim ReturnValue As Long
ReturnValue = DotNetObject.Test(TestMode)
If ReturnValue <> 1 Then MsgBox "Return value is " & ReturnValue
End Sub
Private Sub DotNetObject_TestEvent()
MsgBox "Event was raised."
End Sub
【问题讨论】：
-
它似乎在注册 tlb 时工作。期望在
DotNetObject_TestEvent中的哪个线程上执行MsgBox？ （它必须在创建 VB6 对象的 STA 上——从其他单元调用将涉及编组，这就是 STA 的重点） -
@wqw：澄清一下，我的问题是在 regfree 模式下它会引发异常，因此无法到达消息框。我更喜欢使用 winforms 的自动编组而不是我的 quickfix。我会更新问题。
-
是否可能需要类型库只是为了在线程之间编组？我好像记得如果你通过DCOM使用组件，你需要将类型库与客户端分发，否则DCOM层不知道如何进行编组。
-
@Herman：它似乎有效。在
Form_Load中，您在主线程 (Set DotNetObject = New ExampleClass) 上创建 C# 对象，因此不使用封送处理，并且您不能从单独的线程引发事件。您必须在单独的线程上创建 coclass（New ExampleClass），将接口编组回来，然后下沉。 -
@wqw：如果tlb注册到现在，VB6事件实际上是一致执行的。 '似乎工作'你的意思是这是幸运的情况，但它是一个不正确的方法？我将尝试在另一个线程上创建对象。
标签： c# .net com vb6 regfreecom