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;
}