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都行