摘要：
Indy10将参数从AThread更改为AContext，用法不同。OnConnect获取源IPAContext.Connection.Socket。绑定PeerIP；在执行时，处理来自客户端VaraThread:TIdMappedPortContext的数据；s： 字符串；beginaThread:=TIdMappedPortContext（aContext）；秒
Indy10把参数由AThread换成AContext后，用法已经不同.
OnConnect中获取来源IP
AContext.Connection.Socket.Binding.PeerIP;
OnExecute中处理客户端来的数据
Var
aThread:TIdMappedPortContext;
s:string;
begin
aThread:=TIdMappedPortContext(aContext);
s:=aThread.netdata;
//
..(处理过程)
end;
OnOutboundData中处理服务端过来的数据
Var
aThread:TIdMappedPortContext;
s:string;
begin
aThread:=TIdMappedPortContext(aContext);
s:=aThread.netdata;
//..
end;
OnConnect中获取来源IP
AContext.Connection.Socket.Binding.PeerIP;
OnExecute中处理客户端来的数据
Var
aThread:TIdMappedPortContext;
s:string;
begin
aThread:=TIdMappedPortContext(aContext);
s:=aThread.netdata;
//
..(处理过程)end;
OnOutboundData中处理服务端过来的数据
Var
aThread:TIdMappedPortContext;
s:string;
begin
aThread:=TIdMappedPortContext(aContext);
s:=aThread.netdata;
//
..end;