再发:发现一个 Delphi6 VCL 的 BUG!

王朝delphi·作者佚名  2006-01-31
窄屏简体版  字體: |||超大  

上一次在csdn发失败了,再试试看

句柄泄漏最终造成系统的网络完全瘫痪!

下面是 Delphi6 VCL 标准类库 Sockets 单元中 TBaseSocket 类的一段代码:

procedure TBaseSocket.Close;

begin

if FActive then

begin

{$IFDEF LINUX}

ErrorCheck(Libc.__close(FSocket));

{$ENDIF}

FSocket := INVALID_SOCKET;

FActive := False;

DoDestroyHandle;

end;

end;

难道 Borland 的开发人员忘了在 {$IFDEF MSWINDOWS} 时也需要关闭句柄?这个 BUG 的后果就是句柄泄漏最终造成系统的网络完全瘫痪!

此 BUG 在 Delphi2005 已经修改了,不知道 Delphi7 和 Delphi8 中有没有被修改!

下面是 Delphi2005 的代码:

procedure TBaseSocket.Close;

begin

if FActive then

begin

{$IFDEF MSWINDOWS}

ErrorCheck(closesocket(FSocket));

{$ENDIF}

{$IFDEF LINUX}

ErrorCheck(Libc.__close(FSocket));

{$ENDIF}

FSocket := INVALID_SOCKET;

FActive := False;

DoDestroyHandle;

end;

end;

使用 Delphi6 时就要注意了,所有从 TBaseSocket 继承的类在 free 以前都要先把 Handle 记录下来在 free 以后手动 closesocket

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航