socket控件 连接时会产生 socketprocedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
socket.SocketHandle就是每一个 连接的句柄;把它记录下来 aaaaafor i:=0 to ServerSocket1.Socket.ActiveConnections-1 do if ServerSocket1.Socket.Connections[I]=aaaa then
ServerSocket1.Socket.Connections[1].SendBuf(...)
Socket: TCustomWinSocket);
begin
socket.SocketHandle就是每一个 连接的句柄;把它记录下来 aaaaafor i:=0 to ServerSocket1.Socket.ActiveConnections-1 do if ServerSocket1.Socket.Connections[I]=aaaa then
ServerSocket1.Socket.Connections[1].SendBuf(...)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货