最近在学COM,求COM程序!

Question

http://www.pudn.com/search_db.asp?keyword=VC+COM&search_type=留邮箱

Answer 1

COM程序求来也没用，一定要看书后自己写，否则看不懂。

Answer 2

注册COM服务组件
voif CTestView::OnRBottonDown(UINT nFlags,CPoint point)
{
   //选择COM服务文件
   CString strFileName = "";
   CFileDialg DlgFile(TRUE,NULL,NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,"DLL文件(*.dll)|*.dll||");
   DlgFile.m_ofn.lpstrTitle = "注册COM服务组件";
   if(DlgFile.DoModal()!=IDOK)
       return;
   strFileName = DlgFile.GetPathName();
   //注册COM组件
   HINSTANCE h = ::LoadLibrary(strFileName);
   FARPROC pFunc = ::GetProcAddress(HMODULE)h,"DllRegisterServer");
   if(pFunc==NULL)
   {
       MessageBox("注册COM组件服务程序失败"，"信息提示"，MB_OK)；
        return;
   }
   (*pFunc)();
   MessageBox("注册COM组件服务程序成功"，"信息提示"，MB_OK)；
   CView::OnRBottonDown(nFlags,point);
}