ASTA专题讨论(20分)

在客户端通过
messagedlg('存盘失败！' + Exception(ExceptObject).Message, mtError,[mbOk], 0);
中的Exception(ExceptObject).Message得到出错信息。
ASTA自带的服务端有BUG，功能太简单，需要自己修改。
****ASTA开发三层系统很不错，速度也可以，欢迎交流!!!

to ghosts: 示例程序中是这样介绍获取更新失败的,但现在问题是无论成功或失败都不会引会客户端Exception,所以怀疑是否Asta自带ADo服务器功能不全,需要如何修改,ghosts兄可否给个示例?

我用的是BDE服务端
我不知你要得到什么信息，我的操作如下：
try
astacleintdataset1.ApplyUpdates;
except
messagedlg('存盘失败！' + Exception(ExceptObject).Message, mtError,[mbOk], 0);
end;

to ghosts:我用的是ADO服务器，没有作任何修改，更新失败时，messagedlg('存盘失败！' + Exception(ExceptObject).Message, mtError,[mbOk], 0);也不被执行。我试下BDE服务器看。

我不想说，我很亲切。RO，三层的首选，开发的利器。完美的框架。
大家看看客户端的代码吧，我是无言发表的什么的，只是把看到的东西贴出来。
客户端代码：
Person = class(TROComplexType)
private
fName:String;
fAge:Integer;
public
procedure Assign(iSource:TPersistent);
override;
published
property Name:String read fName write fName;
property Age:Integer read fAge write fAge;
end;

客户端调用：
procedure TfmMain.Button1Click(Sender: TObject);
var
vService:ComplexTypeService;
vDataerson;
begin
vService:=CoComplexTypeService.Create(ROSOAPMessage1,ROWinInetHTTPChannel1);
try
vData:=vService.GetPerson;
//直接可以从中间层传递一个类。(序列化,太强了)
尽情发挥你的想象力吧，三层如果再加入OPMaping。。。。。。。强。
try
edtName.Text:=vData.Name;
edtAge.Text:=IntToStr(vData.Age);
finally
vData.Free;
end;

finally
vService:=Nil;
end;
end;
如果你看不懂我的贴，我也没办法。

我也在学习asta 是个菜鸟
我创建了一个asta和remobjects的学习群
希望吸引更多的高手加入
有兴趣的 我们可以一起讨论学习
群地址:27611862

请问 "RO，三层的首选"
的相关介绍在那里可以找到?

sorry, 要加就加我好友吧，我可不想打广告！

wu_yanan2003:QQ是多少啊？

再顶一下:
我尽代表广大对多层学习充满热情的兄弟们,呼吁RemObjects SDK for Delphi设计高手留下QQ号码,给大家一个学习交流的机会
或加入由我个人创建的RemObjects的学习群,目的很简单就是给大家一个学习交流的地方,
希望大家都可以从中受益
群号:27611862