Question

delphi中这段代码是什么意思？

如下：
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
aIP:string;
begin
aIP:='192.168.1.24';//你要封的IP
if AThread.Connection.Binding.PeerIP=aIP then
AThread.Connection.Disconnect;
end;

end.
主要就是if以后的看不懂

Answer 1

IdTCP是Indy控件包里的一个控件，相配套的是两个控件，分为客户端与服务器端，即IdTCPClient和IdTCPServer。

你上面的代码就是，IdTCPServer这个服务端的事件响应代码，当客户端要求连接服务器端的时候，会激发此事件，客户端会传送一个参数：AThread，这个参数是 TIdPeerThread 类型，里面包含很多客户端信息，比如：客户端的IP地址，这样一来，你就可以通过监测这个IP地址，来确定是不是允许或者禁止这个IP访问你的服务器。即所谓的封IP。

if AThread.Connection.Binding.PeerIP=aIP then
AThread.Connection.Disconnect;

这段代码就是检测客户端的IP地址，如果与你设定禁止的IP一致，就断开与这个客户端的连接，即不允许这个IP访问。

Answer 2

nil 为空指针~ 在Delphi 中 组件是以子母的方式存在的~ 所谓组件就是继承自 TComponent 类的派生类~ TForm 也不例外~ 打个比方 frmLogin := TfrmLogin.

Answer 3

如果对方的ip＝你要封的ip，那么就断开连接

追问

主要就是if以后的看不懂
你能具体解释下吗？ 谢谢

追答

我说的就是if以后的啊
if AThread.Connection.Binding.PeerIP=aIP then //如果对方ip=aip
AThread.Connection.Disconnect; //断开连接