传送数据必须包含命令码 在数据接受处理函数中: select case 命令码 case 注册信息 将用户的信息写入COLLECTION,包括用户IP与PORT case 注销信息 将该用户信息移除出COLLECTION case 广播信息 FOR EACH 用户 IN COLLECTION SOCK.REMOTEIP=用户.IP SOCK.remoteport=用户.PORT sock.senddata 广播信息 next end select 大体的结构就是这样,我也还只是一个构想,马上就要做这么一个东西了
在服务器端的dataArrival事件中, 把接收到的客户机传来的数据,转发给所有客户机。for i=1 to sckserver.count
if sckserver(i).state<>sckclosed then
sckserver(i).senddata sdata
endif
next i
客户端必须在服务器端进行注册,注册后服务器端用一个COLLECTION记录下客户端的IP与端口,需要广播时直接从COLLECTION中检索客户端然后逐个发送
在数据接受处理函数中:
select case 命令码
case 注册信息
将用户的信息写入COLLECTION,包括用户IP与PORT
case 注销信息
将该用户信息移除出COLLECTION
case 广播信息
FOR EACH 用户 IN COLLECTION
SOCK.REMOTEIP=用户.IP
SOCK.remoteport=用户.PORT
sock.senddata 广播信息
next
end select
大体的结构就是这样,我也还只是一个构想,马上就要做这么一个东西了