[发明专利]基于DELPHI语言下的捕获系统异常的方法

说明书

技术领域

本发明属于计算机语言应用领域，是基于DELLPHI语言下的捕获系统异常的方法，此方法可以把应用系统所出错的信息保存下来并截取出错图片并通过邮件发送到服务者中，此方法可广泛应用所有的开发人员，方便了系统服务人员的工作，提高了工作效率。

背景技术

在计算机里，由于应用系统在运行时发生许多不可意想的事情，由于使用人员无法解决在请求服务人员时，错误信息无法及时保存下来，而遭成信息不及时给服务人员或开发人员一定的难度，因此发明此方法，此方法能及时的把应用系统出错的信息保存下来并及时截图并保存在相对应的目录中，也可以保存在数据库中或者通过网络发给其他AppServer处理，以分析故障原因，及时的排除故障。此方法做成通用的动态连接库后能广泛嵌入应用系统中。

发明内容

此方法的发现主要运用DELPHI中存储文件类、图片存储机制、屏幕截取类来解决此方法。

首先先定义五个文件STRING变量和一个内容MemoryStream变量，五个STRING变量是错误文件名、日记文件记录，错误图片文件名，及日期变量名。

此方法在运行时先判明是否有错误日记文件，如果没有由创建此文件，如果存在则往文件中写入错误信息。此文件准确无误记录错误的信息和图片保存的名称及位置，根据此文件记录的信息可找到其截取的图片。

图片的截图是由DELPHI自带的内存变量进行的，此主要是通过JPG类来操作其主要定义如下：

var

  scrWidth，scrHeight：integer；

  DC：hDC；

  FBi tmap：TBi tmap；

  FJPEGImage：TJPEGImage；

begin

  DC：＝Ge tDC(0)；

  FBi tmap：＝TBi tmap.Create；

  FJPEGImage：＝TJPEGImage.Crea te；

try

  scrWidth：＝Screen.Width；

  scrHeight：＝Screen.Height；

  FBitmap.Width：＝scrWidth；

  FBitmap.Height：＝scrHeight；

  BitBlt(FBitmap.Canvas.Handle，0，0，scrWidth，scrHeight，DC，0，0，SRCCOPY)；

FJPEGImage.Assign(FBitmap)；

FJPEGImage.CompressionQuality：＝75；

FJPEGImage.Compress；

AStream.Clear；

   FJPEGImage.SaveToStream(AStream)；

   AStream.Position：＝0；   finally

   FBitmap.Free；

   FJPEGImage.Free；

   ReleaseDC(0，DC)；

end；

此方法很简单的截获图片并保存到相对应的目录中。