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

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);
    }

    pType->ReleaseFuncDesc(pfunc);
    }
 }
 ::CoUninitialize();

}

这几天正在饿补《com原理与应用》，4年前的书！：（

对了此文为blog一年后--“我心依旧”见证！