一个客户程序如何对应多个App Server?(50分)

H

hongsen

Unregistered / Unconfirmed
GUEST, unregistred user!
问题背景:
本地数据库中保存很多SQL语句,要发给不同的远端数据库中执行。
解决办法设想:(用基于MIDAS的三层结构)
在客户端创建多个SocketConnection和ClientDataset对象。
启动多个线程,每个线程对应一个远程APP SERVER。
问题:如何进行错误控制和处理。
(1)能区分错误是出在哪个线程吗?应该可以吧
(2)某个错误出错后怎么办?终止整个客户程序,还是停止具体的线程,让其他的线程继续执行?
 
使用TsimpleObjectBroker控件。容错代码
function connect(connectobj:Tcustomconnection):boolean;
//容错功能
begin
with connectobjdo
try
try
connected:=false;
except
end;
connected:=true;
result:=true;
except
result:=false;
end;
end;
1。区分错误是出在哪个线程,可以在APPSERVER的DATASET组件的beforeopen事件中跟踪处理。
 
多加几个dcom就可
 
顶部