取自动化Com组件所有的方法、属性名称

最新推荐文章于 2023-01-22 14:24:15 发布

最新推荐文章于 2023-01-22 14:24:15 发布 · 170 阅读

作者因工作接触COM自动化，分享了相关代码实践。代码中包含COM初始化、创建Excel对象、获取类型信息等操作。同时作者正在学习《COM原理与应用》，并表示此文是blog一年后“我心依旧”的见证。

Author:zfive5(zhaozidong)
Email :zfive5@yahoo.com.cn

最近由于工作原因，一直在接触com自动化的东西，一个字妙不可言，在这方面的长进也是这几个月来体会到的，废话不说了，代码来也......

#include "comdef.h"
void CTest1Dlg::OnOK()
{
// TODO: Add extra validation here

::CoInitialize(NULL);
{

COleDispatchDriver app;
if(!app.CreateDispatch("Excel.Sheet"))
{
::CoUninitialize();
return;
}
ITypeInfo *pType=NULL;
UINT nCount;
app.m_lpDispatch->GetTypeInfo(0,0,&pType);

app.m_lpDispatch->GetTypeInfoCount(&nCount);
FUNCDESC *pfunc;
VARDESC *pVar;
CString str="";
CString str1="";
CEdit *pWnd1=NULL;
CEdit *pWnd2=NULL;

pWnd1=(CEdit *)GetDlgItem(IDC_EDIT1);
pWnd2=(CEdit *)GetDlgItem(IDC_EDIT2);
for(int i=0;i>=0;i++)
{
if(pType->GetFuncDesc(i,&pfunc)!=S_OK)
{
break;
}

BSTR bstrName,bstrDoc;
DWORD id;
pType->GetDocumentation(pfunc->memid,&bstrName,&bstrDoc,&id,NULL);
str=bstrName;
str+=" ";
if(pfunc->invkind==DISPATCH_METHOD)
{
char buf[20];
str+=_bstr_t(itoa(pfunc->cParams,buf,10));
pWnd1->GetWindowText(str1);
str1+=str;
str1+="/r/n";
pWnd1->SetWindowText(str1);
}
else if(pfunc->invkind==INVOKE_PROPERTYGET)
{
pWnd2->GetWindowText(str1);
str1+=str;
str1+=" ";
str1+="GET";
str1+="/r/n";
pWnd2->SetWindowText(str1);
}
else if(pfunc->invkind==INVOKE_PROPERTYPUT)
{
char buf[20];
str+=_bstr_t(itoa(pfunc->cParams,buf,10));
pWnd2->GetWindowText(str1);
str1+=str;
str1+=" ";
str1+="PUT";
str1+="/r/n";
pWnd2->SetWindowText(str1);
}
else
{
char buf[20];
str+=_bstr_t(itoa(pfunc->cParams,buf,10));
pWnd2->GetWindowText(str1);
str1+=str;
str1+=" ";
str1+="REF";
str1+="/r/n";
pWnd2->SetWindowText(str1);
}