DELPHI serversocket禁止指定ip連接

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;