描述:
上午10点
我的用MFC向导制作的COM:IAMCOM.EXE
其ODL文件的部分内容如下:
[ uuid(DFD13808-E6FE-49C3-BEBE-A420ED736DDC), version(1.0) ]
library IAMCOM
{
importlib("stdole32.tlb");
importlib("stdole2.tlb");
// Primary dispatch interface for CIAMCOMDoc
[ uuid(24F6D586-80E6-428F-A4C6-399DAA820C3C) ]
dispinterface IIAMCOM
{
properties:
// NOTE - ClassWizard will maintain property information here.
// Use extreme caution when editing this section.
//{{AFX_ODL_PROP(CIAMCOMDoc)
//}}AFX_ODL_PROP
methods:
// NOTE - ClassWizard will maintain method information here.
// Use extreme caution when editing this section.
//{{AFX_ODL_METHOD(CIAMCOMDoc)
[id(1)] boolean TEST1(BSTR WHO);
//}}AFX_ODL_METHOD
};
// Class information for CIAMCOMDoc
[ uuid(F3A36548-65D7-439D-BBFC-88726FD4C8F5) ]
coclass Document
{
[default] dispinterface IIAMCOM;
};
//{{AFX_APPEND_ODL}}
//}}AFX_APPEND_ODL}}
};
我用VB制作了调用这个COM的客户程序
DIM OCLASS AS OBJECT
SET OCLASS=CREATEOBJECT("IAMCOM.DOCUMENT")
MSGBOX OCLASS.TEST1("I LOVE COM")
SET OCLASS=NOTHING
我用MFC做了调用这个COM的客户程序,步骤是:
用向导导入COM的TLB程序,在客户工程中生成了IAMCOM.CPP文件:
BOOL IIAMCOM::TEST1(LPCTSTR WHO)
{
BOOL result;
static BYTE parms[] =
VTS_BSTR;
InvokeHelper(0x1, DISPATCH_METHOD, VT_BOOL, (void*)&result, parms,
WHO);
return result;
}
然后在IAMCLIDOC.CPP中写了:
_iamcom.CreateDispatch(_T("IAMCOM.DOCUMENT"));
if(_iamcom.TEST1("I LOVE COM")==TRUE)
AfxMessageBox("OK");
else
AfxMessageBox("NO OK");
_iamcom.ReleaseDispatch();
程序测试成功!
11点
我决定增加COM中的功能,增加两个属性和一个方法,
其ODL文件的部分内容如下:
[ uuid(DFD13808-E6FE-49C3-BEBE-A420ED736DDC), version(1.0) ]
library IAMCOM
{
importlib("stdole32.tlb");
importlib("stdole2.tlb");
// Primary dispatch interface for CIAMCOMDoc
[ uuid(24F6D586-80E6-428F-A4C6-399DAA820C3C) ]
dispinterface IIAMCOM
{
properties:
// NOTE - ClassWizard will maintain property information here.
// Use extreme caution when editing this section.
//{{AFX_ODL_PROP(CIAMCOMDoc)
[id(1)] BSTR LastError;
[id(2)] double myname;
//}}AFX_ODL_PROP
methods:
// NOTE - ClassWizard will maintain method information here.
// Use extreme caution when editing this section.
//{{AFX_ODL_METHOD(CIAMCOMDoc)
[id(3)] boolean TEST1(BSTR WHO);
[id(4)] BSTR TEST2(BSTR WHAT);
//}}AFX_ODL_METHOD
};
// Class information for CIAMCOMDoc
[ uuid(F3A36548-65D7-439D-BBFC-88726FD4C8F5) ]
coclass Document
{
[default] dispinterface IIAMCOM;
};
//{{AFX_APPEND_ODL}}
//}}AFX_APPEND_ODL}}
};
我发现原来TEST1方法的[id(1)]变成了[id(3)]
执行原来的VB的客户程序,一切正常;
执行原来的VC的客户程序,也一切正常;
而原来我在实际应用的时候,发现VC客户程序会发生错误,找不到原来的方法.也不知道为什么?
我以为COM一旦实现了一个功能,即便它再增加属性方法都不应该损害原来被客户调用的属性或者
方法呀.