1,593
社区成员
发帖
与我相关
我的任务
分享
procedure TTServer.RemoteDataModuleCreate(Sender: TObject);
begin
if FClientCount=0 then
begin
// 连接数据代码
FClientCount:= FClientCount+1; // 记录连接数
end
else begin
exit;
end;
end;
只要连接数=0,创建RemoteDataModule,连接数>0就拒绝创建(连接)。仅供参考。或者设置TServerSocket的ThreadCacheSize等于1,试试