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;

在事件处理程序中，您必须测试以查看是否引用了第一个实例，或者是ghost实例。（两次都被召唤）。

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

这是一个kludge（我承认），但它一劳永逸地解决了这个问题，从那以后加载项就稳定了。

不要一遍又一遍地重新创建链接
每次需要查询应用程序时，都不应该使用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');

编译时没有错误。
如果导入类型lib并使访问变量成为特定类型，例如：

type
  TMyServer = IMyServer;

通过从Delphi自动化服务器导入类型库来获取IMyServer，请参阅：http://www.blong.com/Articles/Automation%20In%20Delphi/Automation.htm
部分：Controlling Automation Servers Using Interfaces及以下。

问题2

为什么CreateOleObject连接到正在运行的应用程序实例而不是一直创建单独的实例？

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

它声明：

CreateOleObject创建一个由ClassName参数指定的类的未初始化对象。 ClassName指定类ID（CLSID）的字符串表示形式。 CreateOleObject用于在已知CLSID时以及当对象位于本地或进程内服务器上时创建指定类型的对象。只使用CreateOleObject创建不属于聚合的对象。

注意：在Delphi代码中，CreateOleObject被调用一次以创建类的每个新单个实例。 要创建同一类的多个实例，建议使用类工厂。

问题3

tmSingle线程模型是否意味着对自动化服务器的所有调用都在应用程序的主线程中执行？

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

自动化服务器使用CreateOleObject启动两次，但不是所有时间

1 个答案: