c# - C#/WSC (COM) 互操作中的 FatalExecutionEngineError

Question

我即将为一个用 VBScript 编写的遗留系统开始一个迁移项目。它有一个有趣的结构，其中大部分是通过将各种组件编写为“WSC”文件来隔离的，这实际上是一种以类似 COM 的方式公开 VBScript 代码的方式。从“核心”到这些组件的边界接口相当紧密且众所周知，因此我希望我能够处理编写新核心并重用 WSC，推迟重写。

可以通过添加对“Microsoft.VisualBasic”的引用并调用来加载 WSC

var component = (dynamic)Microsoft.VisualBasic.Interaction.GetObject("script:" + controlFilename, null);

其中“controlFilename”是完整的文件路径。GetObject 返回“System.__ComObject”类型的引用，但可以使用 .net 的“动态”类型访问属性和方法。

最初这似乎工作正常，但是当一组相当特定的情况结合在一起时，我遇到了问题——我担心这可能会发生在其他情况下，或者更糟糕的是，大部分时间都在发生坏事并被掩盖，只是在我最不期待的时候等待爆炸。

引发的异常属于“System.ExecutionEngineException”类型，听起来特别可怕（而且含糊不清）！

我拼凑了我认为是最小重现案例的内容，并希望有人可以对问题可能是什么有所了解。我还确定了一些似乎可以阻止它的调整，但我无法解释原因。

创建一个名为“WSCErrorExample”的新空“ASP.NET Web 应用程序”（我在 VS 2013 / .net 4.5 和 VS 2010 / .net 4.0 中完成了此操作，没有区别）
向项目添加对“Microsoft.VisualBasic”的引用

添加一个名为“Default.aspx”的新“Web 表单”并将以下内容粘贴到“Default.aspx.cs”的顶部

using System;
using System.IO;
using System.Reflection;
using System.Runtime.InteropServices;
using Microsoft.VisualBasic;

