再发：发现一个 Delphi6 VCL 的 BUG！

本文链接：https://blog.csdn.net/shonhen/article/details/409381

上一次在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