Question

DELPHI serversocket禁止指定ip连接

指定IP在 StringGrid1 内 StringGrid1.Rows[i].Text

只要 StringGrid1 内存在这个IP就禁止此IP连接 serversocket

如何写呢
我测试下

Answer 1

在serversocket 的OnAccept事件中写以下代码：
var
i:integer;
st:string;

st:=socket.RemoteAddress;
for i:=0 to StringGrid1.Rowcount-1 do
begin
if comparestr(st,StringGrid1.Rows[i].Text)=0 then
begin
socket.Close;//把当前的链接断开，并不是把所有链接断开
break;

end;

end;

Answer 2

这是我的ServerSocketClientConnect代码

原来的用户无法补充了，在这里补充一下

procedure TForm1.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
i,j:integer;
begin
j:=-1;
for i:=0 to sessions do
begin
//在原有的客户端连接数组中有中断的客户端连接
if not session[i].CUsed then
begin
session[i].CHandle := Socket.SocketHandle ;//客户端套接字句柄
session[i].CSocket := Socket; //客户端套接字
session[i].CName := Socket.RemoteHost ; //客户端计算机名称
session[i].CAddress := Socket.RemoteAddress ;//客户端计算机IP
session[i].CUsed := True; //连接数组当前位置已经占用
Break;
end;
j:=i;
end;
if j=sessions then
begin
inc(sessions);
session[j].CHandle := Socket.SocketHandle ;
session[j].CSocket := Socket;
session[j].CName := Socket.RemoteHost ;
session[j].CAddress := Socket.RemoteAddress ;
session[j].CUsed := True;
end;
StatusBar.Panels[0].Text := '客户端' + Socket.RemoteHost + '已经连接';
DisplayConnectionsInfo;
end;