COM+ 的最大数量限制函数参数

Question

我正在使用 Delphi 类型库创建 COM+ 应用程序。当我为一个函数调用创建 78 个参数时，出现访问冲突错误。我意识到 COM+ 函数的参数数量是有限制的。所以之后，我必须使用类型化结构/记录来打包参数。然后传递一条记录而不是多个简单数据类型参数。

您知道这个限制吗？您有什么建议？

我做了更多涉及结构/记录的测试，然后安装新组件并在调用它时收到错误：

我调用该函数：

ReturnVaule := Clients.updClient2(EmploymentApp.SessionID,
                                MyClientDetails,
                                dtLastModificationDate,
                                ClientServices,
                                ClientRequestors,
                                ClientQuestionnaires);

并且收到错误：

“空引用指针已传递给存根”

Answer 1

我不认为 Delphi 或 COM+ 中有任何这样的限制。我不确定是什么导致了您的错误，但我认为您需要更详细地描述您所做的事情。

无论如何，使用具有这么多参数的方法是不明智的。超过大约 4 或 5 个已经在拉伸它。将此事件视为一个温和的暗示，以更易于管理的方式重新思考您的设计。

Answer 2

正如您所说，您可以使用类型库编辑器来声明您的记录类型，然后修改您的方法以使用该类型的参数。

编辑：来自类型库编辑器的示例屏幕截图：

来自类型库编辑器的类型库声明生成以下内容代码（摘录）：

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
  ITest = interface;
  ITestDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
  Test = ITest;


// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
  TestRecord = packed record
    Field1: Integer;
    Field2: WideString;
    Field3: TDateTime;
  end;


// *********************************************************************//
// Interface: ITest
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F3EA5C38-23A6-4919-A51F-31C46DB6012D}
// *********************************************************************//
  ITest = interface(IDispatch)
    ['{F3EA5C38-23A6-4919-A51F-31C46DB6012D}']
    procedure TestMethod(TestParam: TestRecord); safecall;
  end;

// *********************************************************************//
// DispIntf:  ITestDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {F3EA5C38-23A6-4919-A51F-31C46DB6012D}
// *********************************************************************//
  ITestDisp = dispinterface
    ['{F3EA5C38-23A6-4919-A51F-31C46DB6012D}']
    procedure TestMethod(TestParam: {??TestRecord}OleVariant); dispid 201;
  end;

Answer 3

最后，我使用 Variant 参数来传输大部分参数，然后将它们作为数组读取出来。它工作得很好，但要知道数组的索引映射到哪个参数并不容易。