ATL问题集（精典整理2）

/*文是将网上的一些文章，自已遇到的问题进行整理，有些是翻译，所有只供学习讨论，如有版权还归原作者――作者:王卫星csdnid：wangweixing2000*/

#41 我想在程序中连续注册好几个控件,如果用regsvr32  命令会出现多个注册成功的对话框有没有什么方法可以解决那？

/u是注销。  
/s是不弹出注册成功的对话框   
regsvr32    ...  /s

代码实现如下：

HMODULE  hModule  =  LoadLibrary(strFilePath);  
 
 if(hModule  ==  NULL)  
 {  
         strMessage.Format("LoadLibrary(/"%s/")  失败!",strFilePath);  
        MessageBox(NULL,strMessage,"RegisterServer32",MB_ICONEXCLAMATION);  
         return  FALSE;  
 }  
  FARPROC  pFarProc  =  GetProcAddress(hModule,"DllRegisterServer");  
  if(pFarProc  ==  NULL)  
  {  
    MessageBox(NULL,"GetProcAddress(/"DllRegisterServer/")  Failed","RegisterServer32",MB_ICONEXCLAMATION);  
    }  
     else  
     {  
          (*pFarProc)();  
     }

 

 

#42 IWebBrowser2疑惑.，有时能获取控件的句柄有时没法获取，怎么回事？

 

 

CComQIPtr<IWebBrowser2,  &IID_IWebBrowser2>  m_pWebBrowser2;  
//----------------------  使用CLSID_WebBrowser--------------------  
HRESULT  hrrs  =  CoCreateInstance(CLSID_WebBrowser,  NULL,CLSCTX_INPROC,IID_IWebBrowser2,(void**)&m_pWebBrowser2);  
//----------------------  使用CLSID_InternetExplorer---------------  
HRESULT  hrrs  =  CoCreateInstance(CLSID_InternetExplorer,  NULL,CLSCTX_INPROC,IID_IWebBrowser2,(void**)&m_pWebBrowser2);  
//----------------------  获取句柄---------------------------------  
HWND  hIE;  
hrrs  =  m_pWebBrowser2->get_HWND((long*)&hIE);  
以上两个方法来获取IWebBrowser2,两种都能获取，可是第一种为什么得不到窗口句柄，而第二种可以呢？请指教  ,有个么办法使第一种也能得到Browser窗口句柄呢？  
---------------------------------------------------------------  
 解答：
CLSID_WebBrowser:是微软web预览控件的实现类的id,它同过属性Parent来得到窗口句柄,因为控件没法知道它被放在哪个容器里,所以不会实现HWND属性!  
CLSID_InternetExplorer:是微软ie浏览器自动化实现类的id,它通过属性HWND得到!因为得到句柄一定封装好了.  哈哈! 

 

 

#43 作了个ActiveX控件，嵌入网页中使用，版本更新时，客户端不能更新，如何解决？

 

 

网页中调用控件部分代码  
<OBJECT  classid="clsid:C69A0449-8786-11D4-B209-00104B13AFD4"  CODEBASE="PLWeb.cab#version=1,0,0,2"  height=605  id=PLWeb1  
                                                           style="LEFT:  0px;  TOP:  0px"  width=995  VIEWASTEXT>    
                                               <param  name="_Version"  value="65536">  
                                               <param  name="_ExtentX"  value="26326">  
                                               <param  name="_ExtentY"  value="16007">  
                                               <param  name="_StockProps"  value="0">  
                               </OBJECT>  
 
cab包中的内容  
plweb.ocx  (1.0.0.2版)  
plweb.inf  
(  
     [version]  
     signature="$CHICAGO$"  
     AdvancedINF=2.0  
 
     [Add.Code]  
     PLWeb.ocx=PLWeb.ocx  
 
     [PLWeb.ocx]  
     file-win32-x86=thiscab  
     ;  ***  add  your  controls  CLSID  here  ***  
     clsid={C69A0449-8786-11D4-B209-00104B13AFD4}  
     ;  Add  your  ocx's  file  version  here.  
     FileVersion=1,0,0,2  
     DestDir=11  
     RegisterServer=yes        
)  
客户端在第一次浏览具有控件的网页时，可以正常下载注册，但如果更新控件版本时，客户端可以下载（在internet的临时文件夹中可以找到新的plweb.cab文件），但是不能注册新版本控件。  
       不知道这是什么原因引起的，如何解决？  
---------------------------------------------------------------  
 
<OBJECT  classid="clsid:C69A0449-8786-11D4-B209-00104B13AFD4"  CODEBASE="PLWeb.cab#version=1,0,0,3"  height=605  id=PLWeb1  
style="LEFT:  0px;  TOP:  0px"  width=995  VIEWASTEXT>  
 
