delphi - 自动化服务器使用 CreateOleObject 启动两次，但并非每次都启动

Question

我有一个用 Delphi 7 编写的程序，它也是一个自动化服务器。

自动化服务器通过以下方式注册:

  TAutoObjectFactory.Create(ComServer, TMyServer, Class_App,
    ciMultiInstance, tmSingle);

我有两个 COM 加载项，一个用于 Word，一个用于 Outlook。他们都使用自动化服务器从主程序获取一些信息。从加载项调用以下代码，即:当用户单击加载项中的按钮时:

 MyServerApp: Variant;
begin
 MyServerApp := CreateOleObject('MyServer.App');
 try
   MyServerApp.DoSomething;
 finally
   MyServerApp := UnAssigned;
 end–

问题是这样的:大多数时候代码运行良好。如果主应用程序已在运行，则加载项将连接到自动化服务器并执行其操作，如果主应用程序未运行，则加载项将启动主应用程序。

但由于一些未知的情况，尤其是 Outlook，有时可能会发生即使主程序正在运行，加载项也不会连接到它，而是会再次重新启动主应用程序并连接到这个新实例的自动化服务器。灾难来了:由于我的应用程序不允许自身在两个实例中运行，因此第二个应用程序实例将仅显示一条错误消息，并且我的加载项将卡住整个 Outlook。

为什么会发生这种情况？为什么 CreateOleObject 会像大多数时候那样进行连接，并时不时地再次启动我的应用程序？

Answer 1

您确实不应该在一篇文章中提出多个问题。

问题1

这种事在我身上发生过很多次。问题在于 Office 会为触发加载项中的代码的每个事件生成两个调用。我找到的解决方案是只响应第一个调用。

我使用了 Add-In Express 作为 COM 插件，它为我提供了一些可以链接到的事件。
我不确定您是否使用这个，但这是我使用的代码:

interface

....

var
  MyApp: TAddInModule = nil;

implementation

procedure TAddInModule.adxCOMAddInModuleAddInFinalize(Sender: TObject);
begin
  MyApp:= nil;
end;

procedure TAddInModule.adxCOMAddInModuleAddInInitialize(Sender: TObject);
begin
  if not(Assigned(MyApp)) then try
    MyApp:= Self;
  except
    {ignore}
  end; {if try}
end;

在事件处理程序中，您必须测试是否引用了第一个实例或幽灵实例。 (两者有时都会被调用)。

procedure TAddInModule.adxCommandBar1Controls3Click(Sender: TObject);
begin
  if (Self <> MyApp) then exit;
  //ToggleDisplay
  if not(ExcelBezig(xbQuestion)) then try
    ToggleDisplay;
  except {ignore}
  end;
end;

这是一个拼凑(我承认)，但它一劳永逸地解决了问题，并且此后该加载项一直稳定运行。

不要一遍又一遍地重新创建链接
您不应在每次需要查询应用程序时都使用 CreateOleObject('MyServer.App');。激活插件后，您可以调用 CreateOleObject 一次，存储该实例，然后重用该链接。像这样的东西:

procedure TAddInModule.adxCOMAddInModuleAddInInitialize(Sender: TObject);
begin
  if not(Assigned(MyApp)) then try
    MyApp:= Self;
    MyServerApp:= CreateOleObject('MyServer.App');
  except
    {ignore}
  end; {if try}
end;


procedure TAddInModule.adxCommandBar1Controls3Click(Sender: TObject);
begin
  if (Self <> MyApp) then exit;
  try
    MyServerApp.DoSomething;
  except
    {ignore}
  end;
end;

使用变体访问自动化服务器很慢!
因为您使用变体来存储对自动化服务的引用，所以 Delphi 无法在编译时解析您的调用。
它也无法帮助您避免拼写错误和其他错误。
对通过变体访问的服务器的任何调用都是有效的。

所以

 MyServer.StupidTyyyypo('hallo').doesnotexist('should be integer');

编译不会出错。
如果您导入类型库并将访问变量设置为特定类型，例如:

type
  TMyServer = IMyServer;

您可以通过从 Delphi 自动化服务器导入类型库来获取 IMyServer，请参阅:http://www.blong.com/Articles/Automation%20In%20Delphi/Automation.htm
部分:使用接口(interface)控制自动化服务器及以下部分。

问题2

Why does CreateOleObject connect to the running application instance and not create a separate instance all the time?

参见官方文档:http://docwiki.embarcadero.com/Libraries/XE2/en/System.Win.ComObj.CreateOleObject

它指出:

CreateOleObject creates a single uninitialized object of the class specified by the ClassName parameter. ClassName specifies the string representation of the Class ID (CLSID). CreateOleObject is used to create an object of a specified type when the CLSID is known, and when the object is on a local or in-proc server. Only objects that are not part of an aggregate are created using CreateOleObject.

Note: In Delphi code, CreateOleObject is called once to create each new single instance of a class. To create multiple instance of the same class, using a class factory is recommended.

问题3

does the tmSingle threading model mean that all calls to the automation server are executed in the application's main thread?

您应该在一个单独的问题中提出这个问题。