请问三层结构怎样返回错误信息到客户端？

Question

如题。

Answer 1

自动的，你只要在服务端: raise exception.create('error message');
客户端自动收到这个，并也抛出异常来。

Answer 2

楼上的兄台，我试了raise exception.create('error message')，一点反应都没有。我的代码如下：我在服务器端这样写：
procedure TBatch.SaveMaster(vBatchMaster: OleVariant);
var
  iErrCount;
  OwnerObject:OleVariant;
begin
    try
      AS_ApplyUpdate('dsp01',vBatchMaster,0,iErrCount,OwnerObject);
      SetComplete;
    except
      SetAbort;
      raise exception.create('error message');
    end;
end;然后在客户端这样调用该方法：
var
  SrvObj:IBatch;
begin
  try
    SvrObj:=CoBatch.CreateRemote('blue');
    SvrObj.SaveMaster(vBatchMaster);
  except
    Raise;
  end;
end;

Answer 3

server:
procedure Ttest.Error;
begin
  raise Exception.Create('error message');
end;client:
procedure TForm2.Button1Click(Sender: TObject);
var
  test: ITest;
begin
  test := CoTest.CreateRemote('faserver');
  try
    test.Error;
  except
    test := nil;
    raise;
  end;
end;