用标准C编写COM（七）COM in plain C,Part7

最新推荐文章于 2024-04-30 17:09:10 发布
最新推荐文章于 2024-04-30 17:09:10 发布
阅读量134 收藏
点赞数
文章标签： c/c++ 数据结构与算法

原文：http://www.codeproject.com/Articles/15037/COM-in-plain-C-Part-7

拥有自定义COM对象的ActiveX脚本宿主允许在你的应用程序中调用C函数。

下载例程－ 380 Kb

内容

  • 简介
  • 声明自定义对象
  • 我们的IDL文件和类型库
  • 向引擎注册我们的COM对象
  • 脚本如何调用我们COM对象的函数
  • 我们的IProvideMultipleClassInfo对象
  • 应用程序和文档对象
  • C++宿主例程

简介

在前一章中，我们学习了如何让我们应用程序运行一段脚本。但为了让脚本能调用我们应用程序中的C函数，最终与我们的应用程序交换数据，我们需要给我们的应用程序添加另一个自定义COM对象。我们的C函数（脚本调用的）会封装在这个COM对象中。你可以返回第二章，为了让脚本调用我们COM对象中的函数，我们需要给它添加一个IDispatch标准函数（也有IUnkown标准函数）。

一句话，我们要做的是创建一个就像我们在第二章中那样的我们自定义COM对象。我们定义它包含IUnkown函数，后面是IDipatch函数，接着是我们想让脚本调用的额外函数。为了创建一个类型库（让脚本可以看到我们额外函数名、传递的参数和返回值）我们还得写一个.IDL文件。我们做的是像我们在第二章中做的那样创建我们自定义、脚本可识别的对象。


声明我们的自定义COM对象

我们可以给我们自定义COM对象起我们喜欢的名字。我们随便叫它IApp。

我们给脚本提供三个可调用的函数，Output、SetTitle和GetTitle。Output函数在我们主窗口的EDIT空间中显示一行文本。我们使用另一个自定义窗口消息（WM_APP+1）通过PostMessage传递这行给我们主窗口进程来显示，就像我们在我们的IActiveScriptSite的OnHandleError函数那样。SetTitle函数会改变在我们主窗口的标题栏中的文本。而GetTitle函数是回去标题栏文本。我们把这三个函数放到我们的IApp对象中，在IUnknown和IDispatch函数之后。

在ScriptHost4目录中是我们添加了这个IApp对象的ScriptHost版本。AppObject.c源文件包含了大部分新代码。

我们需要给我们的IApp对象一个唯一的GUID，因此我运行GUIDGEN.EXE创建了一个，给它命名为CLSID_IApp。我们还需要给IApp的VTable一个GUID，所以我创建另一个GUID，命名为IDD_IApp。我把这两个GUID放在了Guids.c和Guids.h源文件中。

像第二章那样，我们用一个特殊的宏来申明我们的IApp对象的VTable（和对象本身）。这是定义：

[cpp] view plain copy print ?
  1. #undefINTERFACE
  2. #defineINTERFACEIApp
  3. DECLARE_INTERFACE_(INTERFACE,IDispatch)
  4. {
  5. //IUnkown函数
  6. STDMETHOD(QueryInterface)(THIS_REFIID,void**)PURE;
  7. STDMETHOD_(ULONG,AddRef)(THIS)PURE;
  8. STDMETHOD_(ULONG,Release)(THIS)PURE;
  9. //IDispatch函数
  10. STDMETHOD_(ULONG,GetTypeInfoCount)(THIS_UINT*)PURE;
  11. STDMETHOD_(ULONG,GetTypeInfo)(THIS_UINT,LCID,ITypeInfo**)PURE;
  12. STDMETHOD_(ULONG,GetIDsOfNames)(THIS_REFIID,LPOLESTR*,UINT,
  13. LCID,DISPID*)PURE;
  14. STDMETHOD_(ULONG,Invoke)(THIS_DISPID,REFIID,LCID,WORD,
  15. DISPPARAMS*,VARIANT*,EXCEPINFO*,UINT*)PURE;
  16. //额外函数
  17. STDMETHOD(Output)(THIS_BSTR)PURE;
  18. STDMETHOD(SetTitle)(THIS_BSTR)PURE;
  19. STDMETHOD(GetTitle)(THIS_BSTR*)PURE;
  20. };
   #undef  INTERFACE
   #define INTERFACE IApp
   DECLARE_INTERFACE_ (INTERFACE, IDispatch)
    {
      // IUnkown函数
      STDMETHOD  (QueryInterface)(THIS_REFIID, void **) PURE;
      STDMETHOD_ (ULONG, AddRef)(THIS) PURE;
      STDMETHOD_ (ULONG, Release)(THIS) PURE;
      // IDispatch函数
      STDMETHOD_ (ULONG, GetTypeInfoCount)(THIS_ UINT *) PURE;
      STDMETHOD_ (ULONG, GetTypeInfo)(THIS_ UINT, LCID, ITypeInfo **) PURE;
      STDMETHOD_ (ULONG, GetIDsOfNames)(THIS_ REFIID, LPOLESTR *, UINT,
                   LCID, DISPID *) PURE;
      STDMETHOD_ (ULONG, Invoke)(THIS_ DISPID, REFIID, LCID, WORD,
                   DISPPARAMS *, VARIANT *,EXCEPINFO *, UINT *) PURE;
      // 额外函数
      STDMETHOD  (Output)(THIS_ BSTR)PURE;
      STDMETHOD  (SetTitle)(THIS_ BSTR)PURE;
       STDMETHOD (GetTitle)(THIS_ BSTR *) PURE;
   };

记住上面的宏也会自动定义我们的IApp为包含一个指向上面VTable的指针的lpVtbl成员。但像通常做的那样，我们需要添加额外的、私有成员给我们的对象，因此我们也像这样定义一个MyRealIApp结构：

[cpp] view plain copy print ?
  1. typedefstruct{
  2. IAppiApp;
  3. IProvideMultipleClassInfoclassInfo;
  4. }MyRealIApp;
   typedef struct {
     IApp                      iApp;
     IProvideMultipleClassInfo classInfo;
    }MyRealIApp;

我们的MyRealIApp封装了我们的IApp和一个我们后面会用到的标准子对象IProvideMultipleClassInfo。

我们需要给我们的IApp声明全局VTable，同时还有我们的IProvideMultipleClassInfo子对象的VTable：

[cpp] view plain copy print ?
  1. //我们的IAppVTable.
  2. IAppVtblIAppTable={
  3. QueryInterface,
  4. AddRef,
  5. Release,
  6. GetTypeInfoCount,
  7. GetTypeInfo,
  8. GetIDsOfNames,
  9. Invoke,
  10. Output,
  11. SetTitle,
  12. GetTitle};
  13. //我们的IProvideMultipleClassInfoVTable.
  14. IProvideMultipleClassInfoVtblIProvideMultipleClassInfoTable={
  15. QueryInterface_CInfo,
  16. AddRef_CInfo,
  17. Release_CInfo,
  18. GetClassInfo_CInfo,
  19. GetGUID_CInfo,
  20. GetMultiTypeInfoCount_CInfo,
  21. GetInfoOfIndex_CInfo};
   // 我们的IApp VTable.
   IAppVtbl IAppTable = {
     QueryInterface,
     AddRef,
     Release,
     GetTypeInfoCount,
     GetTypeInfo,
     GetIDsOfNames,
     Invoke,
     Output,
     SetTitle,
     GetTitle};
   // 我们的IProvideMultipleClassInfo VTable.
   IProvideMultipleClassInfoVtbl IProvideMultipleClassInfoTable = {
     QueryInterface_CInfo,
     AddRef_CInfo,
     Release_CInfo,
     GetClassInfo_CInfo,
     GetGUID_CInfo,
     GetMultiTypeInfoCount_CInfo,
     GetInfoOfIndex_CInfo};

