关于Socket连接异常处理？？？(5分)

R

ranyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-21

• #1

现在有一个问题，当socket连接出现问题时：
procedure TForm1.FormCreate(Sender: TObject);
begin
try
ClientSocket1.Close;
ClientSocket1.Host :='192.168.1.10';
ClientSocket1.Port := 9110;
ClientSocket1.Open;
except
on e: Exception do
showmessage(E.message);
end;
end;
我想把E。message的内容换成自己的汉语提示，怎么做！？
如果在前面加上还是
Application.MessageBox('有问题','系统提示',MB_Ok+16);
没法屏蔽掉系统自己的错误信息！

 

R

ranyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-21

• #2

顶

 

R

ranyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-02-21

• #3

自己搞定！！！
定义一个异常，
在socketErr那里抛出一个异常！
然后捕捉就可以了

 

S

sxdthonda

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-06

• #4

楼主方便的话，可以将代码贴出来，一起学习交流。

 

F

funny_0415

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-06

• #5

让我也学习学习！！！

 

R

ranyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-07

• #6

定义一个异常:

type MyEx = class(Exception); //自定义一个异常，继承 Exception 类
在socketErr那里抛出一个异常！
procedure TfrmMainForm.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
raise Myex.Create('报警服务器未连接，请检查！');
end;
然后捕捉就可以了:
try
ClientSocket1.Active:=True;
except //捕捉异常
on E: myex do
Showmessage(E.Message);

 

R

ranyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-11

• #7

多人接受答案了。