可以用时钟控件 只是不知道你发数据是发去那 发给连着你的客户端?
如果是的话,每个客户端连接的时候你都将记录客户端的信息包括socket连接 要给所有客户端发送信息其实就是 循环客户端列表然后获取每个客户端的socket连接发送想要发送的数据 设置时间控件的间隔为10秒 没次触发就做以上所诉的事
=================================== 随便贴段列子
Procedure TGameManage.HideAllClient;
Var
I: Integer;
Begin
FShow.Shower.AddShow('隐藏所有客户端');
Try
With PlayerList.LockList Do Begin
For I := 0 To Count - 1 Do Begin // Iterate
Try
Fmain.SendHead(CmdHideAllClient, PRplayer(Items).Athread);
Except
Continue;
End;
End; // for
End; // with
Finally
PlayerList.UnlockList;
End;
End;