你可以手工在工程中更改版本号来达到升级   
 
如果没有注册成功,有可能是客户机环境变了.  
你的控件需要运行库支持,现在客户机没有了[重做了系统等]  
打包时注意一下,如果是基于atl的,就打包ATL.dll,如果是基于mfc的就打包mfc42.dll和msvcrt.dll,如果需要ole就打包olepro32.dll和oleaut32.dll等.  
---------------------------------------------------------------  
 
检查一下是否在修改程序时,将vc自动创建部分的代码中的id修改了

 

 

#44 如何利用COM，用VC在word、Excel等文件中插入图片？

 

 

http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q311/7/65.asp&NoWebContent=1  
 
在上面这个例子中，如果我想再加入在当前鼠标位置插入图片的功能，该怎么写？  
---------------------------------------------------------------  
 
void  CWebOfficeCtrl::LoadUnit(void)  
{  
           AFX_MANAGE_STATE(AfxGetStaticModuleState());  
 
           //  TODO:  在此添加调度处理程序代码  
           LPDISPATCH  lpDisp;  
           lpDisp=m_pWebOfficeFrame->m_pWebOfficeView->m_pSelection->GetIDispatch();  
           _Application_Word  m_WordApp;  
           _Document_Word  m_WordDoc;  
           m_WordDoc.AttachDispatch(lpDisp,TRUE);  
           //m_WordDoc.Activate();  
           m_WordApp=m_WordDoc.GetApplication();  
             
           InlineShapes_Word  m_WordInlineShapes;  
           InlineShape_Word  m_WordInlineShape;  
           Selection_Word  m_WordSelection;  
           m_WordSelection=m_WordApp.GetSelection();  
           m_WordInlineShapes=m_WordSelection.GetInlineShapes();  
           COleVariant  vTrue((short)TRUE),vFalse((short)FALSE),vOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);  
           //AfxMessageBox(m_UnitName,MB_ICONINFORMATION);  
           m_WordInlineShape=m_WordInlineShapes.AddPicture(m_UnitName,vFalse,vTrue,vOptional);  
           /*  
           //2003.11.29  Add  By  DigitalTitan[设置图元重叠属性]  
           Shape_Word  m_WordShape;  
           m_WordShape=m_WordInlineShape.ConvertToShape();  
           WrapFormat_Word  m_WordWrapFormat;  
           m_WordWrapFormat=m_WordShape.GetWrapFormat();  
           //m_WordWrapFormat.SetAllowOverlap(TRUE);3  
           m_WordWrapFormat.ReleaseDispatch();  
           m_WordShape.ReleaseDispatch();  
           //  
           */  
           m_WordInlineShape.ReleaseDispatch();  
           m_WordInlineShapes.ReleaseDispatch();  
           m_WordSelection.ReleaseDispatch();  
           m_WordDoc.ReleaseDispatch();  
           m_WordApp.ReleaseDispatch();  
}

 

 

当WORD已经启动时，并打开了几个文件，我想在其中的一个打开的WORD文件的光标位置插入一幅BMP  
           if(!WordApp.CreateDispatch("Word.Application",NULL))//创建一个新的word程序  
           {  
                       AfxMessageBox("创建ms_word服务失败");  
                       exit(1);  
           }  
 
           //让用户能够查看自动化的过程  
           WordApp.SetVisible(true);  
 
           //让docs和word程序连接，docs代表word中所有文档  
           docs=WordApp.GetDocuments();  
           COleVariant  covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);  
           //用docs来打开一个文档，并将句柄返回给doc  
           //doc=docs.Add(COleVariant("C://ox.doc"),covOptional,covOptional,covOptional);  
//这里要查找我要加入的WORD文件是否打开  
//怎么样在当前光标处加入文件.  
 
//  
 
---------------------------------------------------------------  
 
1.得到ActivateDocument  
2.得到ActivateDocument中的Shapes  
3.调用Shapes的方法:  AddPicture  
 
只要指定图片文件名，就可以加入图片了。  
---------------------------------------------------------------  
 
