一模一样的几句代码，delphi2010可以运行，xe2就报错，代码附上

procedure TServerContainer.DSServer1Connect(
  DSConnectEventObject: TDSConnectEventObject);
 var val: TCP_KeepAlive;
  Ret: Integer;
  ClientConnection:TIdTCPConnection;
  tmpP,SQL,tmpN:String;
begin
  ClientConnection := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);
  val.OnOff := 1;
  val.KeepAliveTime := 5000;
  val.KeepAliveInterval := 1000;
  WSAIoctl(ClientConnection.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,@val, SizeOf(val), nil, 0, @Ret, nil, nil);
end;
就这段代码，2010里面运行很正常，在xe2里面就是运行不了，只要用到ClientConnection就报内存错误，我看了一下，ClientConnection 的很多属性都是nil
我该怎么办啊？

该回复于2011-11-21 10:00:42被管理员删除

dreamtou (大头) 等　级：

#2楼 得分：0回复于：2011-11-21 08:56:19 听说Xe2自带心跳包，不知道哪有说明可以参考一下