MIDAS中，中间层如何自定义函数并在client上调用？

[gjxjq]

rt

[天涯浪子]

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

[WhyAndAnswer]

看一下书
服务端 远程数据模块View->Type Library->New method 刷新 写代码

[WhyAndAnswer]

客户端
#include "..._TLB.h"
ITestDisp Srv;

Srv.Bind(LPDISPATCH(DM->DCOMConnection1->AppServer));

就可以用Srv调用服务端函数了

结束时
if(Srv.IsBound())
{
Srv.Unbind();
}

[RomanticProgrammer]

在客户端Import type libray，把产生的.cpp文件和.h文件加入你的工程。
然后用IDispath，双接口或者VTable调用都可以。
看看书上关于COM的部分吧。

[gjxjq]

感谢各位,特别感谢热心的天涯浪子!!!

[xiaoyu]

mark