从单线程进行COM调用会使线程挂起

问题描述

我有一个通过自动化加载项执行一些excel自动化的应用程序。 此加载项是多线程的，并且所有线程都设法对excel COM对象进行调用。由于excel有时在进行多个调用时可能会返回“正忙”异常，因此我将所有调用都包装在一个“重试”函数中。但是我觉得这是不够的。 我现在试图在同一线程上对excel对象进行所有调用，以便所有调用都被我“序列化”，从而降低了excel返回“繁忙”异常的风险。 但是，当该线程尝试访问excel对象时，应用程序挂起。我尝试将线程设置为STA或MTA无济于事。 我用于从单个线程启动所有内容的代码如下： \“违规\”部分应该在\“ DoPass \”中，也许我调用委托的方式有些错误。

public static class ExcelConnector
{
    public static Thread _thread;
    private static int ticket;
    public static Dictionary<Delegate,int> actionsToRun = new Dictionary<Delegate,int>();
    public static Dictionary<int,object> results = new Dictionary<int,object>();


    static ExcelConnector()
    {
        LaunchProcess();
    }

    public static int AddMethodToRun(Delegate method)
    {
        lock (actionsToRun)
        {
            ticket++;
            actionsToRun.Add(method,ticket);
        }
        return ticket;
    }

    public static bool GetTicketResult(int ticket,out object result)
    {
        result = null;
        if (!results.ContainsKey(ticket))
            return false;
        else
        {
            result = results[ticket];
            lock (results)
            {
                results.Remove(ticket);
            }

            return true;
        }
    }

    public static void LaunchProcess()
    {
        _thread = new Thread(new ThreadStart(delegate
                                                 {

                                                     while (true)
                                                     {
                                                         DoPass();
                                                     }
                                                 }));
        //    _thread.SetApartmentState(ApartmentState.STA);
        //   _thread.IsBackground = true;

        _thread.Start();
    }

    public static void DoPass()
    {
        try
        {
            Logger.WriteLine(\"DoPass enter\");


            Dictionary<Delegate,int> copy;
            lock (actionsToRun)
            {
                copy = new Dictionary<Delegate,int>(actionsToRun);
            }


            //run
            foreach (var pair in copy)
            {
                object res = pair.Key.Method.Invoke(
                    pair.Key.Target,null);
                lock (results)
                {
                    results[pair.Value] = res;
                }
                lock (actionsToRun)
                {
                    actionsToRun.Remove(pair.Key);
                }

                Thread.Sleep(100);
            }
        }
        catch (Exception e)
        {
            Logger.WriteError(e);
            //mute
        }
    }
}

编辑：错误可以在一个简单的测试中重现（readline只是为了给ExcelConnector线程工作时间）：

var excelApp = new Application();
        excelApp = new Application();
        excelApp.Visible = true;
        excelApp.DisplayAlerts = false;

        System.Action act = delegate
                                {
                                    string s = excelApp.Caption;
                                    Console.WriteLine(s);

                                };
        ExcelConnector.AddMethodToRun(act);
        Console.ReadLine();

    

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）