288分求救(图个吉利) 谁能给我个在MIDAS中客户端调用中间层的函数的例子(要C++Builder的)(288分)

我改用OleFunction 发现很好现在还剩下最后个问题没解决,解决后结帐

服务端这样
STDMETHODIMP TTextServerImpl::HasUser(BSTR un, VARIANT* R)
{
R->intVal=1;
//生命之歌说是要这样 *R=1;
//但是我编译不通过,说是不能把 int 转换为 tagVARIANT
}
在客户端
VARIANT *r=new VARIANT;
String un="Administrator";
MainForm->m_DCOMConnection->AppServer.OleFunction("HasUser",un.c_str(),r);
ShowMessage( IntToStr(r->intVal));
这里出现的数字不是1,是个很大的数字
也就是说怎么传递个 VARIANT
注意,是VARIANT 不是Variant
我现在就只想解决这个问题
解决后结帐

最后个问题我解决了 不过是在csdn上解决的
这里好像没什么C++Builder的高手