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

如题。 问题点数：20、回复次数：4Top

1 楼strive2008（有个人）回复于 2002-10-24 13:04:46 得分 0

upTop

2 楼copy_paste（木石三）回复于 2002-10-24 13:08:19 得分 0

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

3 楼strive2008（有个人）回复于 2002-10-24 16:47:57 得分 0

楼上的兄台，我试了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;  
  Top

4 楼copy_paste（木石三）回复于 2002-10-24 17:14:25 得分 20

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;  
  Top

相关问题

• 客户
• vbatchmaster
• raise
• except
• error message
• procedure
• begin
• try
• create
• test

• 帖主：strive2008
• copy_paste

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载