服务端增加方法如下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
高手请帮我一下！
