indy１０获取对方ＩＰ及线程

在INDY10的IDTCPSERVER组件的OnExecute事件中，如果要获取对方的IP、端口和本机对应的线程ID，与INDY9 有所不同。本例是利用INDY10组件时，获得上述参数的代码。

 

uses IdSchedulerOfThread;

.....

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);

var

  str:ansistring;

  peerIP:string;

  peerport:word;

  threadid:integer;

begin

  ......

//读入一行文字，假定是ANSI编码的。

  str:=acontext.Connection.IOHandler.ReadLn(Tencoding.Default);

//对端IP和端口

  peerIP:=acontext.Binding.PeerIP;

  peerport:=acontext.Binding.PeerPort;

//本机对应的线程id

  threadid:=TIdYarnOfThread(acontext.Yarn).Thread.ThreadID;

  .......

//现在是在线程内运行的，不要直接显示

end;