是的,dcom会自动处理
你可以试试
在你的中间层的主窗口上加一个tlabel:label,
在private中定义一个变量记录连数
nclientcount: integer;
定义一个方法
procedure updataclientcount(n:integer)
begin
nclientcount:=nclientcount+inc;
label.Caption:=inttostr(nclientcount);
end;
在你的远程数据模块的oncreate中加入
mainform.updataclientcount(1);
在你的远程数据模块的ondestroy中加入
mainform.updataclientcount(-1);
你可以试试
在你的中间层的主窗口上加一个tlabel:label,
在private中定义一个变量记录连数
nclientcount: integer;
定义一个方法
procedure updataclientcount(n:integer)
begin
nclientcount:=nclientcount+inc;
label.Caption:=inttostr(nclientcount);
end;
在你的远程数据模块的oncreate中加入
mainform.updataclientcount(1);
在你的远程数据模块的ondestroy中加入
mainform.updataclientcount(-1);
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货