0

我们在具有 UI 的独立应用程序中运行在 MTA 中的进程外服务器。

服务器按以下方式初始化。

方案 1

initialization  begin
  CoUninitialize;
  CoUninitialize;
  CoUninitialize; //i have to call it three times to be able to initialize the MTA
  OLECHECK(ComObj.CoInitializeEx(nil, COINIT_MULTITHREADED));
  TAutoObjectFactory.Create(ComServer, MyServer,
     Class_MyServer,ciMultiInstance, tmFree);
end;

我只是启动应用程序，然后在没有任何客户端连接的情况下关闭。在关闭期间发生以下错误：Runtime error 216 at 00408A2E我无法追踪它，它似乎与 COM 有关，我认为我做错了什么。

如果我在 STA 中初始化服务器，则不会发生错误

initialization  begin
  TAutoObjectFactory.Create(ComServer, MyServer,
      Class_MyServer,ciMultiInstance, tmSingle);
end;

方案 2

我还尝试在初始化部分创建一个线程并在其中创建服务器，Thread.execute并且在关闭期间没有错误，但客户端没有发现服务器的第一个实例而是激活另一个实例。

procedure TDCOMThread.Execute;
var dwReturn:DWORD;
    Msg:TMsg;
    H:THandle;
begin
    OleCheck(ComObj.CoInitializeEx(nil, COINIT_MULTITHREADED));
    TAutoObjectFactory.Create(ComServer, MyServer,
         Class_MyServer,ciMultiInstance, tmFree);
    H:=EVentStop.Handle;
    while true do
    begin
       dwReturn:=MsgWaitForMultipleObjects(1,H,false,200,QS_ALLINPUT);
       case dwReturn of
         WAIT_OBJECT_0: break;
         (WAIT_OBJECT_0+1): begin
             while PeekMessage(msg,0,0,0,PM_REMOVE) do
               Dispatch(Msg);
         end;
         WAIT_TIMEOUT:begin
                           while PeekMessage(msg,0,0,0,PM_REMOVE) do
                             Dispatch(Msg);
                        if Terminated then
                         break;
                      end;
         WAIT_FAILED:begin
              break;
         end;
         WAIT_ABANDONED:
         begin
           break;
         end;

       end;
    end;
    CoUninitialize;
end;

初始化部分

 initialization  begin
        EVentStop:=Tevent.Create(true);
        EVentStop.ResetEvent;
        DThread:=TDCOMThread.Create(true);
        DThread.Resume;
    end;

您能否提供任何建议如何在 MTA 中初始化服务器并绕过以下问题：

  1. 关闭时不报错
  2. 当手动启动服务器时，客户端不启动服务器应用程序的另一个实例 - 当我使用线程初始化服务器时出现此问题
4

1 回答 1

0

在场景 2 中，尝试从新创建的工厂调用 RegisterClassObject。如果在主线程中创建工厂 - RegisterClassObject 会自动调用。

于 2014-12-26T13:00:35.357 回答