对我们而言，我们只需要一个IApp对象。所有运行的脚本共享这一个对象（这样如果我们有多个脚本线程运行，他们存取全局数据，在我们的IApp函数做同步是非常重要的）。那么最容易的方法是把我们的IApp对象声明为全局的，同时在在我们程序开始的地方调用一个函数来初始化它。

我们还得加载两个ITyperInfo－一个是IApp的VTable，一个是我们IApp对象本身。同时我们需要存储这两个ITypeInfo。因为每个我们只需要一个，我给他们定义两个全局变量。

[cpp] view plain copy print ?
  1. //对我们而言，我们只需要一个IApp对象，因此我们把它申明为全局的
  2. MyRealIAppMyIApp;
  3. //我们的IApp对象的ITypeInfo，我们只需要一个因此我们让它是全局的
  4. ITypeInfo*IAppObjectTypeInfo;
  5. //我们的IApp对象的ITypeInfoVTabel，我们只需要一个
  6. ITypeInfo*IAppVTableTypeInfo;
  7. voidinitMyRealIAppObject(void)
  8. {
  9. //初始化子对象的VTable指针
  10. MyIApp.iApp.lpVtbl=&IAppTable;
  11. MyIApp.classInfo.lpVtbl=&IProvideMultipleClassInfoTable;
  12. //还没有加载IApp的VTable的ITypeInfo，和IApp自身
  13. IAppObjectTypeInfo=IAppVTableTypeInfo=0;
  14. }
   // 对我们而言，我们只需要一个IApp对象，因此我们把它申明为全局的
    MyRealIApp  MyIApp;
   // 我们的IApp对象的ITypeInfo，我们只需要一个因此我们让它是全局的
   ITypeInfo   *IAppObjectTypeInfo;
   //我们的IApp对象的ITypeInfo VTabel，我们只需要一个
   ITypeInfo   *IAppVTableTypeInfo;
   void initMyRealIAppObject(void)
    {
      // 初始化子对象的VTable指针
      MyIApp.iApp.lpVtbl = &IAppTable;
      MyIApp.classInfo.lpVtbl = &IProvideMultipleClassInfoTable;
      // 还没有加载IApp的VTable的ITypeInfo，和IApp自身
      IAppObjectTypeInfo = IAppVTableTypeInfo = 0;
    }

我们的IDL文件和类型库

我们需要创建一个.IDL文件，这样MIDL.EXE能为我们编译一个类型库。我们的IDL文件定义了我们的IApp VTable和IApp对象自身。这与我们在第二章定义我们的IExample2自定义COM对象时做的本质上是一样的。你可以找到一个ScriptHost.idl源文件来仔细阅读。

注意IApp的VTable被声明为双接口。这样我们的IDispatch函数就可以使用标准的COM调用来做这些函数的大部分工作了。这与我们的IExample2的IDisaptch函数做的一样。

还要注意的是我们的SetTitle和GetTitle函数被声明为propput和propget，以及同样的DISPID号。这样，这两个函数只要脚本是concerned状态，可以设置和获取Title这个变量的值。这与你在第二章看到的类似。

我们要做的与IExample2不同的事是MIDL.EXE为我们创建的实际的类型库（也就是ScriptHost.tlb）。对于IExample2，我们只把类型库作为单独的文件。对于我们的应用程序，我们要把类型库文件嵌入到我们的exe的资源中，用COM函数LoadTypeLib来从我们的资源中释放、加载它。

我已经给我们的应用程序的资源文件创建了一个.RC文件。在ScriptHost.rc中，你会看到下面这句：

[cpp] view plain copy print ?
  1. 1TYPELIBMOVEABLEPURE"debug/ScriptHost.tlb"
    1TYPELIB MOVEABLE PURE "debug/ScriptHost.tlb"

它获得类型库文件（ScriptHost.tlb， MIDL.EXE编译的放在Debug目录中），把它嵌入到我们的exe资源中，给它一个资源ID号1。这个资源的类型是TYPELIB，表明这个资源是一个类型库文件。我们不需要提供我们的类型库文件（ScriptHost.tlb）作为一个单独的文件因为现在它被嵌入到我们的exe中了。

这是一个通过GUID创建一个与这个GUID相连的ITypeInfo。这个函数从我们的嵌入的类型库资源中提取信息。例如，为了得到一个我们IApp Vtalbe的ITypeInfo，我们只要传入IApp的VTable的GUID。我们还的传入一个接受返回的ITypeInfo的句柄。

[cpp] view plain copy print ?
  1. HRESULTgetITypeInfoFromExe(constGUID*guid,ITypeInfo**iTypeInfo)
  2. {
  3. wchar_tfileName[MAX_PATH];
  4. ITypeLib*typeLib;
  5. HRESULThr;
  6. //提示错误
  7. *iTypeInfo=0;
  8. //LoadthetypelibraryfromourEXE'sresources
  9. //从我们的EXE的资源中加载类型库
  10. GetModuleFileNameW(0,&fileName[0],MAX_PATH);
  11. if(!(hr=LoadTypeLib(&fileName[0],&typeLib)))
  12. {
  13. //让微软的GetTypeInfoOfGuid()创建一个通用的ItypeInfo给请求的元素（传入它的GUID）
  14. hr=typeLib->lpVtbl->GetTypeInfoOfGuid(typeLib,guid,iTypeInfo);
  15. //我们不再需要这个类型库了
  16. typeLib->lpVtbl->Release(typeLib);
  17. }
  18. return(hr);
  19. }
   HRESULT getITypeInfoFromExe(const GUID *guid, ITypeInfo **iTypeInfo)
    {
      wchar_t    fileName[MAX_PATH];
      ITypeLib   *typeLib;
      HRESULT    hr;
      // 提示错误
      *iTypeInfo = 0;
      // Load the type library from our EXE's resources
      // 从我们的EXE的资源中加载类型库
      GetModuleFileNameW(0, &fileName[0], MAX_PATH);
      if (!(hr = LoadTypeLib(&fileName[0], &typeLib)))
      {  
         // 让微软的GetTypeInfoOfGuid()创建一个通用的ItypeInfo给请求的元素（传入它的GUID）
         hr = typeLib->lpVtbl->GetTypeInfoOfGuid(typeLib, guid, iTypeInfo);
         // 我们不再需要这个类型库了
         typeLib->lpVtbl->Release(typeLib);
      }
      return(hr);
    }


向引擎注册我们的COM对象

为了向引擎注册我们的COM对象，我们必须调用一次引擎IActiveScript的AddNamedItem函数。我们还必须为这个COM对象取一个字符串名，脚本会使用它来调用我们的函数。在我们使用的引擎语言中这个名字应该是一个合法的变量名。一个好的通用方法是全部使用字母作为这个字符串的名字（没有空格），它作为变量名被每种语言支持。

我们随便取一个字符串名为“application”。我们需要在我们真正运行脚本前注册我们的COM对象，但要在我们初始化引擎后。因此我们在runScript中调用SetScriptSite后添加对AddNamedItem的调用，但要在我们加载脚本和传递它给ParseScriptText前。这是我们添加的一行：

