R ranyang Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-28 #1 我想做一个serverSocket服务，只需要2个连接，就是限制连接数，最好能够限制连接进入的两个clientsocket连接的IP地址，就是只允许我知道的这两个ip地址的socket连接进来，当serversocket有消息发布时，能根据需要发信息到指定ip地址的那两个连接上Clientsocket上。
我想做一个serverSocket服务，只需要2个连接，就是限制连接数，最好能够限制连接进入的两个clientsocket连接的IP地址，就是只允许我知道的这两个ip地址的socket连接进来，当serversocket有消息发布时，能根据需要发信息到指定ip地址的那两个连接上Clientsocket上。
J jfyes Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-28 #3 //这样行不, 最简单的，TCustomWinSocket; //在合法的Socket请求直接回复信息就可以了 procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket); begin if (Socket.RemoteAddress <> 'xx IP') and (ServerSocket1.Socket.ActiveConnections < 3 {只充许2个})then begin Socket.Close; Socket.Free; //要不要加这ServerSocket1.Socket.ActiveConnections不会减一 end; end;
//这样行不, 最简单的，TCustomWinSocket; //在合法的Socket请求直接回复信息就可以了 procedure TForm1.ServerSocket1Accept(Sender: TObject; Socket: TCustomWinSocket); begin if (Socket.RemoteAddress <> 'xx IP') and (ServerSocket1.Socket.ActiveConnections < 3 {只充许2个})then begin Socket.Close; Socket.Free; //要不要加这ServerSocket1.Socket.ActiveConnections不会减一 end; end;
W wugwdelphi Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-29 #4 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3405174
C chefee Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-29 #5 服务器端建立一个TSession和一个TdataBase（在BDE 页下） Session1属性： AutoSessionName=true SessionName=Session1_4 （运行中是可以自动调整的） KeepConnection=true Active=true 在Session时 用 jfyes 的方法
服务器端建立一个TSession和一个TdataBase（在BDE 页下） Session1属性： AutoSessionName=true SessionName=Session1_4 （运行中是可以自动调整的） KeepConnection=true Active=true 在Session时 用 jfyes 的方法
