idTCPSever得到连接IP和端口。

idTCPSever得到连接IP和端口。中文显示问题。

procedure TForm1.idtcpsrvr1Connect(AContext: TIdContext);
var
  IP :string;
  Port :Integer;
begin
  AContext.Connection.IOHandler.DefStringEncoding := TEncoding.Default;    //中文显示

  iLedConnect.Active :=True;
  IP:=AContext.Binding.PeerIP;          //得到连接IP
  Port:=AContext.Binding.PeerPort;      //得到连接端口

end;