InlineShapes_Word  m_WordInlineShapes;  
           InlineShape_Word  m_WordInlineShape;  
           Selection_Word  m_WordSelection;  
           m_WordSelection=m_WordApp.GetSelection();  
           m_WordInlineShapes=m_WordSelection.GetInlineShapes();  
           COleVariant  vTrue((short)TRUE),vFalse((short)FALSE),vOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);  
           //AfxMessageBox(m_UnitName,MB_ICONINFORMATION);  
           m_WordInlineShape=m_WordInlineShapes.AddPicture(m_UnitName,vFalse,vTrue,vOptional);  
           /*  
           //2003.11.29  Add  By  DigitalTitan[设置图元重叠属性]  
           Shape_Word  m_WordShape;  
           m_WordShape=m_WordInlineShape.ConvertToShape();  
           WrapFormat_Word  m_WordWrapFormat;  
           m_WordWrapFormat=m_WordShape.GetWrapFormat();  
           //m_WordWrapFormat.SetAllowOverlap(TRUE);3  
           m_WordWrapFormat.ReleaseDispatch();  
           m_WordShape.ReleaseDispatch();  
           //  
           */

#45 如何使用MFC插入图片到excel？

#import  "G:/Program  Files/Common  Files/Microsoft  Shared/OFFICE11/MSO.DLL"  
#import  "G:/Program  Files/Common  Files/Microsoft  Shared/VBA/VBA6/VBE6EXT.OLB"  
#import  "G:/Program  Files/Microsoft  Office/OFFICE11/EXCEL.EXE"  rename("RGB",  "ExcelRGB")  rename("Delete","ExcelDelete")  rename("DialogBox","ExcelDialogBox")    
void  Cexcel_picDlg::OnBnClickedOk()  
{  
           //  insert  picture  to  excel  
           //  environment:  vc2003,  excel2003,  windows2003  
           using  namespace  Excel;  
           _variant_t  covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);  
           DWORD  dwStartTime  =  GetTickCount();  
           _ApplicationPtr  app;//("Excel.Application");  
           HRESULT  hr  =  S_OK;  
           CLSID  clsid;  
           CLSIDFromProgID(L"Excel.Application",  &clsid);    
           app.CreateInstance(clsid);  
           WorkbooksPtr  books;  
           _WorkbookPtr  book;  
           long  lcid  =LOCALE_USER_DEFAULT;  
           SheetsPtr  sheets;  
           app->get_Workbooks(&books);  
           book  =  books->Add(covOptional,lcid/*,&book*/);  
           book->get_Worksheets(&sheets);  
           IDispatchPtr  pDisp;  
           sheets->get_Item(_variant_t((short)1),&pDisp);  
           _WorksheetPtr  sheet(pDisp);  
           RangePtr  range  =  sheet->GetRange(_variant_t("A1"),_variant_t("A1"));  
           range->Value2  =  "aaa";  
           LPCSTR  m_Path  =  _T("C://flower8.jpg");  
           PicturesPtr  pics  =  sheet->Pictures();  
           pics->Insert(m_Path,VARIANT_FALSE);  
           app->put_AskToUpdateLinks(lcid,VARIANT_FALSE);  
           app->put_AlertBeforeOverwriting(lcid,VARIANT_FALSE);  
           app->put_UserControl(VARIANT_FALSE);  
           app->put_DisplayAlerts(0,VARIANT_FALSE);                          
           LPCTSTR  file_name  =  _T("c://aa.xls");  
           _variant_t  varfilename(file_name);  
           DeleteFile(file_name);  
           HRESULT  hrMethod  =  book->SaveAs(varfilename,covOptional,covOptional,covOptional,covOptional,covOptional,xlNoChange);  
           book->put_Saved(0,VARIANT_TRUE);                                                  
           book->Close(COleVariant(VARIANT_FALSE));  
           books->Close();              
           app->Quit();  
}

#46 关闭IE时，销毁ACTIVEX控件的问题

 

 

我用VC向导创建  MFC  ACTIVEX  CONTROL,    
默认生成CMyTestApp,  CMyTestCtrl,  CMyTestPropPage三个类。  
 
然后，我在IE中调入该控件。当关闭IE时，CMyTestCtrl的OnDestroy和析构函数  
都不会被执行，在Container中调试时，却都会被执行。请问这是为什么？  
（注：CMyTestApp的ExitInstance在关闭IE时，会被执行）  
 
那么，我在CMyTestCtrl的构造函数或OnCreate中分配的资源，在哪儿释放才好呢？  
---------------------------------------------------------------  
 
重载WM_CLOSE或者WM_DESTROY  
---------------------------------------------------------------  
重载COleControl::OnClose  
对应于IOleControl::Close  
---------------------------------------------------------------  
WM_DESTROY

 

 

#47 ActiveX控件键盘输入问题

自己开发了一个ActiveX控件，从COleControl继承，在VB和Control  Test  Container中使用均没有问题，但是在MFC的基于对话框的程序中使用，能响应鼠标输入但不能响应键盘输入。跟踪发现在控件的PreTranslateMessage中有WM_CHAR消息但没有响应OnChar函数，不知哪位大侠知道如何解决。  
 