[cpp] view plain copy print ?
  1. args->EngineActiveScript->lpVtbl->AddNamedItem(args->EngineActiveScript,
  2. "application",SCRIPTITEM_ISVISIBLE|SCRIPTITEM_NOCODE) 
   args->EngineActiveScript->lpVtbl->AddNamedItem(args->EngineActiveScript,
       "application", SCRIPTITEM_ISVISIBLE|SCRIPTITEM_NOCODE)

第二个参数是我们的字符串名，在这是“application”。第三个参数是标示。SCRIPTITEM_ISVISIBLE标示意味着脚本可以调用我们对象的函数。（没有这个标示，脚本不会调用我们的任何函数。为什么你需要这样是有原因的，但在这先不说）。SCRIPTITEM_NOCODE 意味着在我们执行程序中对象的函数是C代码。事实上添加给脚本的对象的函数被包含在你添加到的引擎的另一个脚本中是有可能的。在一般情况下，你不要用SCRIPTITEM_NOCODE ，但在这我们要它，因为在我们的执行程序中我们对象的函数的确是C函数。

只要我们调用了AddNamedItem，脚本引擎会调用我们IActiveScriptSite的GetItemInfo函数来获取一个指向我们自定义COM对象的指针，或者是它的ITypeInfo。因此我们现在需要用有效的指令来替换以前的存根代码。在这是这样：

[cpp] view plain copy print ?
  1. STDMETHODIMPGetItemInfo(MyRealIActiveScriptSite*this,LPCOLESTR
  2. objectName,DWORDdwReturnMask,IUnknown**objPtr,ITypeInfo**typeInfo)
  3. {
  4. HRESULThr;
  5. //提示失败
  6. hr=E_FAIL;
  7. if(dwReturnMask&SCRIPTINFO_IUNKNOWN)*objPtr=0;
  8. if(dwReturnMask&SCRIPTINFO_ITYPEINFO)*typeInfo=0;
  9. //引擎要的是我们的IApp对象嘛（有字符串名“application”）？
  10. if(!lstrcmpiW(objectName,"application"))
  11. {
  12. //引擎要的是一个指向我们IApp对象返回的指针嘛？
  13. if(dwReturnMask&SCRIPTINFO_IUNKNOWN)
  14. {
  15. //给引擎一个指向我们IApp对象的指针。引擎会调用它的AddRef()函数，
  16. //同时在使用完后Release（）它。
  17. *objPtr=getAppObject();
  18. }
  19. //引擎要我们的IApp对象返回的ITypeInfo嘛？
  20. if(dwReturnMask&SCRIPTINFO_ITYPEINFO)
  21. {
  22. //确保我们拥有一个IApp对象的ITypeInfo。（脚本引擎需要知道传给我们IApp
  23. //的额外函数的参数的意义,和这些函数的返回值。因此，它需要IApp的ITypeInfo）。
  24. //引擎会调用它的AddRef（）函数，在随后使用完后Release（）它。
  25. if((hr=getAppObjectITypeInfo(typeInfo)))gotobad;
  26. }
  27. hr=S_OK;
  28. }
  29. bad:
  30. return(hr);
  31. }
   STDMETHODIMP GetItemInfo(MyRealIActiveScriptSite *this, LPCOLESTR
      objectName, DWORD dwReturnMask, IUnknown **objPtr, ITypeInfo **typeInfo)
    {
      HRESULT   hr;
      // 提示失败
      hr = E_FAIL;
      if (dwReturnMask & SCRIPTINFO_IUNKNOWN) *objPtr = 0;
      if (dwReturnMask & SCRIPTINFO_ITYPEINFO) *typeInfo = 0;
      // 引擎要的是我们的IApp对象嘛（有字符串名“application”）？
      if (!lstrcmpiW(objectName, "application"))
      {
         // 引擎要的是一个指向我们IApp对象返回的指针嘛？
         if (dwReturnMask & SCRIPTINFO_IUNKNOWN)
         {
            // 给引擎一个指向我们IApp对象的指针。引擎会调用它的AddRef()函数，
            // 同时在使用完后Release（）它。
            *objPtr = getAppObject();
         }
         // 引擎要我们的IApp对象返回的ITypeInfo嘛？
         if (dwReturnMask & SCRIPTINFO_ITYPEINFO)
         {
            // 确保我们拥有一个IApp对象的ITypeInfo。（脚本引擎需要知道传给我们IApp
            // 的额外函数的参数的意义,和这些函数的返回值。因此，它需要IApp的ITypeInfo）。
            // 引擎会调用它的AddRef（）函数，在随后使用完后Release（）它。
            if ((hr = getAppObjectITypeInfo(typeInfo))) goto bad;
         }
         hr = S_OK;
      }
   bad:
      return(hr);
    }

注意引擎会传入我们给出对象的字符串名（也就是“application”），因此我们得做字符串比较来确保引擎请求的正是我们的IApp对象。引擎还会传入用于我们返回给它的一个指向这个对象的句柄，或者它的ITypeInfo。如果引擎要一个指向我们对象的指针，它传入一个SCRIPTINFO_IUNKNOWN标示。如果它需要的是我们对象的ITypeInfo，那么它传入SCRIPTINFO_ITYPEINFO标示。注意两个标示可以同时传入。我们只调用我们的getAppObject或getAppObjectITypeInfo函数（在AppObject.c中）来填充引擎的句柄。


脚本如何调用我们COM对象的函数

当我们调用AddNamedItem时，我们COM对象被添加给引擎、暴露给脚本就像脚本自己创建的对象一样。例如，如果VBScript要调用我们的COM对象的Output函数，它可以这么做：

[vb] view plain copy print ?
  1. application.Output("Sometext")
   application.Output("Some text")

在VBScript中，一个对象名后紧跟一个点。注意脚本使用我们“application”字符串名来定位我们的IApp对象。VBScript不需要调用CreateObject。因为我们的应用程序通过AddNamedItem注册了我们的对象，我们的对象会对只通过使用我们选定的字符串名的脚本自动生效。

如果脚本要设置我们的Title属性（也就是，调用我们的SetTitle函数），它可以像下面这样做：

[vb] view plain copy print ?
  1. application.Title="Sometext"
   application.Title = "Some text"

如果脚本要获得我们Title属性值（也就是调用我们的GetTitle函数），它可以像下面这样做：

[cpp] view plain copy print ?
  1. title=application.Title
   title = application.Title

有一个调用我们IApp函数script.vbs（在ScriptHost4目录中）VBScript例程。


我们的IProvideMultipleClassInfo对象

引擎在需要获得与我们IApp对象有关的GUID或者ITypeInfo对象时它调用我们的IProvideMultipleClassInfo对象函数（在AppObject.c中）。引擎可以请求我们IApp[default]的VTable的GUID，或者可以请求我们IApp对象拥有的任何[default,source] VTable（如果我们有这样的VTable的话）的GUID，或者可以请求我们IApp的ITypeInfo对象（也就是说，不是一个它的VTable的ITypeInfo）。


应用程序和文档对象

假设我们有一个文本编辑器应用程序。这个应用程序是一个“多文档”应用程序，意味着用户可以编辑几个不同的文本文件，每个在它自己的MDI窗口中打开。

在这种情况下，我们的IApp对象在至少得是一个“application对象”；即它包含控制我们应用程序的所有操作的函数。例如，它可能有一个显示或隐藏工具栏或状态栏的函数。我们只需要一个IApp对象。

