如何屏蔽TCLIENTSOCKET弹出的错误？(100分)

S

seilfer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-29

• #1

procedure TForm1.page1buttonClick(Sender: TObject);
begin
try
ClientSocket1.Open;
page1button.Enabled:=false;
except
application.MessageBox('无法与服务器建立通信连接，请检查网络情况！','示',0);
end;
end;
如果连接失败的话会弹出一个asynchronous socket error 10061的错误提示，但是EXCEPT里的MESSAGEBOX不执行，怎么才能屏蔽掉这个错误提示，在ONERROR里写了也不管用

 

S

satanmonkey

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-29

• #2

try
...
except
on e: Exception do
ShowMessage(e.Message);
end

 

T

tianrei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-29

• #3

kan

 

M

manmanchong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-02

• #4

procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket
ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
end;

 

I

itren

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-02

• #5

呵呵.

看看这样行吗？

ClientSocket1.onSocketError= Nil;