---------------------------------------------------------------  
 
Accelerator  keys,  such  as  ARROW  keys,  are  first  received  by  the  message  pump  of  the  ActiveX  control's  container.  Even  if  the  control  has  the  focus,  it  does  not  receive  messages  for  keystrokes  that  have  special  meaning  to  control  containers,  such  as  ARROW  and  TAB  keys.  MFC  ActiveX  controls  have  a  chance  to  intercept  these  messages  by  overriding  their  PreTranslateMessage  function.    
 
However,  PreTranslateMessage  is  not  always  called  for  an  MFC  ActiveX  control.  
 
RESOLUTION  
Install  a  Windows  WH_GETMESSAGE  hook  for  the  modeless  dialog  box/propertysheet  derived  class  to  allow  it  to  intercept  keystrokes  and  handle  accelerators.    
...  
see  Knowledge  Base  articles  for  more  information  
Q168777  PRB:  MFC  ActiveX  Control  in  IE  Doesn't  Detect  Keystrokes  
Q180402  PRB:  MFC  ActiveX  Control  Ignores  ARROW  Keys  on  VB  Container  
Q187988  PRB:  ActiveX  Control  Is  the  Parent  Window  of  Modeless  Dialog  
Q199431  PRB:  Enabling  Menu  Mnemonics  in  an  MFC  ActiveX  Control  
Q194294  HOWTO:  Add  Toolbars  and  Tooltips  to  ActiveX  Controls  

 

 

#48 在ASP里如何调试写的（ATL写的）COM呢？

 

首先在管理工具->组件服务里面的“COM+应用程序”项下面添加一下空的应用程序，名字随便，然后把写好的组件注册在这个里面，并记下该应用程序的ID，如：{2D62D611-4A90-4196-AA9B-2055AD3A12E7}  
 
接下来在VC里面project->setting->debug的executable  for  debug  session选项里面填写“系统目录+DLLHOST.exe“，如我的系统填写的是“C:/windows/system32/DLLHOST.EXE”；  
在program  arguments选项里面填写刚才的应用程序ID  {2D62D611-4A90-4196-AA9B-2055AD3A12E7}  ，设置断点，调试运行，你会发现COM程序会中断下来，这样就表示你设置成功了，然后用ASP调用就可以了~  
---------------------------------------------------------------  
 
以下摘自  <windows  程序调试>  Addison  -Wesley  
     如果你写的基com  dll要被在一个asp中运行的脚本调用，你的代码将从一个配定组件中被调用。  当MS的internet信息服务器处理一个来自ASP的请求时，他激活一个叫做网络应用管理器（web  application  manager）的配定组件。  这个组件执行该ASP中的脚本发出的激活和方法调用请求。因为网络应用管理组件是在MTS/COM＋配置的。你的com  dll会在一个代理进程的环境中执行。  
   在这个情况下，将调试器附到正确的代理进程的工作就变成了确定哪个服务器包是你的组件宿主的问题。  。。。  
if  on  windows  2000  
     在WIN2000中，管理工具->Internet  服务管理器－>查看你的虚拟站点的属性－>在指定虚拟目录的tab页中，包含一个叫应用程序保护的选项。（在最下面）  
     这个选项可设置为：  
1）LOW  （低，IID进程）  
2）Medium（中等，对象池）  
3）high（高，独立）  
这个设置决定组件的宿主服务器包。  
 
if  1），  在COM＋浏览器中找到in-process  apllication包的GUID  
if  2），在com＋浏览器中找到IIS  out-of-process  pooled  apllication包的GUID  
if  3），在com＋浏览器中找到IIS－｛website//你的虚拟目录名｝包的GUID  
 
然后，你可以参考上面的答复，将VC附到已运行的代理进程，进行调试了。

#49 初学者应该知道的一些COM的基本概念

小弟接触COM也有一段时间了，对很多COM相关的概念还没弄清楚，查了许多资料，资料上也讲得迷迷糊糊的，所以向大家请教一下：  
       一、经常看到DLL、OLE、ActiveX、COM等技术资料，他们之间到底是些什么关系，有什么区别与联系？小弟只知道ActiveX与COM有密切的联系，而COM又以DLL文件形式存在，ActiveX又以.ocx形式存在，对OLE到底是什么东西有什么用也没弄明白。  
       二、对于GUID、CLSID经常弄不清楚，（他们的样子很相象），作用也不太明白。好象COM一定要在注册表注册，不知OLE、COM组件是否一定需要注册啊？不注册能用吗？  
 
 望各位高手能详细指教一下（不要笑话小弟白痴啊，我真的没弄明白）  