我们定义第二个自定义对象，我们随便叫它IDocument对象。这个对象有控制一个文本编辑器窗口以及它的内容的函数。例如，或许我们有一个在当前光标位置插入文本的函数，和移动光标到文档中指定位置的另一个函数。每次我们创建、加载不同的文本文件时，我们创建不同的IDocument对象给这个新的文档。因此，用户打开了几个编辑器窗口，我们就的有几个IDocument对象（每个窗口一个）。

因为我们要同一个对象的几个实例，我们不能调用引擎的AddNamedItem来注册我们的IDocumnet对象。（的确，如果用户还没有打开任何文档，我们不可以有IDocument对象的任何实例）。那么脚本如何获得存取一个特定的IDocument对象呢（假设脚本希望改变文档的内容）？通常，我们的IApp对象会有脚本可以调用返回一个IDocument对象的函数。或许脚本会出入它想要的文档的“名字”。或者我们的IApp有一个直接返回当前活动文档的IDocument的函数。（这要看你怎么做了）。

通常，你要有一个“documnent”结构的链表，IApp可以通过它查找直到发现、获得相应的IDocument对象。例如，或许我们给我们的IApp定义一个GetDocument的函数。GetDocument接受传入的想要获得的IDocument的BSTR名字。我们的IDL文件可以定义成这样：

[cpp] view plain copy print ?
  1. [id(3)]HRESULTGetDocument([in]BSTRname,[out,retval]IDispatch**document);
   [id(3)] HRESULT GetDocument([in] BSTR name, [out, retval] IDispatch**document);

当然，为了让脚本调用我们的IDocumnent的函数，我们的IDocument必须在它的VTable中有标准的IDispatch函数。在本例中，它可以（就脚本引擎而言应该这样）伪装一个IDispatch。因此这就是我们要GetDocument返回的。

那么例如，一个VBScript可以这样获得一个text.txt的文档：

[cpp] view plain copy print ?
  1. SETdoc=application.GetDocument("test.txt")
   SET doc = application.GetDocument("test.txt")

在ScriptHost5目录中是一个不完善的文本阅读器。它只是一个可以打开几个文本文件阅读的MDI应用程序；每个文件在它的自己的窗口中。我们的IApp对象有一个叫CreateDocument的额外函数。它接受一个要加载的文本文件的BSTR文件名。它创建一个新的MDI子窗口，并且在窗口中加载、显示文本文件。（事实上，我们只创建一个空文档）。CreateDocument还为这个窗口创建一个新的IDocument对象，把它返回给脚本。

我们的IDocument对象包含一个叫WriteText的函数。它接受一个BSTR格式的文本，同时这个文本替换窗口中的其他文本。

在ScriptHost5目录中有一个名为test.vbs的VBScript。它只调用我们我们的IApp的CreateDocument两次来创建两个IDocument对象，他们叫“Document 1”和“Document 2”。它调用每个IDocument的WriteText函数。对于“Document 1”，它设置文本为“This is document 1.”。对于“Document 2”，它设置文本为“This is document 2.”。

注意为了简单，ScriptHost5强行加载和运行test.vbs。

对于这个例程，你会注意到我们的IApp对象如何控制我们的阅读器所有操作，而IDocument控制每个单独的文档。注意我们向ScriptHost.idl中添加两个自定义对象（同时注意两个都是双VTable，因此我们用标准COM函数来做IDispatch的大部分工作）。还的注意在我们的IDL中我们需要另一个GUID给IDocument的VTable。但我们没在IDL文件中定义IDocument对象本身。我们不需要因为脚本从不通过CoCreateInstance创建他们，但会间接获取我们应用程序自己创建的一个IDocument。


C++宿主例程

在ScriptHost6目录中是一个ScriptHost5的C++版本。你会注意到在AppObject.h中我们定义我们的MyRealIApp和MyRealIDocument类继承于我们IApp和IDocument。这些COM函数成为他们各自类的成员。注意，尽管在C例程中我们的MyRealApp的函数接受一个指向MyRealApp的指针作为第一个参数，但在C++版本中这被忽略。因为它变成了隐藏的“this”指针。同时我们不需要去声明和初始化任何VTable的指针。C++编译器为我们做这一切。

此外，无论我们什么时候调用COM函数，我们忽略->lpVtbl，同时不用传一个指向这个对象的指针作为第一个参数。

在IActiveScriptSite.h中，我们也要把MyRealIActiveScriptSite声明为继承于IActiveScriptSite和IActiveScriptSiteWindow的类。注意我们不再需要为每个子对象提供单独的QueryInterface、AddRef和Release。我们只要声明基对象的QueryInterface、AddRef和Release，然后C++编译器会自动为其他子对象生成这些函数的正确的委托（delegation）。

原文：http://www.codeproject.com/Articles/15037/COM-in-plain-C-Part-7

拥有自定义COM对象的ActiveX脚本宿主允许在你的应用程序中调用C函数。

下载例程－ 380 Kb

内容

  • 简介
  • 声明自定义对象
  • 我们的IDL文件和类型库
  • 向引擎注册我们的COM对象
  • 脚本如何调用我们COM对象的函数
  • 我们的IProvideMultipleClassInfo对象
  • 应用程序和文档对象
  • C++宿主例程

简介

在前一章中，我们学习了如何让我们应用程序运行一段脚本。但为了让脚本能调用我们应用程序中的C函数，最终与我们的应用程序交换数据，我们需要给我们的应用程序添加另一个自定义COM对象。我们的C函数（脚本调用的）会封装在这个COM对象中。你可以返回第二章，为了让脚本调用我们COM对象中的函数，我们需要给它添加一个IDispatch标准函数（也有IUnkown标准函数）。

一句话，我们要做的是创建一个就像我们在第二章中那样的我们自定义COM对象。我们定义它包含IUnkown函数，后面是IDipatch函数，接着是我们想让脚本调用的额外函数。为了创建一个类型库（让脚本可以看到我们额外函数名、传递的参数和返回值）我们还得写一个.IDL文件。我们做的是像我们在第二章中做的那样创建我们自定义、脚本可识别的对象。


声明我们的自定义COM对象

我们可以给我们自定义COM对象起我们喜欢的名字。我们随便叫它IApp。

我们给脚本提供三个可调用的函数，Output、SetTitle和GetTitle。Output函数在我们主窗口的EDIT空间中显示一行文本。我们使用另一个自定义窗口消息（WM_APP+1）通过PostMessage传递这行给我们主窗口进程来显示，就像我们在我们的IActiveScriptSite的OnHandleError函数那样。SetTitle函数会改变在我们主窗口的标题栏中的文本。而GetTitle函数是回去标题栏文本。我们把这三个函数放到我们的IApp对象中，在IUnknown和IDispatch函数之后。

在ScriptHost4目录中是我们添加了这个IApp对象的ScriptHost版本。AppObject.c源文件包含了大部分新代码。

我们需要给我们的IApp对象一个唯一的GUID，因此我运行GUIDGEN.EXE创建了一个，给它命名为CLSID_IApp。我们还需要给IApp的VTable一个GUID，所以我创建另一个GUID，命名为IDD_IApp。我把这两个GUID放在了Guids.c和Guids.h源文件中。

像第二章那样，我们用一个特殊的宏来申明我们的IApp对象的VTable（和对象本身）。这是定义：

