关于Socket连接异常处理？？？ 找金碟财务软件官网
进销存软件版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);
没法屏蔽掉系统自己的错误信息！
-->
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);
没法屏蔽掉系统自己的错误信息！
2楼: 顶 如金碟财务软件官网
3楼: 自己搞定！！！
定义一个异常，
在socketErr那里抛出一个异常！
然后捕捉就可以了
4楼: 楼主方便的话，可以将代码贴出来，一起学习交流。
5楼: 让我也学习学习！！！
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);
进销存软件版7楼: 多人接受答案了。
