Socket求助！！！(50分)

J

jineric

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-02

• #1

小帝我刚学习用socket,看到delphi4.0的demos/chat的一个程序，
过程片段如下：
procedure ServerSocketError(Sender: TObject; Number: Smallint;
var Description: string; Scode: Integer; const Source,
HelpFile: string; HelpContext: Integer; var CancelDisplay: Wordbool);
小帝有二事不明：
上面的过程在serversocket的Events中根本没有OnError一项。那在运行时能触发上述事件么？在clientsocket中倒有OnError一项。为什么serversocket中没有这一项呢？
望高手告之，谢谢！

 

X

xuwentao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-02

• #2

ServerSocket 中有OnClientError 事件 ServerSocketError 响应的是这个

事件

 

X

xuwentao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-02

• #3

SORRY！小弟没看清楚，得深入研究了。

 

X

xuwentao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-02

• #4

SORRY！小弟没看清楚，得深入研究了。

 

J

jineric

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-02

• #5

to xuwentao;
ServerSocket 中OnClientError 事件 ServerSocketError 响应的事件是：

procedure TChatForm.ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);

两个过程的参数不太一样。纳闷！！！

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-02

• #6

怎么那么混乱？是客户错误，不是服务器！

 

X

xuwentao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-05

• #7

To jineric

你这个问题问的好。我仔细的研究了CHAT DEMO，和SCKCOMP.PAS(TserverSocket)
的源程序，竟没发现这是怎么一回事，自己运行了一会儿，也没把ServerSocketError
激活，你试运行时什么情况下能激活这个函数？

 

J

jineric

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-06

• #8

我到现在还没激活它，我看了一本书，上面有demo/internet/chat的例子，
但没有我所说的过程。会不会是例子有误。
那本书是人邮的《cobra和internet编程技术》。

 

X

xuwentao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-06

• #9

To jineric

我认为极有可能是例子有误，我详细的研究了Tclientsocket,和Tserversocket
的源码，没有发现任何与之有关系的东西。

若你想使用SOCKET编程，建议你用用DELPHI4里的POWERSOCKET，我觉得这个
组件对WINSOCKET封装的更好，更便于使用，且效率高。

 

J

jineric

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-13

• #10

to xuwentao
Thanks, I will add my score to you.