读书人

一模一样的几句代码delphi2010可以运

发布时间: 2012-03-09 21:42:55 作者: rapoo

一模一样的几句代码,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
我该怎么办啊?

[解决办法]
帮你顶,d7以上的版本没有用过
[解决办法]
我碰到的问题跟楼主正好相反,D2010的代码怎么也调不通,一样的代码在XE2里却正常运行了。Delphi总能给我们“惊喜”!

读书人网 >.NET

热点推荐