Midas问题,高手请进

Alpha_Gu 2003-05-10 03:00:49
用Midas做东西
服务端增加方法如下STDMETHODIMP TDataServerImpl::DynamicSet(BSTR Value)
{
AnsiString Code; //操作码
AnsiString Data; //操作数据
Code = (AnsiString(Value)).SubString(1,1);
Data = (AnsiString(Value)).SubString(2,(AnsiString(Value)).Length()-1);
ShowMessage(Code+" "+Data+" "+Data.Length());
return S_OK;
}
没有做实际操作,只是测试是否可接受客户传过来的消息的。
客户端代码如下:
void __fastcall TPassWordForm::OKButtonClick(TObject *Sender)
{
WideString Value;
Value = "0"+WideString(UserEdit->Text);
MainForm->ClientDCOM->Close();
IDataServerDisp tmp;
tmp.Bind((LPDISPATCH(MainForm->ClientDCOM->AppServer));
tmp.DynamicSet(Value.Copy());
MainForm->ClientDCOM->Open();
tmp.Unbind();
}
这是在登录窗体上的一个按钮的事件,DCOMConnection组件ClientDCOM和ClientDataSet全在主窗体MainForm上,我已经在使用时Include进来了,Server_TLB.h也包含进来了。
同样的东西,我在服务器端加上一个DCOMConnection和一个ClientDataSet自己试自己,是可成功的,可是,真的放到客户端,就出现了错,如下:
punk @ D:\Program Files\Borland\CBuilder5\Include\Vcl\utilcls.h /3985
punk @ D:\Program Files\Borland\CBuilder5\Include\Vcl\utilcls.h /4140

高手请帮我一下!


...全文
57 回复 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

604

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder VCL组件使用和开发
社区管理员
  • VCL组件使用和开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