在分布式开发中，客户端怎样访问应用服务器中定义的函数？就是怎样绑定服务器，bind()

Question

在分布式开发中，客户端怎样访问应用服务器中定义的函数？就是怎样绑定服务器，bind()

Answer 1

C++BIULDER的做法
远程调用方式
一、 服务器端接口方法：Remote Data Module 为 rdmAAA
定义函数一定要在view->type library 中添加！
/*执行一个select count(*) from ...*/
STDMETHODIMP TrdmAAAImpl::F_ExecSQL(BSTR asSQL, int* aiCount)
{
//asSQL是一个in参数，aiCount是一个out参数
    int liCount=0;
    AnsiString lsSQL = AnsiString((WideString)asSQL);
    try
    {
        m_DataModule->qryA2->Close();
        m_DataModule->qryA2->SQL->Clear();
        m_DataModule->qryA2->SQL->Add(lsSQL);
        m_DataModule->qryA2->Prepared = true;
        m_DataModule->qryA2->Open();
        liCount = m_DataModule->qryA2->Fields->Fields[0]->AsInteger;
        m_DataModule->qryA2->Close();
        *aiCount = liCount; //必须把给out参数赋值放在执行的最后
    }
    catch(Exception &E)
    {
        return Error(E.Message.c_str(),IID_IrdmAAA);
    }
    return S_OK;
}
二、 客户端调用方式：
注：客户端Project中已加入_TLB.cpp文件，且要调用接口方法的Unit已包含 _TLB.h。客户端连接组件 cntAAA。
方式1、
WideString lsSQL = "select count(*) from Customers";
int liCount;
cntAAA->AppServer.OleFunction("F_ExecSQL ",lsSQL,&liCount);
Label2->Caption = liCount;
注：这种方式对DCOM、Socket都不行
///////////////////////////////////////////////////////////////////////////////////////////////方式2、
WideString lsSQL = "select count(*) from Customers";
int liCount;
IrdmAAADisp aaa(LPDISPATCH(cntAAA->AppServer));
aaa.F_ExecSQL(lsSQL,&liCount);
Label2->Caption = liCount;
注：这种方式对DCOM可行(但有点问题)，对Socket不行//////////////////////////////////////////////////////////////////////////////////////////////方式3、
头文件里：类的public变量 
    IrdmAAADisp   aaa;
cpp文件里：
    WideString lsSQL = "select count(*) from Customers";
int liCount;
    aaa = (IDispatch*)cntAAA->GetServer();
    aaa->F_ExecSQL(lsSQL,&liCount);
Label2->Caption = liCount;
注：这种方式对DCOM可行，对Socket不行////////////////////////////////////////////////////////////////////////////////////////////////////////////////
方式4、
WideString lsSQL = "select count(*) from Customers";
int liCount;
IrdmAAADisp aaa((IDispatch *)(cntAAA ->AppServer));
aaa.F_ExecSQL(lsSQL,&liCount);
Label2->Caption = liCount;
注：这种方式对DCOM可行，对Socket不行
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
方式5、
WideString lsSQL = "select count(*) from Customers";
int liCount;
IrdmAAADisp aaa;
try
{
aaa.Bind(cntAAA ->GetServer());
aaa->F_ExecSQL(lsSQL,&liCount);
Label2->Caption = liCount;
}
__finally
{
if(aaa.IsBound()) aaa.Unbind();
}
注：这种方式对DCOM可行，对Socket不行
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
方式6、
WideString lsSQL = "select count(*) from Customers";
int liCount;
IDispatch* disp = (IDispatch *)cntAAA->AppServer;
IrdmAAADisp aaa((IrdmAAA *)disp);
aaa. F_ExecSQL(lsSQL,&liCount);
Label2->Caption = liCount;
注：(1)这种方式对DCOM、Socket都行
(2)注意：如果把cntAAA->AppServer 改为cntAAA->GetServer() 会出错“Access Violation”；如果把aaa. F_ExecSQL(lsSQL,&liCount)改为aaa.->F_ExecSQL(lsSQL,&liCount)，也会出错”Access Violation”。
方式7、
WideString lsSQL = "select count(*) from Customers";
    int liCount;
    cntAAA->AppServer.Exec(Procedure("F_ExecSQL")<<lsSQL<<&liCount);
Label2->Caption = liCount;
注：这种方式对DCOM、Socket都行