Z
ztc78
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tf_main.ServerSocketSendInfoClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
I: Integer;
begin
for I := ServerSocketSendInfo.Socket.ActiveConnections - 2 downto 0 do
begin
if ServerSocketSendInfo.Socket.Connections.RemoteAddress = Socket.RemoteAddress then
begin
ServerSocketSendInfo.Socket.Connections.Close;
end;
end;
end;
其中的
ServerSocketSendInfo.Socket.Connections.RemoteAddress = Socket.RemoteAddress
等号右边的socket.remoteaddress代表那个地址啊？
Socket: TCustomWinSocket);
var
I: Integer;
begin
for I := ServerSocketSendInfo.Socket.ActiveConnections - 2 downto 0 do
begin
if ServerSocketSendInfo.Socket.Connections.RemoteAddress = Socket.RemoteAddress then
begin
ServerSocketSendInfo.Socket.Connections.Close;
end;
end;
end;
其中的
ServerSocketSendInfo.Socket.Connections.RemoteAddress = Socket.RemoteAddress
等号右边的socket.remoteaddress代表那个地址啊？