-1

我创建了一个新的 DUnit 测试项目，并尝试在其开始时设置多线程单元。问题是在一台计算机上更改了公寓类型。

program COMApartment;

{$IFDEF CONSOLE_TESTRUNNER}
{$APPTYPE CONSOLE}
{$ENDIF}

uses
  Winapi.ActiveX,
  TestuApartmentInfo in 'TestuApartmentInfo.pas',
  DUnitTestRunner;

{R *.RES}

begin
  CoUninitialize;
  CoInitializeEx(nil, COINIT_MULTITHREADED); // Result is S_OK
  Log(GetCurrentApartmentType); //APTTYPE_MTA on both computers.
  DUnitTestRunner.RunRegisteredTests;
end.

现在，当我运行这个简单的测试时：

unit TestuApartmentInfo;

interface

uses
  TestFramework, Winapi.Windows, uApartmentInfo;

type
  TestIComThreadingInfo = class(TTestCase)
  published
    procedure ApartmentType;
  end;

implementation

uses
  Dialogs, System.SysUtils;

procedure TestIComThreadingInfo.ApartmentType;
begin
  //This gives APTTYPE_MTA on my dev computer (Windows 7) and APTTYPE_MAINSTA or APTTYPE_STA on virtual machine (Windows 2007 Server).
  Log(GetCurrentApartmentType); 
end;

initialization
  RegisterTest(TestIComThreadingInfo.Suite);
end.

我不明白不同计算机上的不同行为。这是由于不同的操作系统造成的吗？在我的测试中，我可以生成另一个线程并为其指定公寓模型，它会起作用，但我好奇的天性想知道为什么在上述情况下会产生不同的结果。

GetCurrentApartmentType已按照本文中的方式实施，并且可以正常工作。这是一个示例应用程序，用于说明我遇到的一些需要在多线程单元模型中运行的 COM 对象的问题。

4

1 回答 1

-1

这篇文章描述了我的问题的解决方案。我的错误是在其他代码已经调用它之后 调用CoUninitialize/ 。应该在任何其他代码之前调用。CoInitializeCoInitialize

于 2017-03-14T08:24:08.733 回答