[cpp] view plain copy print ?
  1. #undefINTERFACE
  2. #defineINTERFACEIApp
  3. DECLARE_INTERFACE_(INTERFACE,IDispatch)
  4. {
  5. //IUnkown函数
  6. STDMETHOD(QueryInterface)(THIS_REFIID,void**)PURE;
  7. STDMETHOD_(ULONG,AddRef)(THIS)PURE;
  8. STDMETHOD_(ULONG,Release)(THIS)PURE;
  9. //IDispatch函数
  10. STDMETHOD_(ULONG,GetTypeInfoCount)(THIS_UINT*)PURE;
  11. STDMETHOD_(ULONG,GetTypeInfo)(THIS_UINT,LCID,ITypeInfo**)PURE;
  12. STDMETHOD_(ULONG,GetIDsOfNames)(THIS_REFIID,LPOLESTR*,UINT,
  13. LCID,DISPID*)PURE;
  14. STDMETHOD_(ULONG,Invoke)(THIS_DISPID,REFIID,LCID,WORD,
  15. DISPPARAMS*,VARIANT*,EXCEPINFO*,UINT*)PURE;
  16. //额外函数
  17. STDMETHOD(Output)(THIS_BSTR)PURE;
  18. STDMETHOD(SetTitle)(THIS_BSTR)PURE;
  19. STDMETHOD(GetTitle)(THIS_BSTR*)PURE;
  20. };
   #undef  INTERFACE
   #define INTERFACE IApp
   DECLARE_INTERFACE_ (INTERFACE, IDispatch)
    {
      // IUnkown函数
      STDMETHOD  (QueryInterface)(THIS_REFIID, void **) PURE;
      STDMETHOD_ (ULONG, AddRef)(THIS) PURE;
      STDMETHOD_ (ULONG, Release)(THIS) PURE;
      // IDispatch函数
      STDMETHOD_ (ULONG, GetTypeInfoCount)(THIS_ UINT *) PURE;
      STDMETHOD_ (ULONG, GetTypeInfo)(THIS_ UINT, LCID, ITypeInfo **) PURE;
      STDMETHOD_ (ULONG, GetIDsOfNames)(THIS_ REFIID, LPOLESTR *, UINT,
                   LCID, DISPID *) PURE;
      STDMETHOD_ (ULONG, Invoke)(THIS_ DISPID, REFIID, LCID, WORD,
                   DISPPARAMS *, VARIANT *,EXCEPINFO *, UINT *) PURE;
      // 额外函数
      STDMETHOD  (Output)(THIS_ BSTR)PURE;
      STDMETHOD  (SetTitle)(THIS_ BSTR)PURE;
       STDMETHOD (GetTitle)(THIS_ BSTR *) PURE;
   };

记住上面的宏也会自动定义我们的IApp为包含一个指向上面VTable的指针的lpVtbl成员。但像通常做的那样，我们需要添加额外的、私有成员给我们的对象，因此我们也像这样定义一个MyRealIApp结构：

[cpp] view plain copy print ?
  1. typedefstruct{
  2. IAppiApp;
  3. IProvideMultipleClassInfoclassInfo;
  4. }MyRealIApp;
   typedef struct {
     IApp                      iApp;
     IProvideMultipleClassInfo classInfo;
    }MyRealIApp;

我们的MyRealIApp封装了我们的IApp和一个我们后面会用到的标准子对象IProvideMultipleClassInfo。

我们需要给我们的IApp声明全局VTable，同时还有我们的IProvideMultipleClassInfo子对象的VTable：

[cpp] view plain copy print ?
  1. //我们的IAppVTable.
  2. IAppVtblIAppTable={
  3. QueryInterface,
  4. AddRef,
  5. Release,
  6. GetTypeInfoCount,
  7. GetTypeInfo,
  8. GetIDsOfNames,
  9. Invoke,
  10. Output,
  11. SetTitle,
  12. GetTitle};
  13. //我们的IProvideMultipleClassInfoVTable.
  14. IProvideMultipleClassInfoVtblIProvideMultipleClassInfoTable={
  15. QueryInterface_CInfo,
  16. AddRef_CInfo,
  17. Release_CInfo,
  18. GetClassInfo_CInfo,
  19. GetGUID_CInfo,
  20. GetMultiTypeInfoCount_CInfo,
  21. GetInfoOfIndex_CInfo};
   // 我们的IApp VTable.
   IAppVtbl IAppTable = {
     QueryInterface,
     AddRef,
     Release,
     GetTypeInfoCount,
     GetTypeInfo,
     GetIDsOfNames,
     Invoke,
     Output,
     SetTitle,
     GetTitle};
   // 我们的IProvideMultipleClassInfo VTable.
   IProvideMultipleClassInfoVtbl IProvideMultipleClassInfoTable = {
     QueryInterface_CInfo,
     AddRef_CInfo,
     Release_CInfo,
     GetClassInfo_CInfo,
     GetGUID_CInfo,
     GetMultiTypeInfoCount_CInfo,
     GetInfoOfIndex_CInfo};

对我们而言，我们只需要一个IApp对象。所有运行的脚本共享这一个对象（这样如果我们有多个脚本线程运行，他们存取全局数据，在我们的IApp函数做同步是非常重要的）。那么最容易的方法是把我们的IApp对象声明为全局的，同时在在我们程序开始的地方调用一个函数来初始化它。

我们还得加载两个ITyperInfo－一个是IApp的VTable，一个是我们IApp对象本身。同时我们需要存储这两个ITypeInfo。因为每个我们只需要一个，我给他们定义两个全局变量。

[cpp] view plain copy print ?
  1. //对我们而言，我们只需要一个IApp对象，因此我们把它申明为全局的
  2. MyRealIAppMyIApp;
  3. //我们的IApp对象的ITypeInfo，我们只需要一个因此我们让它是全局的
  4. ITypeInfo*IAppObjectTypeInfo;
  5. //我们的IApp对象的ITypeInfoVTabel，我们只需要一个
  6. ITypeInfo*IAppVTableTypeInfo;
  7. voidinitMyRealIAppObject(void)
  8. {
  9. //初始化子对象的VTable指针
  10. MyIApp.iApp.lpVtbl=&IAppTable;
  11. MyIApp.classInfo.lpVtbl=&IProvideMultipleClassInfoTable;
  12. //还没有加载IApp的VTable的ITypeInfo，和IApp自身
  13. IAppObjectTypeInfo=IAppVTableTypeInfo=0;
  14. }
   // 对我们而言，我们只需要一个IApp对象，因此我们把它申明为全局的
    MyRealIApp  MyIApp;
   // 我们的IApp对象的ITypeInfo，我们只需要一个因此我们让它是全局的
   ITypeInfo   *IAppObjectTypeInfo;
   //我们的IApp对象的ITypeInfo VTabel，我们只需要一个
   ITypeInfo   *IAppVTableTypeInfo;
   void initMyRealIAppObject(void)
    {
      // 初始化子对象的VTable指针
      MyIApp.iApp.lpVtbl = &IAppTable;
      MyIApp.classInfo.lpVtbl = &IProvideMultipleClassInfoTable;
      // 还没有加载IApp的VTable的ITypeInfo，和IApp自身
      IAppObjectTypeInfo = IAppVTableTypeInfo = 0;
    }

我们的IDL文件和类型库

