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