使用 Fortran DLL 进行 NUnit 测试

Question

我有一个来自 Fortran 的 ServerCom DLL。我使用 tlbimp 从 ServerCom.dll 自动生成 MyFortran.dll，可以直接从 C# 引用。

在 C# 类库中，我引用了 MyFortran.dll。

我创建了一个使用 MyFortran.dll 的控制台应用程序并生成了正确的清单（以便拥有自由互通的 COM 环境）。

它在控制台应用程序中完美运行。

现在，我编写了一个简单的 NUnit 测试，并收到了 COM 异常。

System.Runtime.InteropServices.COMException ：检索 COM 类工厂 具有 CLSID 的组件 {0FB0F699-4EF8-4732-B98E-C088825E3912} 由于以下错误而失败： 80040154 类未注册 （HRESULT 异常：0x80040154 （REGDB_E_CLASSNOTREG））。

我该如何解决这个问题？

谢谢， 阿德里安.

Answer 1

您可以使用激活上下文 API 来实现此目的。此博客文章 给出了所有详细信息。

这是一个总结。

将以下代码粘贴到您的项目中（感谢 Spike McLarty）：

/// <remarks>
/// Code from http://www.atalasoft.com/blogs/spikemclarty/february-2012/dynamically-testing-an-activex-control-from-c-and
/// </remarks>
class ActivationContext
{
    static public void UsingManifestDo(string manifest, Action action)
    {
        UnsafeNativeMethods.ACTCTX context = new UnsafeNativeMethods.ACTCTX();
        context.cbSize = Marshal.SizeOf(typeof(UnsafeNativeMethods.ACTCTX));
        if (context.cbSize != 0x20)
        {
            throw new Exception("ACTCTX.cbSize is wrong");
        }
        context.lpSource = manifest;

        IntPtr hActCtx = UnsafeNativeMethods.CreateActCtx(ref context);
        if (hActCtx == (IntPtr)(-1))
        {
            throw new Win32Exception(Marshal.GetLastWin32Error());
        }
        try // with valid hActCtx
        {
            IntPtr cookie = IntPtr.Zero;
            if (!UnsafeNativeMethods.ActivateActCtx(hActCtx, out cookie))
            {
                throw new Win32Exception(Marshal.GetLastWin32Error());
            }
            try // with activated context
            {
                action();
            }
            finally
            {
                UnsafeNativeMethods.DeactivateActCtx(0, cookie);
            }
        }
        finally
        {
            UnsafeNativeMethods.ReleaseActCtx(hActCtx);
        }
    }

    [SuppressUnmanagedCodeSecurity]
    internal static class UnsafeNativeMethods
    {
        // Activation Context API Functions
        [DllImport("Kernel32.dll", SetLastError = true, EntryPoint = "CreateActCtxW")]
        internal extern static IntPtr CreateActCtx(ref ACTCTX actctx);

        [DllImport("Kernel32.dll", SetLastError = true)]
        [return: MarshalAs(UnmanagedType.Bool)]
        internal static extern bool ActivateActCtx(IntPtr hActCtx, out IntPtr lpCookie);

        [DllImport("kernel32.dll", SetLastError = true)]
        [return: MarshalAs(UnmanagedType.Bool)]
        internal static extern bool DeactivateActCtx(int dwFlags, IntPtr lpCookie);

        [DllImport("Kernel32.dll", SetLastError = true)]
        internal static extern void ReleaseActCtx(IntPtr hActCtx);

        // Activation context structure
        [StructLayout(LayoutKind.Sequential, Pack = 4, CharSet = CharSet.Unicode)]
        internal struct ACTCTX
        {
            public Int32 cbSize;
            public UInt32 dwFlags;
            public string lpSource;
            public UInt16 wProcessorArchitecture;
            public UInt16 wLangId;
            public string lpAssemblyDirectory;
            public string lpResourceName;
            public string lpApplicationName;
            public IntPtr hModule;
        }

    }
}

每次您需要创建一个 COM 对象（本例中为 COMObject），将创建它的调用包装在 lambda 函数中，并将其传递给UsingManifestDo，如下所示：

object CreateManifestDependantCOMObject() 
{
   object myCOMObject = null;
   ActivationContext.UsingManifestDo(pathToManifestFile, () => myCOMObject = new COMObject());
   return myCOMObject;
}

Answer 2

是的，这行不通。免注册表 COM 清单需要嵌入到使用 COM 服务器的 EXE 中。对于您的控制台应用程序来说足够简单。当您使用 NUnit 时并不容易，因为 EXE 现在是单元测试运行程序。你不能/不应该打扰它。无论如何，很难做到，因为它们有很多。

不用担心，这是与您想要执行的测试无关的部署细节。只需在执行测试的计算机上使用 regsvr32.exe 注册服务器即可完成。

Answer 3

看看这个答案：
如何在插件中实现免注册 COM -在架构中

尤金表示这可以通过以下两种方式之一实现：
1. 将清单嵌入到 dll 中并使用 ISOLATION_AWARE_ENABLED 进行编译
2.使用上下文激活API