我想在DELPHI给VC写的DLL COM组件中的属性赋值,
VC当中IDL Source文件是如下描述: interface IComOpiTrx : IDispatch
{
[id(1), helpstring("method ClearI")] HRESULT ClearI([in, optional, defaultvalue("")] BSTR TrxID);
[id(2), helpstring("method ClearO")] HRESULT ClearO([in, optional, defaultvalue("")] BSTR TrxID);
[id(3), helpstring("method SendRecv")] HRESULT SendRecv([in] BSTR MyNodeName, [in] BSTR SrvNodeName, [in] BSTR TrxPath, [out, retval] long *pVal);
[propput, id(4), helpstring("property MemberI")] HRESULT MemberI(BSTR *pErrMes, [in] BSTR Item1, [in, optional, defaultvalue(0)] int Index1, [in, optional, defaultvalue("")] BSTR Item2, [in, optional, defaultvalue(0)] int Index2, [in, optional, defaultvalue("")] BSTR Item3, [in, optional, defaultvalue(0)] int Index3, [in, optional, defaultvalue("")] BSTR Item4, [in, optional, defaultvalue(0)] int Index4, [in, optional, defaultvalue("")] BSTR Item5, [in, optional, defaultvalue(0)] int Index5, [in, optional, defaultvalue("")] BSTR Item6, [in, optional, defaultvalue(0)] int Index6, [in, optional, defaultvalue("")] BSTR Item7, [in, optional, defaultvalue(0)] int Index7, [in, optional, defaultvalue("")] BSTR Item8, [in, optional, defaultvalue(0)] int Index8, [in, optional, defaultvalue("")] BSTR Item9, [in, optional, defaultvalue(0)] int Index9, [in, optional, defaultvalue("")] BSTR ItemN, [in] BSTR newVal);
[propget, id(5), helpstring("property MemberO")] HRESULT MemberO(BSTR *pErrMes, [in] BSTR Item1, [in, optional, defaultvalue(0)] int Index1, [in, optional, defaultvalue("")] BSTR Item2, [in, optional, defaultvalue(0)] int Index2, [in, optional, defaultvalue("")] BSTR Item3, [in, optional, defaultvalue(0)] int Index3, [in, optional, defaultvalue("")] BSTR Item4, [in, optional, defaultvalue(0)] int Index4, [in, optional, defaultvalue("")] BSTR Item5, [in, optional, defaultvalue(0)] int Index5, [in, optional, defaultvalue("")] BSTR Item6, [in, optional, defaultvalue(0)] int Index6, [in, optional, defaultvalue("")] BSTR Item7, [in, optional, defaultvalue(0)] int Index7, [in, optional, defaultvalue("")] BSTR Item8, [in, optional, defaultvalue(0)] int Index8, [in, optional, defaultvalue("")] BSTR Item9, [in, optional, defaultvalue(0)] int Index9, [in, optional, defaultvalue("")] BSTR ItemN, [out, retval] BSTR *pVal);
[id(6), helpstring("method SendRecvNoXML")] HRESULT SendRecvNoXML(BSTR txname, BSTR sndbuf, long sndlen, BSTR *rcvbuf, long *rcvlen, [out, retval] long *pVal);
};

我在DELPHI中通过Project-->Import Type Library 把这个DLL 转成XXXLIB_TIB文件,然后给出定义:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,COMTRXXMLLib_TLB,comobj;
  
var
  Form1: TForm1;
  UASCHECK_StructObj:IComOpiTrx;
  
然后我用            
UASCHECK_StructObj.MemberI[strErrMes,'user_id',1]:= 'abc';
来给其中一个参数赋值,系统编译提示"Not enough actual parameters"  请问各位大侠,我该如何给MemberI各个参数赋值,非常感谢!