CSDN博客

img kingcaiyao

Automation In C++ Builder

发表于2003/2/24 13:13:00  2601人阅读

    Automation:自动化服务器,是基于COM技术的,它可以是其它应用程序驱动的组件.ocx,或者单独的exe文件,它有三种类型: 进程内服务器,本地服务器,进程服务器,无论如何作为服务器,它必须至少包含一个或多个供其它应用程序联接和访问的IDispatch接口,自动化服务器可以没有界面(UI).
a.进程内服务器:它不可以单独运行,没有单独的进程地址空间,准确地说它在自动化控制器的进程内运行,这类服务器包括DLL,OCX.
b.本地服务器:这类服务器有自已的进程地址空间,但必须和自动化控制器同在一台机器上运行.
c.进程服务器:和本地服务器一样,它有自已的进程地空间,但它和自动化控制器不在同一台机器上,它与自动化控制器位于不同的机器.
自动化服务器和DLL的最大区别在于:自动化服务器由于与编程语言的无关性,因此它只能使用有限的数据类型,而DLL在特定的语言环境中则可以使用任何数据类型.
    IDispatch接口是自动化服务器的核心所在,也是自动化服务器的机制,它是在不同语言工作下的接口,所谓自动化控制器就是使用IDispatch接口来访问Automation服务器对象的客户,具体访问过程:作为自动化控制器必须首先创建Automation服务器对象,然后通过IUnknown接口中的QueryInterface方法获得IDispatch接口指针,IDispatch接口通过内部的dispids结构来跟踪服务器中的属性和方法,dispid是服务器中每个属性和方法的唯一标识,控制器通过IDispacth接口获得每个属性和方法的dispid后,就将它传给
dispids结构,不过这个结构是在运行期有效(也就是说它们只能在运行期被访问,具体地说在运行期间控制器通过GetIDSOfName来访问该结构),所以这种访问方式称为后绑定.如果在编译期间就可以访问该结构就称为前绑定,双接口就属于前绑定.
    双接口(VTable Interface),也称用户自定义接口,不过它的实现是由VTable(虚拟函数表),所以也叫VTable Interface,它的访问速度要较IDispatch接口快,理由在于:VTable可以看作是一个虚拟函数列表,它的最初三个入口用于存放IUnknown(所有接口的基类)接口的三个函数的地址,(QueryInterface,AddRef,Release),紧接着就是IDispacth接口的四个函数的地址,其它的就存放服务器各属性和方法的地址,如果此时包含类型库头文件,那么VTable可以从类型库中获取任一dispids结构,并在编译期间就绑定在VTable外壳上(也就是TCOMI****),这样就可以直接访问VTable接口来访问服务器中的属性和方法,从而避免调用IDispatch的GetIDSOfNames和Invoke方法,所以它的访问速度要快于IDispacth接口,下面将写一个简单的服务器和客户端来作演示,我只贴出主要部分代码:
//Server:Written In September,2002
STDMETHODIMPL T****:: __fastcall GetData(BSTR *sList)
{
   TStrings *pList=new TStringList();
   try
   {
      TStrings *pList=new TStringList();
      TQuery *Query=new TQuery(NULL);
      Query->DatabaseName="all_ttmis";
      Query->Close();
      Query->SQL->Clear();
      Query->SQL->Add("select * from A0");
      Query->Open();
      Query->First();
      while(!Query->Eof)
      {
         pList->Add(Query->FieldByName("Specified Field")->AsString);
         Query->Next();
     }
     *sList=(WideString)(pList->Text).Detach();
     Query->Close();
     delete pList;
     delete Query;
   }
   catch(Exception &E)
   {
      if(pList)
      {
         delete pList;
      }
      if(Query)
      {
         delete Query;
      }
      return Error(E.Message.c_str(),IID_IYourInterface);
   }
   return S_OK;
}

//Calling At Client

//Method 1:IDispacth Interface
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     WideString S;
     IYourInterfaceDisp app;
     app.BindDefault();
     app.GetData(&S);
     TStrings *pList=new TStringList();
     pList->Text=String(S);
     for(int i=0;i<pList->Count;i++)
     {
         Memo1->Lines->Add(pList->Strings[i]);
     }
     app.Unbind();
     delete pList;
}

//Method 2:VTable Interface
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     WideString S;
     TCOMIYourInterface app=CoYourInterface::Create();
     app->GetData(&S);
     TStrings *pList=new TStringList();
     pList->Text=String(S);
     for(int i=0;i<pList->Count;i++)
     {
         Memo1->Lines->Add(pList->Strings[i]);
     }
     delete pList;   
}

以上是本人对COM的理解,还望各位COM大侠指教.

0 0

相关博文

我的热门文章

img
取 消
img