我们需要创建一个.IDL文件，这样MIDL.EXE能为我们编译一个类型库。我们的IDL文件定义了我们的IApp VTable和IApp对象自身。这与我们在第二章定义我们的IExample2自定义COM对象时做的本质上是一样的。你可以找到一个ScriptHost.idl源文件来仔细阅读。

注意IApp的VTable被声明为双接口。这样我们的IDispatch函数就可以使用标准的COM调用来做这些函数的大部分工作了。这与我们的IExample2的IDisaptch函数做的一样。

还要注意的是我们的SetTitle和GetTitle函数被声明为propput和propget，以及同样的DISPID号。这样，这两个函数只要脚本是concerned状态，可以设置和获取Title这个变量的值。这与你在第二章看到的类似。

我们要做的与IExample2不同的事是MIDL.EXE为我们创建的实际的类型库（也就是ScriptHost.tlb）。对于IExample2，我们只把类型库作为单独的文件。对于我们的应用程序，我们要把类型库文件嵌入到我们的exe的资源中，用COM函数LoadTypeLib来从我们的资源中释放、加载它。

我已经给我们的应用程序的资源文件创建了一个.RC文件。在ScriptHost.rc中，你会看到下面这句：

[cpp] view plain copy print ?
  1. 1TYPELIBMOVEABLEPURE"debug/ScriptHost.tlb"
    1TYPELIB MOVEABLE PURE "debug/ScriptHost.tlb"

它获得类型库文件（ScriptHost.tlb， MIDL.EXE编译的放在Debug目录中），把它嵌入到我们的exe资源中，给它一个资源ID号1。这个资源的类型是TYPELIB，表明这个资源是一个类型库文件。我们不需要提供我们的类型库文件（ScriptHost.tlb）作为一个单独的文件因为现在它被嵌入到我们的exe中了。

这是一个通过GUID创建一个与这个GUID相连的ITypeInfo。这个函数从我们的嵌入的类型库资源中提取信息。例如，为了得到一个我们IApp Vtalbe的ITypeInfo，我们只要传入IApp的VTable的GUID。我们还的传入一个接受返回的ITypeInfo的句柄。

[cpp] view plain copy print ?
  1. HRESULTgetITypeInfoFromExe(constGUID*guid,ITypeInfo**iTypeInfo)
  2. {
  3. wchar_tfileName[MAX_PATH];
  4. ITypeLib*typeLib;
  5. HRESULThr;
  6. //提示错误
  7. *iTypeInfo=0;
  8. //LoadthetypelibraryfromourEXE'sresources
  9. //从我们的EXE的资源中加载类型库
  10. GetModuleFileNameW(0,&fileName[0],MAX_PATH);
  11. if(!(hr=LoadTypeLib(&fileName[0],&typeLib)))
  12. {
  13. //让微软的GetTypeInfoOfGuid()创建一个通用的ItypeInfo给请求的元素（传入它的GUID）
  14. hr=typeLib->lpVtbl->GetTypeInfoOfGuid(typeLib,guid,iTypeInfo);
  15. //我们不再需要这个类型库了
  16. typeLib->lpVtbl->Release(typeLib);
  17. }
  18. return(hr);
  19. }
   HRESULT getITypeInfoFromExe(const GUID *guid, ITypeInfo **iTypeInfo)
    {
      wchar_t    fileName[MAX_PATH];
      ITypeLib   *typeLib;
      HRESULT    hr;
      // 提示错误
      *iTypeInfo = 0;
      // Load the type library from our EXE's resources
      // 从我们的EXE的资源中加载类型库
      GetModuleFileNameW(0, &fileName[0], MAX_PATH);
      if (!(hr = LoadTypeLib(&fileName[0], &typeLib)))
      {  
         // 让微软的GetTypeInfoOfGuid()创建一个通用的ItypeInfo给请求的元素（传入它的GUID）
         hr = typeLib->lpVtbl->GetTypeInfoOfGuid(typeLib, guid, iTypeInfo);
         // 我们不再需要这个类型库了
         typeLib->lpVtbl->Release(typeLib);
      }
      return(hr);
    }


向引擎注册我们的COM对象

为了向引擎注册我们的COM对象，我们必须调用一次引擎IActiveScript的AddNamedItem函数。我们还必须为这个COM对象取一个字符串名，脚本会使用它来调用我们的函数。在我们使用的引擎语言中这个名字应该是一个合法的变量名。一个好的通用方法是全部使用字母作为这个字符串的名字（没有空格），它作为变量名被每种语言支持。

我们随便取一个字符串名为“application”。我们需要在我们真正运行脚本前注册我们的COM对象，但要在我们初始化引擎后。因此我们在runScript中调用SetScriptSite后添加对AddNamedItem的调用，但要在我们加载脚本和传递它给ParseScriptText前。这是我们添加的一行：

[cpp] view plain copy print ?
  1. args->EngineActiveScript->lpVtbl->AddNamedItem(args->EngineActiveScript,
  2. "application",SCRIPTITEM_ISVISIBLE|SCRIPTITEM_NOCODE) 
   args->EngineActiveScript->lpVtbl->AddNamedItem(args->EngineActiveScript,
       "application", SCRIPTITEM_ISVISIBLE|SCRIPTITEM_NOCODE)

第二个参数是我们的字符串名，在这是“application”。第三个参数是标示。SCRIPTITEM_ISVISIBLE标示意味着脚本可以调用我们对象的函数。（没有这个标示，脚本不会调用我们的任何函数。为什么你需要这样是有原因的，但在这先不说）。SCRIPTITEM_NOCODE 意味着在我们执行程序中对象的函数是C代码。事实上添加给脚本的对象的函数被包含在你添加到的引擎的另一个脚本中是有可能的。在一般情况下，你不要用SCRIPTITEM_NOCODE ，但在这我们要它，因为在我们的执行程序中我们对象的函数的确是C函数。

只要我们调用了AddNamedItem，脚本引擎会调用我们IActiveScriptSite的GetItemInfo函数来获取一个指向我们自定义COM对象的指针，或者是它的ITypeInfo。因此我们现在需要用有效的指令来替换以前的存根代码。在这是这样：

