Delphi COMオブジェクトマルチスレッド

Question

私はしばらくの間プログラミングしてきましたが、COM/ActiveXオブジェクトに関しては、私の知識が明らかに上回っている非常に奇妙な問題に直面しています。 ここにあります。 私のソフトウェアは、レイトバインディングを使用してCOMオブジェクトと通信します。 これらのCOMオブジェクトはハードウェア（例えば、科学的なカメラなど）と話すので、私はすべての呼び出しを専用のスレッドにするように選択しました。これにより、メインスレッドはユーザーと対話できます。 メインのユーザスレッド（または他のスレッド）から、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サーバと魔法のように動作しますが、私はプロセスに気づいた特に、Visual Basicで書かれた他のCOM DLL /サーバー、で失敗私が上記のことをしていたにもかかわらず、ActiveXコードがメインスレッドに実行されることを確認します。 結果結果 で - メインスレッド を保持 - （例えば、大きな配列を持つ）、メインスレッドのメモリ破損... ==私のアプリがクラッシュ

原因は何ですか？これはActiveXスレッディングモデルに関連していますか？ これに対処するためのコードを理解して修正したいと思います（その場合、COMはメインスレッドで実行されます）。

ありがとう 理解するために、より多くの情報を提供する準備ができて）

Answer 1

COMオブジェクトがメイントレッドにディスパッチされたため、CoInitializeEx（nil、COINIT_MULTITHREADED）を使用するとCoInitializeよりも優れています。

Answer 2

CreateOLEObjectが内部CoCreateInstanceを使用し、そしてのみCLSCTX_LOCAL_SERVER（SOなしCLSCTX_INPROC_SERVER）としてdwClsContextを通過させることによって、特定のDllhost.exeに任意のDLLをロードするためにCOMを強制すべきです。私は自分で試してみるためにここに道具を持っていませんが、余分なラッピングをすることでこれがあなたの問題を解決するかもしれません。

this questionも参照してください。