这是否为 Delphi的 BUG 关于 Socket(50分)

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #1

在 Sockets 单元里。有一个类 TBaseSocket 是网络控件的基类
在 它的 Close 过程里没有 CloseHandle 这样的语句。
只是把 FSocket := INVALID_SOCKET;
这是否为 Delphi 的 BUG
在 D6 的 Sockets 的462 行。

procedure TBaseSocket.Close;
begin
if FActive then
begin



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

 

L

leilu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #2

我看看去！

 

L

lynu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-18

• #3

看过DoDestroyHandle没有

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #4

>>看过DoDestroyHandle没有

当然看了！
只有一句
if Assgined(...) then FOn...

调用事件处理的。
大家再看看！我认为真的是个 Bug .

不过我想是这样的：
因为定议是为： procedure Close; virtual;
而这个基类在 面板上是没有的。
在它的派生类 TCustomIpClient 里的 Close
派生一个 Close
再在里面用
ErrorCheck(shutdown(FSocket, SD_BOTH));
关闭 Socket。

我个人认为这种方法是不是不太好?

 

L

lich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-21

• #5

既然是个基类，如果这个方法大多数情况下都被覆盖的话，
就不会有问题，
只是编程的习惯不同而已，
就连Borland的程序员也有水平的高低，
类似这样的编写不合理的地方，在VCL里面可不只这一处

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #6

这个基类的方法没有被覆盖。
在它的派生类 TCustomIpClient 里的 Close 过程里 inhertid 了的。

看来没有办法了！

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-25

• #7

多人接受答案了。