[cpp] view plain copy print ?
  1. STDMETHODIMPGetItemInfo(MyRealIActiveScriptSite*this,LPCOLESTR
  2. objectName,DWORDdwReturnMask,IUnknown**objPtr,ITypeInfo**typeInfo)
  3. {
  4. HRESULThr;
  5. //提示失败
  6. hr=E_FAIL;
  7. if(dwReturnMask&SCRIPTINFO_IUNKNOWN)*objPtr=0;
  8. if(dwReturnMask&SCRIPTINFO_ITYPEINFO)*typeInfo=0;
  9. //引擎要的是我们的IApp对象嘛（有字符串名“application”）？
  10. if(!lstrcmpiW(objectName,"application"))
  11. {
  12. //引擎要的是一个指向我们IApp对象返回的指针嘛？
  13. if(dwReturnMask&SCRIPTINFO_IUNKNOWN)
  14. {
  15. //给引擎一个指向我们IApp对象的指针。引擎会调用它的AddRef()函数，
  16. //同时在使用完后Release（）它。
  17. *objPtr=getAppObject();
  18. }
  19. //引擎要我们的IApp对象返回的ITypeInfo嘛？
  20. if(dwReturnMask&SCRIPTINFO_ITYPEINFO)
  21. {
  22. //确保我们拥有一个IApp对象的ITypeInfo。（脚本引擎需要知道传给我们IApp
  23. //的额外函数的参数的意义,和这些函数的返回值。因此，它需要IApp的ITypeInfo）。
  24. //引擎会调用它的AddRef（）函数，在随后使用完后Release（）它。
  25. if((hr=getAppObjectITypeInfo(typeInfo)))gotobad;
  26. }
  27. hr=S_OK;
  28. }
  29. bad:
  30. return(hr);
  31. }
   STDMETHODIMP GetItemInfo(MyRealIActiveScriptSite *this, LPCOLESTR
      objectName, DWORD dwReturnMask, IUnknown **objPtr, ITypeInfo **typeInfo)
    {
      HRESULT   hr;
      // 提示失败
      hr = E_FAIL;
      if (dwReturnMask & SCRIPTINFO_IUNKNOWN) *objPtr = 0;
      if (dwReturnMask & SCRIPTINFO_ITYPEINFO) *typeInfo = 0;
      // 引擎要的是我们的IApp对象嘛（有字符串名“application”）？
      if (!lstrcmpiW(objectName, "application"))
      {
         // 引擎要的是一个指向我们IApp对象返回的指针嘛？
         if (dwReturnMask & SCRIPTINFO_IUNKNOWN)
         {
            // 给引擎一个指向我们IApp对象的指针。引擎会调用它的AddRef()函数，
            // 同时在使用完后Release（）它。
            *objPtr = getAppObject();
         }
         // 引擎要我们的IApp对象返回的ITypeInfo嘛？
         if (dwReturnMask & SCRIPTINFO_ITYPEINFO)
         {
            // 确保我们拥有一个IApp对象的ITypeInfo。（脚本引擎需要知道传给我们IApp
            // 的额外函数的参数的意义,和这些函数的返回值。因此，它需要IApp的ITypeInfo）。
            // 引擎会调用它的AddRef（）函数，在随后使用完后Release（）它。
            if ((hr = getAppObjectITypeInfo(typeInfo))) goto bad;
         }
         hr = S_OK;
      }
   bad:
      return(hr);
    }

注意引擎会传入我们给出对象的字符串名（也就是“application”），因此我们得做字符串比较来确保引擎请求的正是我们的IApp对象。引擎还会传入用于我们返回给它的一个指向这个对象的句柄，或者它的ITypeInfo。如果引擎要一个指向我们对象的指针，它传入一个SCRIPTINFO_IUNKNOWN标示。如果它需要的是我们对象的ITypeInfo，那么它传入SCRIPTINFO_ITYPEINFO标示。注意两个标示可以同时传入。我们只调用我们的getAppObject或getAppObjectITypeInfo函数（在AppObject.c中）来填充引擎的句柄。


脚本如何调用我们COM对象的函数

当我们调用AddNamedItem时，我们COM对象被添加给引擎、暴露给脚本就像脚本自己创建的对象一样。例如，如果VBScript要调用我们的COM对象的Output函数，它可以这么做：

[vb] view plain copy print ?
  1. application.Output("Sometext")
   application.Output("Some text")

在VBScript中，一个对象名后紧跟一个点。注意脚本使用我们“application”字符串名来定位我们的IApp对象。VBScript不需要调用CreateObject。因为我们的应用程序通过AddNamedItem注册了我们的对象，我们的对象会对只通过使用我们选定的字符串名的脚本自动生效。

如果脚本要设置我们的Title属性（也就是，调用我们的SetTitle函数），它可以像下面这样做：

[vb] view plain copy print ?
  1. application.Title="Sometext"
   application.Title = "Some text"

如果脚本要获得我们Title属性值（也就是调用我们的GetTitle函数），它可以像下面这样做：

[cpp] view plain copy print ?
  1. title=application.Title
   title = application.Title

有一个调用我们IApp函数script.vbs（在ScriptHost4目录中）VBScript例程。


我们的IProvideMultipleClassInfo对象

引擎在需要获得与我们IApp对象有关的GUID或者ITypeInfo对象时它调用我们的IProvideMultipleClassInfo对象函数（在AppObject.c中）。引擎可以请求我们IApp[default]的VTable的GUID，或者可以请求我们IApp对象拥有的任何[default,source] VTable（如果我们有这样的VTable的话）的GUID，或者可以请求我们IApp的ITypeInfo对象（也就是说，不是一个它的VTable的ITypeInfo）。


应用程序和文档对象

假设我们有一个文本编辑器应用程序。这个应用程序是一个“多文档”应用程序，意味着用户可以编辑几个不同的文本文件，每个在它自己的MDI窗口中打开。

在这种情况下，我们的IApp对象在至少得是一个“application对象”；即它包含控制我们应用程序的所有操作的函数。例如，它可能有一个显示或隐藏工具栏或状态栏的函数。我们只需要一个IApp对象。

我们定义第二个自定义对象，我们随便叫它IDocument对象。这个对象有控制一个文本编辑器窗口以及它的内容的函数。例如，或许我们有一个在当前光标位置插入文本的函数，和移动光标到文档中指定位置的另一个函数。每次我们创建、加载不同的文本文件时，我们创建不同的IDocument对象给这个新的文档。因此，用户打开了几个编辑器窗口，我们就的有几个IDocument对象（每个窗口一个）。

因为我们要同一个对象的几个实例，我们不能调用引擎的AddNamedItem来注册我们的IDocumnet对象。（的确，如果用户还没有打开任何文档，我们不可以有IDocument对象的任何实例）。那么脚本如何获得存取一个特定的IDocument对象呢（假设脚本希望改变文档的内容）？通常，我们的IApp对象会有脚本可以调用返回一个IDocument对象的函数。或许脚本会出入它想要的文档的“名字”。或者我们的IApp有一个直接返回当前活动文档的IDocument的函数。（这要看你怎么做了）。

通常，你要有一个“documnent”结构的链表，IApp可以通过它查找直到发现、获得相应的IDocument对象。例如，或许我们给我们的IApp定义一个GetDocument的函数。GetDocument接受传入的想要获得的IDocument的BSTR名字。我们的IDL文件可以定义成这样：

[cpp] view plain copy print ?
  1. [id(3)]HRESULTGetDocument([in]BSTRname,[out,retval]IDispatch**document);
   [id(3)] HRESULT GetDocument([in] BSTR name, [out, retval] IDispatch**document);

当然，为了让脚本调用我们的IDocumnent的函数，我们的IDocument必须在它的VTable中有标准的IDispatch函数。在本例中，它可以（就脚本引擎而言应该这样）伪装一个IDispatch。因此这就是我们要GetDocument返回的。

那么例如，一个VBScript可以这样获得一个text.txt的文档：

[cpp] view plain copy print ?
  1. SETdoc=application.GetDocument("test.txt")
   SET doc = application.GetDocument("test.txt")

在ScriptHost5目录中是一个不完善的文本阅读器。它只是一个可以打开几个文本文件阅读的MDI应用程序；每个文件在它的自己的窗口中。我们的IApp对象有一个叫CreateDocument的额外函数。它接受一个要加载的文本文件的BSTR文件名。它创建一个新的MDI子窗口，并且在窗口中加载、显示文本文件。（事实上，我们只创建一个空文档）。CreateDocument还为这个窗口创建一个新的IDocument对象，把它返回给脚本。

我们的IDocument对象包含一个叫WriteText的函数。它接受一个BSTR格式的文本，同时这个文本替换窗口中的其他文本。