namespace WSCErrorExample
{
    public partial class Default : System.Web.UI.Page
    {
        protected void Page_Load(object sender, EventArgs e)
        {
            var currentFolder = GetCurrentDirectory();
            var logFile = new FileInfo(Path.Combine(currentFolder, "Log.txt"));
            Action<string> logger = message =>
            {
                // The try..catch is to avoid IO exceptions when reproducing by requesting the page many times
                try { File.AppendAllText(logFile.FullName, message + Environment.NewLine); }
                catch { }
            };

            var controlFilename = Path.Combine(currentFolder, "TestComponent.wsc");
            var control = (dynamic)Interaction.GetObject("script:" + controlFilename, null);

            logger("About to call Go");
            control.Go(new DataProvider(logger));
            logger("Completed");
        }
        private static string GetCurrentDirectory()
        {
            // This is a way to get the working path that works within ASP.Net web projects as well as Console apps
            var path = Path.GetDirectoryName(Assembly.GetExecutingAssembly().GetName().CodeBase);
            if (path.StartsWith(@"file:\", StringComparison.InvariantCultureIgnoreCase))
                path = path.Substring(6);
            return path;
        }

        [ComVisible(true)]
        public class DataProvider
        {
            private readonly Action<string> _logger;
            public DataProvider(Action<string> logger)
            {
                _logger = logger;
            }

            public DataContainer GetDataContainer()
            {
                return new DataContainer();
            }

            public void Log(string content)
            {
                _logger(content);
            }
        }

        [ComVisible(true)]
        public class DataContainer
        {
            public object this[string fieldName]
            {
                get { return "Item:" + fieldName; }
            }
        }
    }
}

添加一个名为“TestComponent.wsc”的新“文本文件”，打开其属性窗口并将“复制到输出目录”更改为“如果较新则复制”，然后将以下内容粘贴到其内容中

<?xml version="1.0" ?>
<?component error="false" debug="false" ?>
<package>
    <component id="TestComponent">
        <registration progid="TestComponent" description="TestComponent" version="1" />
        <public>
            <method name="Go" />
        </public>
        <script language="VBScript">
            <![CDATA[
                Function Go(objDataProvider)
                    Dim objDataContainer: Set objDataContainer = objDataProvider.GetDataContainer()
                    If IsEmpty(objDataContainer) Then
                        mDataProvider.Log "No data provided"
                    End If
                End Function
        ]]>
        </script>
    </component>
</package>

运行一次应该不会导致明显的问题，“Log.txt”文件将被写入“bin”文件夹。但是，刷新页面通常会导致异常

托管调试助手“FatalExecutionEngineError”在“C:\Program Files (x86)\IIS Express\iisexpress.exe”中检测到问题。

附加信息：运行时遇到致命错误。错误地址位于线程 0x1e10 上的 0x733c3512。错误代码为 0xc0000005。此错误可能是 CLR 中的错误或用户代码的不安全或不可验证部分中的错误。此错误的常见来源包括 COM-> interop 或 PInvoke 的用户封送错误，这可能会损坏堆栈。

有时，第二个请求不会导致此异常，但在浏览器窗口中按住 F5 几秒钟将确保它抬起丑陋的头。据我所知，该异常发生在“If IsEmpty”检查中（此重现案例的其他版本有更多的日志记录调用，这表明该行是问题的根源）。

我尝试了各种方法来解决这个问题，我尝试在控制台应用程序中重新创建并且问题没有发生，即使我启动了数百个线程并让它们处理上面的工作。我尝试了一个 ASP.Net MVC Web 应用程序，而不是使用 Web 窗体，并且确实发生了同样的问题。我已经尝试将公寓状态从默认的 MTA 更改为 STA（那时我有点抓紧了稻草！）并且它没有改变行为。我尝试构建一个使用 Microsoft 的OWIN 实现的 Web 项目，并且该问题也出现在该场景中。

我注意到了两件有趣的事情——如果“DataContainer”类没有索引属性（或默认方法/属性，用 [DispId(0)] 属性装饰——在这个例子中没有说明），那么错误不会发生。如果“logger”闭包不包含“FileInfo”引用（如果维护了字符串“logFilePath”，而不是 FileInfo 实例“logFile”），则不会发生错误。我想这听起来像是一种方法是避免做这些事情！但我担心可能有其他方法来触发我目前不知道的这种情况，并且随着代码库的增长，尝试强制执行不做这些事情的规则可能会变得复杂，我可以想象这个错误又重新出现，而没有立即明显的原因。

在一次运行中（通过 Katana），我得到了额外的调用堆栈信息：

该线程仅在调用堆栈上的外部代码帧停止。外部代码帧通常来自框架代码，但也可以包括在目标进程中加载的其他优化模块。

使用外部代码调用堆栈

mscorlib.dll!System.Variant.Variant(object obj) mscorlib.dll!System.OleAutBinder.ChangeType(object value, System.Type type, System.Globalization.CultureInfocultureInfo) mscorlib.dll!System.RuntimeType.TryChangeType(object value , System.Reflection.Binder binder, System.Globalization.CultureInfoculture, bool needsSpecialCast) mscorlib.dll!System.RuntimeType.CheckValue(object value, System.Reflection.Binder binder, System.Globalization.CultureInfoculture, System.Reflection.BindingFlags invokeAttr) mscorlib.dll!System.Reflection.MethodBase.CheckArguments(object[] parameters, System.Reflection.Binder binder, System.Reflection.BindingFlags invokeAttr, System.Globalization.CultureInfoculture, System.Signature sig) [本机到托管转换]

最后一点：如果我为“DataProvider”类创建一个包装器，使用IReflect并将 IDispatch 上的调用映射到对底层“DataProvider”实例的调用，那么问题就消失了。但同样，决定这是某种答案对我来说似乎很危险——如果我必须小心谨慎地确保传递给组件的任何引用都具有这样的包装器，那么错误可能会蔓延到难以追踪的地方。如果封装在 IReflect 实现包装器中的引用返回来自方法或属性调用的引用，该引用未以相同方式包装怎么办？我想包装器可以尝试做一些事情，比如确保它只返回“安全”引用（即。在进一步的 IReflect 包装器中.. 但这一切似乎都有点 hacky。

我真的不知道下一步该去哪里解决这个问题，有人知道吗？

score 2 · Accepted Answer

我的猜测是，您看到的错误是由于 WSC 脚本组件本质上是 COM STA 对象这一事实引起的。它们由底层的 VBScript Active Scripting Engine 实现，它本身就是一个 STA COM 对象。因此，它们需要创建和访问 STA 线程，并且此类线程应在任何特定 WSC 对象的生命周期内保持不变（该对象需要线程亲和性）。

ASP.NET 线程不是 STA。它们是ThreadPool线程，当您开始在它们上使用 COM 对象时，它们隐含地成为 COM MTA 线程（有关 STA 和 MTA 之间的差异，请参阅信息：OLE 线程模型的描述和工作原理）。COM 然后为您的 WSC 对象创建一个单独的隐式 STA 单元，并从您的 ASP.NET 请求线程中编组调用。整个事情在 ASP.NET 环境中可能会也可能不会顺利。

理想情况下，您应该摆脱 WSC 脚本组件并将其替换为 .NET 程序集。如果这在短期内不可行，我建议您运行自己的明确控制的 STA 线程来托管 WSC 组件。以下可能会有所帮助：

更新了，何不试试呢？您的代码如下所示：

// create a global instance of ThreadAffinityTaskScheduler - per web app
public static class GlobalState 
{
    public static ThreadAffinityTaskScheduler TaScheduler { get; private set; }

    public static GlobalState() 
    {
        GlobalState.TaScheduler = new ThreadAffinityTaskScheduler(
            numberOfThreads: 10,
            staThreads: true, 
            waitHelper: WaitHelpers.WaitWithMessageLoop);
    }
}

// ... inside Page_Load

GlobalState.TaScheduler.Run(() => 
{
    var control = (dynamic)Interaction.GetObject("script:" + controlFilename, null);

    logger("About to call Go");
    control.Go(new DataProvider(logger));
    logger("Completed");

}, CancellationToken.None).Wait();

如果可行，您可以通过使用PageAsyncTaskandasync/await而不是阻塞来提高 Web 应用程序的可伸缩性Wait()。

c# - C#/WSC (COM) 互操作中的 FatalExecutionEngineError

1 回答 1

Related

Reference