远程调用方式
一、服务器端接口方法：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都行
