当使用并排清单部署时，.net代码中引发的事件似乎不会发生在COM代码中

这是一个使用事件的。net <-> COM互操作示例。

这个例子工作得很好，只要我使用regasm或者在Visual studio的。net库的构建选项中使用注册com interop选项。但我需要部署使用注册免费互操作启用并排清单。

应用程序在并行模式下运行良好，只是事件似乎消失了。我怀疑这是一些线程编组问题，但我似乎找不到正确的解决方案。

这当然是试图复制我在稍微复杂的互操作集成中遇到的问题。与实际问题相比，我在这里遇到的问题有一个不同之处:

两种解决方案都无法正确接收在。net代码中引发的事件，而运行在reg-free部署上，并且当。net dll在注册表中注册时，两种解决方案都按预期工作。然而:在"真正的"项目上，当它从system . reflect . target失败时，我得到一个运行时错误。在这个简化的例子中，它只是无声地失败。

我完全被这个问题困住了，所以任何建议和解决方案都将非常受欢迎。

我已经把完整的代码放在github上，如果有人需要在回答之前玩它:https://github.com/Vidarls/InteropEventTest

.net部分

using System.Runtime.InteropServices;
using System.Threading.Tasks;
namespace InteropEventTest
{
    [Guid("E1BC643E-0CCF-4A91-8499-71BC48CAC01D")]
    [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    [ComVisible(true)]
    public interface ITheEvents
    {
        void OnHappened(string theMessage);
    }
    [Guid("77F1EEBA-A952-4995-9384-7228F6182C32")]
    [ComVisible(true)]
    public interface IInteropConnection
    {
        void DoEvent(string theMessage);
    }
    [Guid("2EE25BBD-1849-4CA8-8369-D65BF47886A5")]
    [ClassInterface(ClassInterfaceType.None)]
    [ComSourceInterfaces(typeof(ITheEvents))]
    [ComVisible(true)]
    public class InteropConnection : IInteropConnection
    {
        [ComVisible(false)]
        public delegate void Happened(string theMessage);
        public event Happened OnHappened;

        public void DoEvent(string theMessage)
        {
            if (OnHappened != null)
            {
                Task.Factory.StartNew(() => OnHappened(theMessage));
            }
        }
    }
}

COM (VB6)部分

Private WithEvents tester As InteropEventTest.InteropConnection
Private Sub Command1_Click()
    Call tester.DoEvent(Text1.Text)
End Sub
Private Sub Form_Load()
    Set tester = New InteropConnection
End Sub
Private Sub tester_OnHappened(ByVal theMessage As String)
    Text2.Text = theMessage
End Sub

我目前有以下文件/文件夹结构用于部署:

Root
|-> [D] Interop.Event.Tester
    |-> Interop.Event.Tester.manifest
|-> [D] InteropEventTest
    |-> InteropEventTest.dll
|-> InteropEventTest.manifest
|-> InteropEventTest.tlb
|-> tester.exe
|-> tester.exe.manifest

manifest文件的内容:

Interop.Event.Test.manifest

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity name="Interop.Event.Tester" version="1.0.0.0" type="win32" processorArchitecture="x86"/>
</assembly>

InteropEventTest.manifest

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity name="InteropEventTest" version="1.0.0.0" type="win32"/>
<clrClass
   name="InteropEventTest.InteropConnection"
   clsid="{2EE25BBD-1849-4CA8-8369-D65BF47886A5}"
   progid="InteropEventTest.InteropConnection"
   runtimeVersion="v4.0.30319"
   threadingModel="Both"/>
<file name="InteropEventTest.tlb">
 <typelib
     tlbid="{5CD6C635-503F-4103-93B0-3EBEFB91E500}"
     version="1.0"
     helpdir=""
     flags="hasdiskimage"/>
</file>
<comInterfaceExternalProxyStub 
    name="ITheEvents" 
    iid="{E1BC643E-0CCF-4A91-8499-71BC48CAC01D}"
    proxyStubClsid32="{00020424-0000-0000-C000-000000000046}"
    baseInterface="{00000000-0000-0000-C000-000000000046}"
    tlbid="{5CD6C635-503F-4103-93B0-3EBEFB91E500}" />
</assembly>

tester.exe.manifest

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity name="tester.exe" version="1.0.0.0" type="win32" processorArchitecture="x86"/>
<dependency>
 <dependentAssembly>
  <assemblyIdentity name="InteropEventTest" version="1.0.0.0" type="win32"/>
 </dependentAssembly>
</dependency>
<dependency>
 <dependentAssembly>
  <assemblyIdentity name="Interop.Event.Tester" version="1.0.0.0" type="win32" processorArchitecture="x86"/>
 </dependentAssembly>
</dependency>
</assembly>

if (OnHappened != null)        
{  
  try 
  {
    OnHappened(theMessage));
  }
  catch (Exception e)
  {
    Messagebox.Show(e.GetType().Name + " : " +  e.message)
  }
}

public class InteropConnection : Control, IInteropConnection

if (OnHappened != null)        
{  
  try 
  {
    Invoke(OnHappened, theMessage);
  }
  catch (Exception e)
  {
    Messagebox.Show(e.GetType().Name + " : " +  e.message)
  }
}