Serversocket问题/客户每次连接-断开一次,服务程序占用内存就增加4K,为什么?

[Vtang]

客户每次连接-断开一次,服务程序占用内存就增加4K,为什么?

[wcpjavastudy]

邀请c/c++学习的各路好友加入c/c++学习群：17185131

[do2008]

1.单步跟踪服务程序TServerSocket的相关事件处理代码，排除自己代码出现问题的可能
2.开CodeGuard，看服务程序是否申请了某些资源， 却没有正确释放

[do2008]

在BCB的安装目录下$(BCB)，VCL中自带的Sockets.pas这个VCL源码文件中，TBaseSocket的Close方法有点问题；

路径： $(BCB)\Source\Internet\sockets.pas

procedure TBaseSocket.Close;
begin
if FActive then
begin

//这里，在有LINUX这个宏里，就会调用close(FSocket),去释放socket的资源

{$IFDEF LINUX}
ErrorCheck(Libc.__close(FSocket));
{$ENDIF}

FSocket := INVALID_SOCKET;
FActive := False;
DoDestroyHandle;
end;
end;

但windows没有，也就是说，TBaseSocket.Close;并没有真正去释放socket的资源
比如，用TcpView等工具，就可以看到服务进程占用的TCP端口，在客户端断开连接后，
还是处于listen状态，并没有释放这个端口

也就是说，有可能是这个原因造成服务程序不断占用4K内存的原因

建议将函数改为如下：

procedure TBaseSocket.Close;
{$IFDEF MSWINDOWS}
var
NonBlock: Integer;
{$ENDIF}
begin
if FActive then
begin

{$IFDEF MSWINDOWS}//添加对windows的处理
ErrorCheck(ioctlsocket(FSocket, FIONBIO, NonBlock));
{$ENDIF}

{$IFDEF LINUX}
ErrorCheck(Libc.__close(FSocket));
{$ENDIF}
FSocket := INVALID_SOCKET;
FActive := False;
DoDestroyHandle;
end;
end;


然后再这个$(BCB)\Source\Internet\sockets.pas文件复制到你的Project源码目录下，添加到你的Project中，再编译即可。

[pp616]

没发现Serversocket有这个问题。资源使用很稳定。没有每连接一才就增加4K内存的现象。

[shadowstar]

检查一下代码吧，这样的问题太笼统.

[sbkopoky]

有一个香港和悦网络电话的源文件 ,有兴趣妨进入我的BLOG看看