加载COM组建的初始化+使用COM型Dll+创建目录对话框

void CMyExtractDlg::OnBnClickedButton1()
{
 IWP_Comm* pCom ;
 CLSID  clsid ;

 CoInitialize (NULL);

 HRESULT hr = CLSIDFromProgID (L"WP_Anlayze_Com.WP_Comm",&clsid) ;
 hr = CoCreateInstance (clsid, NULL, CLSCTX_ALL, IWP_CommPtr::GetIID(),(void**)&pCom);
 
 int    cnt = 0 ;
 CFileFind  finder;
 CString   strFile, strContent, strExtractTitle, strExtractContent, strPreviousDirectory ;
 _bstr_t   _bstrContent ;
 BSTR   bstrExtractTitle, bstrExtractContent ;

 CString   m_path ;//当前打开目录路径
 BROWSEINFO  bf;
 LPITEMIDLIST pidlbf;
 ZeroMemory((LPVOID)&bf,sizeof(BROWSEINFO));
 bf.hwndOwner = this->m_hWnd;
 bf.pszDisplayName = m_path.GetBuffer(MAX_PATH);
 bf.lpszTitle = _T( "选择打开位置 ");
 bf.ulFlags = BIF_RETURNFSANCESTORS | BIF_RETURNONLYFSDIRS | BIF_USENEWUI ;
 bf.lpfn = NULL;
 bf.lParam = 0;
 if((pidlbf = ::SHBrowseForFolder(&bf)) == NULL)   return;
 char temp[MAX_PATH] = {0};
 if(::SHGetPathFromIDList(pidlbf,temp) == NULL)return;

 strFile = temp ;
 strFile += _T("\\*.*") ;

 // 找出当前指定路径下的文件数目
 BOOL bWorking = finder.FindFile((LPCTSTR)strFile) ;
 while (bWorking)
 {
  bWorking = finder.FindNextFile() ;
  cnt++;
 }
 cnt -= 2 ;

 // 找到上一级目录加上extractor_content
 strPreviousDirectory = temp ;
 strPreviousDirectory += _T("extractor_content.txt") ;

 int k = strPreviousDirectory.ReverseFind('\\') ;
 strPreviousDirectory.Delete(k+1, 4) ;

 // 创建extractor_content.txt文件
 CFile fileExtractContent ((LPCTSTR)strPreviousDirectory, CFile::modeCreate | CFile::modeWrite) ;

 for (int i = 1; i <= cnt; ++i)
 {
  strFile = temp ;
  strFile.AppendFormat(_T("\\%d.htm"), i) ;

  CFile file ((LPCTSTR)strFile, CFile::modeRead) ;
  DWORD dwFileLen = file.GetLength() ;
  char* pCString = new char[dwFileLen+1];//strContent.GetBuffer(dwFileLen) ;
  file.Read(pCString, dwFileLen) ;
  pCString[dwFileLen] = '\0';

  //strContent = pCString;
  
  _bstrContent = _com_util::ConvertStringToBSTR(pCString) ;

  pCom->GetWP_Content(_bstrContent, &bstrExtractTitle, &bstrExtractContent) ;

  strExtractTitle  = _com_util::ConvertBSTRToString(bstrExtractTitle) ;
  strExtractContent = _com_util::ConvertBSTRToString(bstrExtractContent) ;

  // 写入extractor_content.txt
  DWORD dwExtractTitleLen  = strExtractTitle.GetLength() ;
  DWORD dwExtractContentLen = strExtractContent.GetLength () ;

  char* strExtractTitleChar = new char [dwExtractTitleLen + 1] ;
  char* strExtractContentChar = new char [dwExtractContentLen + 1] ;

  strExtractTitleChar  = _com_util::ConvertBSTRToString(bstrExtractTitle) ;
  strExtractContentChar = _com_util::ConvertBSTRToString(bstrExtractContent) ;

  strExtractTitleChar[dwExtractTitleLen] = '\0' ;
  strExtractContentChar[dwExtractContentLen] = '\0' ;

  fileExtractContent.Write(strExtractTitleChar, dwExtractTitleLen) ;
  fileExtractContent.Write("\r\n", strlen("\r\n")) ;
  fileExtractContent.Write(strExtractContentChar, dwExtractContentLen) ;
  fileExtractContent.Write("\r\n", strlen("\r\n")) ;
  fileExtractContent.Write("####", strlen("####")) ;
  fileExtractContent.Write("\r\n", strlen("\r\n")) ;

  delete strExtractTitleChar ;
  delete strExtractContentChar ;
  delete pCString;
  strContent.ReleaseBuffer() ;
  file.Close() ;
 }

 fileExtractContent.Close() ;
 CoTaskMemFree (pidlbf) ;
 pCom->Release();
}

 

