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

最新推荐文章于 2022-09-25 17:03:54 发布

原创最新推荐文章于 2022-09-25 17:03:54 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#dll #null #delete #path #file #c

ATL/COM 专栏收录该内容

4 篇文章

订阅专栏

本文介绍如何通过注册COM组件和导入TLB文件，利用DLL接口实现特定功能，具体为从指定目录下查找文件并提取内容，保存至特定文件中，包括初始化DLL、连接操作和数据提取等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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带来的嫁妆吧。