• 推薦
• m.wangchao.net.cn
• 導航

再發：發現一個 Delphi6 VCL 的 BUG！

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