PS:首先要将对应的COM组建注册 命令：regsvr32 com名    ，反注册命令为 regsvr32 /u com名

然后在工程对应的 afx.h 加入类似的如下语句： #import "WP_Anlayze_Com.tlb" no_namespace

WP_Anlayze_Com.tlb放在当前工程目录，并且可以加入到VS里来（当然加入到VS里来不是必须的）

///

现在总结一下最新的结论：

声明一下：下面的讲解是建立在我个人的一个com的dll基础上，所以你看到有些莫名其妙的东西不要感到奇怪，比如IStore。

1.首先将com的dll注册一下，注册命令为 regsvr32 *.dll(需要包含全路径)，不要要在工程中指定dll的路径，因为注册的过程已经让你的工程知晓了dll的路径。

2.将对应的.tlb放到工程的.vcproject目录下。

3.将.tlb加载到工程的资源目录下（这一步可做可不做）

4.写下下面的代码，梳理dll的接口：

BOOL CRedisCliEx::Init()
{
 CLSID  clsid ;
 CoInitializeEx(NULL,COINIT_MULTITHREADED);
 bool bRet = false;
 HRESULT hr = CLSIDFromProgID(L"RedisCli.Store",&clsid);// 有人可能会问这是什么东西，哈哈，这来自.tlb,你可以把.tlb加进你的工程，然后打开看下，从里面可以看到你的dll能导出的所有接口。
 if (SUCCEEDED(hr))
 {
  hr=CoCreateInstance (clsid, NULL, CLSCTX_ALL, IStorePtr::GetIID(),(void**)&m_pIStore);
  if (SUCCEEDED(hr))
  {
   if (SUCCEEDED(hr) && NULL != m_pIStore)
   {
    CHDTLog::Instance()->WriteLogInfo("CNode::InitRedisCli", "初始化RedisCli成功！", "Dll");
    bRet  = true;
   }
   else
   {
    CHDTLog::Instance()->WriteLogInfo("CNode::InitRedisCli", "初始化RedisCli失败！", "Dll");
   }
  }
 }

 return bRet;

}

然后再定义如下变量：IStore*    m_pIStore;可能有人会问这个IStore是从哪里来的，我们的工程怎么知道有这个变量，原来啊这个变量在我们之前注册.dll的时候再C盘下生成了，可以从C:\Documents and Settings\Administrator.49801BCF518C445\Local Settings\Temp\rediscli.tlh中找到（当然我的dll是这样，你的就未必了），我们可以直接利用。

5.接下来我们对com之dll的操作只要用到m_pIStore就可以了。例如：

ULONGLONG CRedisCliEx::Connect(BSTR ip, LONG port)
{
 return m_pIStore->Connect(ip, port) ;
}

LONG  CRedisCliEx::AddSSMQ(ULONGLONG handle, BSTR mqname, double score, BSTR msg)
{
 return m_pIStore->AddSSMQ(handle, mqname, score, msg) ;
}

接下来你就好好享受dll带来的嫁妆吧。