---------------------------------------------------------------  
 
COM是一个二进制标准，它是以DLL形式存储的，由于传统DLL没有解决一些诸如内存分配，卸载等关键性问题，所以它不足以成为一个组件模型，而COM定义了这些标准。OLE算是COM的前身，到OLE2后就正式出现为COM标准，它已经在OLE(对象连接与嵌入)上作了极大的改进，成为一个独立的标准，而ActiveX是微软提出的一个专有名词，目的是实现网上的一些应用，它的本质就是COM。  
CLSID是用来标志每个COM组件的，CLSID是属于GUID的，格式一样，只是CLSID有特定用途，换了个名字而已，COM一定要注册，不注册的话就找不到他的具体位置，好像.net以后就不需要注册了。  
我也不太懂，一起学习  
---------------------------------------------------------------  
 
上面的说的很好！我补充一点吧！  
CLSID可以这么解释class  id,GUID是全局唯一ID,CLSID也是属于GUID的，例如IID是Interface  ID。多看看COM本质！  
 
DLL，OLE->COM->ActiveX,ATL->COM+,DCOM->现在出现.NET中的公共语言环境。  
这是我自己的理解，希望对你有帮助！  
---------------------------------------------------------------  
 
COM是一种标准，巧妙的利用了运行时绑定的技术。可以DLL形式存在，也可以exe形式存在。  
ActiveX是COM标准的一个具体应用而已。ocx文件就是动态连接库文件，扩展名不同而已。OLE也是一种技术的名称，叫对象连接与嵌入，主要目的是通过一套约定，来使得不同程序能相互传递数据。ole2以后都是通过的COM技术来实现OLE了。  
 
GUID是一种常量，这种常量能保证世界上任何地方的任何人在任何时候都能产生一个不同于其他人的值。CLSID就是GUID，只不过看起来明确一点，他是指代class的。类似的还有IID，是指代interface的。  
就好像UINT  就是  unsigned  long。只不过看起来舒服些。  

  

#50 如何修改DCOM应用程序的运行位置（在哪台机器上运行）？

 

 

DCOMCNFG.exe中某应用程序“位置”项，选了“在这台计算机上运行应用程序”则“在下列计算机上运行应用程序”的设置就不生效了。  
请问如何不用DCOMCNFG.exe而通过修改程序将“在这台计算机上运行应用程序”项前面的对号去掉（如操作注册表，改哪一项的制值）？  
---------------------------------------------------------------  
 
用CoCreateInstanceEx，在参数pServerInfo中，写入服务器的地址  
---------------------------------------------------------------  
 
当然有,通过dcom的管理接口  
---------------------------------------------------------------  
 
在注册表中你的服务器AppID下加一个RemoteServerName字符串值"www.xxx.com"或IP地址  
也可以使用dcomcnfg设置

#50 如何修改DCOM应用程序的运行位置（在哪台机器上运行）？

 

 

DCOMCNFG.exe中某应用程序“位置”项，选了“在这台计算机上运行应用程序”则“在下列计算机上运行应用程序”的设置就不生效了。  
请问如何不用DCOMCNFG.exe而通过修改程序将“在这台计算机上运行应用程序”项前面的对号去掉（如操作注册表，改哪一项的制值）？  
---------------------------------------------------------------  
 
用CoCreateInstanceEx，在参数pServerInfo中，写入服务器的地址  
---------------------------------------------------------------  
 
当然有,通过dcom的管理接口  
---------------------------------------------------------------  
 
在注册表中你的服务器AppID下加一个RemoteServerName字符串值"www.xxx.com"或IP地址  
也可以使用dcomcnfg设置

  

#50 如何修改DCOM应用程序的运行位置（在哪台机器上运行）？

 

 

DCOMCNFG.exe中某应用程序“位置”项，选了“在这台计算机上运行应用程序”则“在下列计算机上运行应用程序”的设置就不生效了。  
请问如何不用DCOMCNFG.exe而通过修改程序将“在这台计算机上运行应用程序”项前面的对号去掉（如操作注册表，改哪一项的制值）？  
---------------------------------------------------------------  
 
用CoCreateInstanceEx，在参数pServerInfo中，写入服务器的地址  
---------------------------------------------------------------  
 
当然有,通过dcom的管理接口  
---------------------------------------------------------------  
 
在注册表中你的服务器AppID下加一个RemoteServerName字符串值"www.xxx.com"或IP地址  
也可以使用dcomcnfg设置