怎么捕捉SocketConnectio的连接Error的异常啊(急) Socket的OnError事件中封装了TErrorEvent事件,ErrorCode 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 问题在于socketConnection是没有onerror事件的啊 这样不行吗??try your codeexcept on E:Exception do showmessage(e.message);end; 你可以看看Socket的OnError事件,ErrorCode := 0;这样可以屏蔽错误,然后在看看错误事件中定义的几个错误事例,分别可以捕获的。 Application有个OnException事件,可以在这里捕捉本应用程序的所有异常,只要你设置了这个事件,就不会弹出异常对话框。 procedure TfmMain.ServerSocketClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);var errorMsg: string;begin case ErrorEvent of eeGeneral: errorMsg:='eeGeneral'; eeSend: errorMsg:='eeSend'; eeReceive: errorMsg:='eeReceive'; eeConnect: errorMsg:='eeConnect'; eeDisconnect: errorMsg:='eeDisconnect'; eeAccept: errorMsg:='eeAccept'; end; ErrorCode:=0; memoSvr.Lines.Add('Socket Error:'+errorMsg);end; 发送到串口的数据,串口接收是相反的? DLL开发高手请入,具头痛的问题 求delphi 7。0 下载地址 关于IP 对给定目录下的所有子目录重命名为dir[i],i就是1,2,3之类的。 JetSQL 中的类型转换函数是什么? 急,急,一条SQL语句,急急 多线程程序调用Free就会进入死循环? 怎样在IMAGE中居中显示图像 有谁懂点用IS制作安装盘的?我怎么做也不对,有没有简单的办法?比如 在注册表中。。。 关于写文本文件函数 writeln() 中的换行符问题 几个菜鸟问题
your code
except
on E:Exception do
showmessage(e.message);
end;
只要你设置了这个事件,就不会弹出异常对话框。
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
var
errorMsg: string;
begin
case ErrorEvent of
eeGeneral: errorMsg:='eeGeneral';
eeSend: errorMsg:='eeSend';
eeReceive: errorMsg:='eeReceive';
eeConnect: errorMsg:='eeConnect';
eeDisconnect: errorMsg:='eeDisconnect';
eeAccept: errorMsg:='eeAccept';
end;
ErrorCode:=0;
memoSvr.Lines.Add('Socket Error:'+errorMsg);
end;