在ScriptHost5目录中有一个名为test.vbs的VBScript。它只调用我们我们的IApp的CreateDocument两次来创建两个IDocument对象，他们叫“Document 1”和“Document 2”。它调用每个IDocument的WriteText函数。对于“Document 1”，它设置文本为“This is document 1.”。对于“Document 2”，它设置文本为“This is document 2.”。

注意为了简单，ScriptHost5强行加载和运行test.vbs。

对于这个例程，你会注意到我们的IApp对象如何控制我们的阅读器所有操作，而IDocument控制每个单独的文档。注意我们向ScriptHost.idl中添加两个自定义对象（同时注意两个都是双VTable，因此我们用标准COM函数来做IDispatch的大部分工作）。还的注意在我们的IDL中我们需要另一个GUID给IDocument的VTable。但我们没在IDL文件中定义IDocument对象本身。我们不需要因为脚本从不通过CoCreateInstance创建他们，但会间接获取我们应用程序自己创建的一个IDocument。


C++宿主例程

在ScriptHost6目录中是一个ScriptHost5的C++版本。你会注意到在AppObject.h中我们定义我们的MyRealIApp和MyRealIDocument类继承于我们IApp和IDocument。这些COM函数成为他们各自类的成员。注意，尽管在C例程中我们的MyRealApp的函数接受一个指向MyRealApp的指针作为第一个参数，但在C++版本中这被忽略。因为它变成了隐藏的“this”指针。同时我们不需要去声明和初始化任何VTable的指针。C++编译器为我们做这一切。

此外，无论我们什么时候调用COM函数，我们忽略->lpVtbl，同时不用传一个指向这个对象的指针作为第一个参数。

在IActiveScriptSite.h中，我们也要把MyRealIActiveScriptSite声明为继承于IActiveScriptSite和IActiveScriptSiteWindow的类。注意我们不再需要为每个子对象提供单独的QueryInterface、AddRef和Release。我们只要声明基对象的QueryInterface、AddRef和Release，然后C++编译器会自动为其他子对象生成这些函数的正确的委托（delegation）。

Chinamming
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
C++11标准Document
06-17
C++11标准,ISO
用标准C编写COM（六）COM in plain C,Part6
06-25
用标准C编写COM（六）COM in plain C,Part6
用标准C编写COM（八）COM in plain C,Part8
IT民工
12-10 5577
原文：http://www.codeproject.com/Articles/17038/COM-in-plain-C-part-8 下载例程－419Kb 内容 简介脚本代码持久化脚本代码和“命名项”调用脚本中的特定函数查询/设置脚本中变量的值查询/设置脚本中变量的值 简介 在前面的章节中，我们学会了如何创建Activex脚本宿主。虽然这些章节覆盖了编写一个脚本宿主的
在自己的程序中加入脚本支持 —— ActiveX Scripting技术
C++Builder加油站
11-15 4077
<!--google_ad_client = "pub-0821350481744986";/* 300x250, 创建于 09-2-26 */google_ad_slot = "2191547852";google_ad_width = 300;google_ad_height = 250;// -->　　在CSDN上看到有不少人问怎样才能象MS Offi
C++ IHTMLDocument2 HTML转图片
QQ6550523的博客
07-31 877
HBITMAP CreateImage(IHTMLDocument2 *pDoc) { IHTMLElement *pElement = (IHTMLElement *)NULL; IHTMLElementRender *pRender = (IHTMLElementRender *)NULL; if (pDoc == (IHTMLDocument2 *)NULL) return NULL; pDoc->get_body(&pElement); if (pElement .
C++“隐藏实现，开放接口”的实现方案
阳光日志
07-24 9205
为什么要有接口？接口就是一个程序与其它程序交流的窗口。就比如有一个电视机，我并不需要知道它是怎样工作的，我只要知道按电源键就可以开启电视，按节目加(+)减(-)可以切换电视频道就可以了。Java程序员都知道Java中有interface可以实现对外的接口，但C++并没有接口这样的语法，那它要好怎样实现对外提供接口呢？我们可以通过纯虚函数定义一个抽象类，专门用来声明一个类的功能。我们完成了一个程序模块
用标准C编写COM（三）COM in plain C,Part3
06-25
用标准C编写COM（三）COM in plain C
用标准C编写COM（二）COM in plain C,Part2.
06-25
用标准C编写COM（二）COM in plain C
用标准C编写COM（一）COM in plain C,Part1
06-25
用标准C编写COM（一）COM in plain C
COM in plain C By Jeff Glatt.
Chinamming的专栏
05-22 104
Contents A COM object and its VTable A GUID QueryInterface(), AddRef(), and Release() An IClassFactory object Packaging into a DLL Our C++/C include file The Definition (DEF) file Insta...
标准C编写COM（八）COM in plain C,Part8
Chinamming的专栏
12-06 169
原文：http://www.codeproject.com/Articles/17038/COM-in-plain-C-part-8 下载例程－419Kb 内容 简介 脚本代码持久化 脚本代码和“命名项” 调用脚本中的特定函数 查询/设置脚本中变量的值 查询/设置脚本中变量的值 简介 在前面的章节中，我们学会了如何创建Activex脚本宿主。虽然这些...
在自己的程序中加入脚本支持（一）
wewaa的专栏
09-10 3735
<br />ActiveX Scripting(后面简称[AS])。<br /><br />简单的说[AS]就是：MS来帮我们解析脚本里的基本语句（如if、for、表态式、赋值等），我们负责解释、执行它所不认识的函数，对象。<br /><br />下面再简单说一下操作[AS]的流程：<br /><br />1． 实例化一个脚本对象（IActiveScript）， 一般装了IE的电脑上应该都有JScript和VBScript。<br />2． 告诉IActiveScript谁来解释脚本中的对象(IActive
COM in plain C (1 简介)By Jeff Glatt
bugxxx的专栏
01-06 1109
译自：http://www.codeproject.com/KB/COM/com_in_c1.aspx   COM对象及其VTable GUID QueryInterface(), AddRef(), and Release() IClassFactor 工厂对象 打包到DLL 我们自己的C++/C头文件 定义文
C++类型转换攻略
无敌岩雀的博客
04-30 1480
在C++编程中，类型转换（Type Conversion）是一个核心概念，它指的是将一个数据类型的值转换为另一个数据类型的值的过程。这种转换可能是隐式的（由编译器自动执行），也可能是显式的（由程序员通过特定的语法明确指示）。类型转换在编程中至关重要，因为它允许程序员灵活地处理不同数据类型的数据，并能够在需要时将它们转换为兼容的类型，以便进行进一步的计算或操作。
【全国青少年信息素养大赛智能算法挑战赛初中模拟卷】
最新发布
qq_56949201的博客
04-30 702
5. C++中的`std::shared_ptr`是一个智能指针，它允许多个指针共享对一个对象的所有权。5. C++中的`std::unique_lock`是一个智能锁，它提供了可互斥的锁机制。5. C++中的`std::unique_ptr`是一个智能指针，它拥有它所指向的对象。2. C++中的`std::stack`容器基于`std::deque`实现。9. 在C++中，哪个关键字用于声明一个函数是内联的，并且是类的成员函数？4. 在C++中，`catch`块必须紧跟在`try`块之后。
用c语言编写程序实现棋盘密码加密
05-31
程序中使用了一个 5 x 5 的棋盘来替代字母表，其中字母 J 被替换成了字母 K。加密过程中，程序首先将明文中的每个字母在棋盘上对应的坐标计算出来，然后根据坐标计算出对应的密文字母。 输入明文后，程序会输出加密...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值