DataSnap(MIDAS)三层架构程序中，远程方法调用方式

远程调用方式

一、服务器端接口方法：Remote Data Module 为 rdmAAA

/*执行一个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都行

本文地址：http://com.8s8s.com/it/it25373.htm