最近在研究3层,但是在客户端程序调用时出现了个奇怪的问题,如果用SockerConnection就会出现“不支持该接口”的错误,但是换成DCOMConnection(去掉屏蔽了的那段代码)就可以成功调用,是什么原因啊?
代码如下:procedure TForm1.Button1Click(Sender: TObject);
var
  imp :IEmpDB;
begin
  SocketConnection1.address :=trim(Edit1.Text);
  OleCheck(SocketConnection1.GetServer.QueryInterface(IID_IEmpDB,imp));
  ClientDataSet2.Data :=(SocketConnection1.GetServer As IEmpDB).GetEmpData;  {DCOMConnection1.ComputerName :=trim(Edit1.Text);
  OleCheck(DCOMConnection1.GetServer.QueryInterface(IID_IEmpDB,imp));
  ClientDataSet1.Data :=(DCOMConnection1.GetServer As IEmpDB).GetEmpData;}
end;