CN105573897A - 一种基于Delphi捕获系统异常的方法 - Google Patents

Abstract

本发明属于计算机应用系统数据库技术领域，本发明属于计算机应用领域,是基于DELLPHI语言下的捕获系统异常的方法,此方法能及时的把应用系统出错的信息保存下来并及时截图并保存在相对应的目录中,也可以保存在数据库中或者通过网络发给其他AppServer处理，以分析故障原因，及时的排除故障。此方法做成通用的动态连接库后能广泛嵌入应用系统中。

Description

一种基于Delphi捕获系统异常的方法

技术领域

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

背景技术

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

发明内容

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

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

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

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

var

scrWidth,scrHeight:integer;

DC:hDC;

FBitmap:TBitmap;

FJPEGImage:TJPEGImage;

begin

DC:=GetDC(0);

FBitmap:=TBitmap.Create;

FJPEGImage:=TJPEGImage.Create;

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;

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

Claims (4)

1.一种基于捕获系统异常的方法，特征在于采用下列步骤：

由于此方法需要运用到其文件存储、图片截获及保存D类。

2.根据权利1的要求,则设置方法中的变量ErrorFile、FileName、title,MyDateString及AStream。

3.根据权利2的要求,赋值于变量中并执行保存特定的文件。

4.根据权利3的要求，特定的文件自动发给指定的EMAIL邮箱。