Delphi COM对象多线程

Question

我已经编程一段时间了，关于COM/ActiveX对象，我面临着非常奇怪的问题，这些问题显然超出了我的知识范围。给你。我的软件使用后期绑定与COM对象进行通信。由于这些COM对象与硬件（例如scientific camera）进行通信，我选择将所有调用串联到一个专用线程中。这允许主线程与用户交互。因此，我将消息从主用户线程（或任何其他线程）发送到专门处理activeX的线程。

这是它的样子

procedure MythreadActiveX.execute;
begin

  CoInitialize(nil);
  Try

  ComObject       :=CreateOLEObject(COMID);

  While not Terminated do
  Begin

  If PeekMessage(Msg,0,0,0,PM_REMOVE) then 
    Begin
     TranslateMessage(Msg); 
     DispatchMessage (Msg); 
    end;

    If (FEvent.WaitFor(TimOutMs)=wrSignaled) then   // Wait for command
    Begin

      FEvent.ResetEvent;

      Try

      Case COM_Order of
          Oder1:Begin
                 .........
                end    
          Oder2:Begin
                 .........
                end    
      end;

      FEventComplete.SetEvent;

    end;
   end; 

   CoUnInitialize;
end;

这对大多数COM服务器来说都很有魅力，但对其他COM DLL/Server来说却失败了，尤其是用Visual Basic编写的，我在进程浏览器中注意到，尽管我上面做了什么，但ActiveX代码还是执行到了主线程中！结果导致-主线程保持-主线程内存损坏（例如大数组）...==我的应用程序崩溃

原因是什么？这与ActiveX线程模型有关吗？我想了解并纠正我的代码以应对这种情况（在这种情况下，COM应在主线程中运行......）

谢谢（因为我花了时间在这方面，我准备提供更多信息以便理解）

Answer 1

CreateOLEObject在内部使用CoCreateInstance，并通过将dwClsContext作为CLSCTX\u LOCAL\u服务器传递，应强制COM将任何DLL加载到特定的dllhost中。exe。我这里没有自己尝试的工具，但有了额外的包装，这可能会解决您的问题。

另请参见此问题。

Answer 2

因为COM对象被分发到主胎面中，所以使用CoLaunalizeEx（nil，COINIT_MULTITHREADED）比使用CoLaunalizeEx（nil，<--plhd--0/>）更好。