如何屏蔽ClientSocket提示的错误(5分)

青

青云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #1

我利用 ClientSocket1和serverSocket1编写局域网的聊天工具.
但是发现一个问题,就是如果serverSocket1.active=false;
也就是没有在服务端监听.
然后启动ClientSocket1.active:=true;
那么会报下面的错误:

Asychronous socket error 10061 提示!

如何把这个提示写成我想要写的提示错误:

比如我想写: 服务端没有监听

 

杨

杨剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #2

在clientsocket的onerror事件中写

 

C

cnwinds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #3

try
ClientSocket1.active:=true;
except
throws exception.create('服务端没有监听');
end;

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #4

在clientsocket的onerror事件中写
ErrorCode := 0，这样就不会弹出错误对话框了。

 

C

Codemoocow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #5

Try

except

end;

 

Y

yueing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #6

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
var
StrErr:string;
begin
case ErrorEvent of
eeConnect : StrErr:='不能建立连接';
eeDisconnect : StrErr:='连接被关闭';
eeReceive : StrErr:='接收数据出错';
eeSend : StrErr:='发送数据出错';
eeAccept: StrErr :='连接产生链入错误';
else
StrErr:='连接出错';
end;
......
ErrorCode:=0;
end;

 

Z

zswleo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #7

都有哪些错误呀，有没有参考资料呀。

 

青

青云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-13

• #8

在clientsocket的onerror事件中写
ErrorCode := 0，这样就不会弹出错误对话框了。
========
ver good!