delphi编写的插件,在IE上关闭页面出现 runtime error 216 at 数字 的解决方法

2016-08-22 10:23:31来源:http://jxyx521.blog.51cto.com/7643111/1304036作者:jyxy521人点击


转自:http://weichaozu.blog.163.com/blog/static/12319295920096285375654/

1.修改注册表:开始菜单-运行-输入regedit-点确定-进入注册表, 在:HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Explorer/ShellExecuteHooks 下,应该只有一个正常的键值"{AEB6717E-7E19-11d0-97EE-00C04FD91972}, 将其他的删除。 2.Delphi中利用SEH屏蔽退出时的Runtime ErrorDelphi写的程序,如果在单元的finalization里出现了一些异常操作会导致退出时抛出Runtime Error ,规范的处理办法当然是解决这些异常,但是有些特殊的情况下,比如用了很多的第三方控件,实在没办法解决问题时,只有把他屏蔽掉,这样给客户的时候就不至于看到满天的Runtime Error 了。前些日子同事正好碰到了这个问题,他写的一个ACTIVEX控件,在客户的IE里关闭的时候就会抛出很多错误导致IE死掉,但是在本机又模拟不出来,问题不能解决,又得应付客户。找我讨论解决方案,我提议可以用SEH解决,于是写了一段代码,效果不错,不敢独享,贴出来希望能够帮大家应付遇到的问题。我的做法其实很简单,就是在 END.之前手工调用Halt释放,并且将Halt抛出的错误屏蔽掉,这样做和正常的DELPHI释放过程没有任何区别,因为End.编译后其实就是一句话 Call Halt0,只是VCL自己没有屏蔽Halt0里抛出的错误,而是跳出个Runtime Error 来;首先就是位置的问题,如果是EXE的话,直接在END.之前就行了,如果是Dll的话就麻烦点,需要挂上DllProc,当wReason = DLL_PROCESS_DETACH时处理。然后就是如何屏蔽错误的问题了,第一个最容易想到的做法就是直接Tryhaltexceptend;但是这样是不行的,因为try…except end捕获的错误都会放到System单元的_HandleOnException中处理,函数检查错误类型是否是DelphiException,如果不是就不处理,这个时候就会被DELPHI的顶层异常机制捕获,并抛出Runtime error,halt里抛出来的错误恰恰就是非DelphiException,代码如下:procedure_HandleOnException;…CMP [EAX].TExceptionRecord.ExceptionCode,cDelphiException JE @@DelphiExceptionCLDCALL_FpuInitMOV EDX,ExceptClsProcTESTEDX,EDXJE @@exitCALLEDXTESTEAX,EAXJNE @@commonJMP @@exit…End;所以,需要借助SHE机制来处理这个问题(哈哈,不然就得改标题了),代码如下(关于如何挂SHE我就不介绍了,我在另外一篇文章《Delphi异常机制与SEH》详细介绍了):asm //挂上SEHxor edx, edx push ebp push OFFSET @@safecode push dword ptr fs:[edx] mov fs:[edx],esp //调用Halt0 call Halt0 jmp @@exit; @@safecode://如果出现异常继续调用Halt0退出call Halt0; @@exit:end;这个做法的好处就是,不会对DELPHI正常释放过程产生影响,所有的释放操作都是和VCL一致的,只是不会把错误显示出来。以下是完整代码:一、EXE的情况,把代码放在工程文件procedure Halt0;beginHalt;end;beginApplication.Initialize;Application.CreateForm(TForm1, Form1);Application.Run;asmxor edx, edxpush ebppush OFFSET @@safecodepush dword ptr fs:[edx]mov fs:[edx],espcall Halt0jmp @@exit;@@safecode: call Halt0;@@exit:end;end.二、DLL的情况,把代码放在工程文件里procedure Halt0;beginHalt;end;varOldProc: Pointer;procedure DLLEntryPoint(dwReason: DWord);beginif (dwReason = DLL_PROCESS_DETACH) ThenBeginasm xor edx, edx push ebp push OFFSET @@safecode push dword ptr fs:[edx] mov fs:[edx],esp call Halt0 jmp @@exit; @@safecode:call Halt0; @@exit:end;end;end;beginDllProc := @DLLEntryPoint;DllProcEX := @DLLEntryPoint;end.测试这段代码可以,自己在某个单元的finalization段里抛出一个异常,看看加上代码和不加代码的效果有何不同。

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台