关于网络socket句柄的释放问题，请高手指点，感激不尽

[liangyuwei_78]

void __fastcall T_NetModel::ClientSocketConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
Panel->Color = clLime;
Timer->Enabled = false ;
}
//---------------------------------------------------------------------------

void __fastcall T_NetModel::ClientSocketDisconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
Timer->Enabled = true ;
}
//---------------------------------------------------------------------------

void __fastcall T_NetModel::ClientSocketError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
Timer->Enabled = true ;
ErrorCode = 0 ;
}
//---------------------------------------------------------------------------

void __fastcall T_NetModel::TimerTimer(TObject *Sender)
{
if(!ClientSocket->Active )
{
Panel->Color = clRed;
ClientSocket->Open() ;
}
else
{
Panel->Color = clLime;
}
}

以上代代码，过一段时间会提示缓冲区满错误，并在任务管理器的句柄数一列会不断增加句柄数量，由此可见是因为socket句柄没有释放的原因，请那位指教指教，如何释放socket句柄。谢谢

[僵哥]

任务管理器看到的句柄数增量不一定是socket描述符增加而产生的句柄.

[liangyuwei_78]

但确实出现了缓冲区满而使程序崩溃的现象

[joy200699]

支持

[yumikoo]

把Timer的时间间隔调长点试试

[yuanreid]

LZ可以使用netstat命令查看一下你的端口数量是否增加，端口的状态是否未关闭，如果是，可以在断开连接处显式的关闭一下。

[shzqiang]

在窗口析构函数写
if(ClientSocket->Active)
{
ClientSocket->Close();
}
试试看

[痞子酷]

void __fastcall T_NetModel::ClientSocketDisconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
Timer->Enabled = true ;
}

-----------------------
关闭客户端连接
Socket-->Close();

[bluecent]

做成线程就可以

[痞子酷]

void __fastcall T_NetModel::ClientSocketDisconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
Timer->Enabled = true ;
Socket-->Close();关闭客户端连接

}