运行期和设计期,通过崩溃地址找错误行数之Delphi版
分类:微服架构

   Windows用户可能经常会看到类似于错误提示:“Error:Access violation at address 836556F8. Read of address 836556F8”。作为一个Delphi程序开发者,遇到这种错误的机会比其他用户更多(^_^)。

运行程序提示access violation at address的解决方法

打开EXE程序提示时,提示:access violation at address xxxxxxxxx 后边一大堆,这种情况下应该怎么解决呢?百度了一下,原来很简单
现在把解决方法公布出来:
  右击“我的电脑”。单击“属性”。
  在“系统属性”中单击“高级”。
  在“性能”中单击“设置”。
  在“性能选项”中单击“数据执行保护”。
  单击“添加”。选择要运行的程序。
  OK。就这么简单。

Access Violation(非法访问)错误的解决方法

Access Violation(非法访问),General Protection Fault(一般保护性错误)或者Invalid Page Fault(无效页面错误),虽然说法不一样,但本质上总是由同一种错误引起的。Access Violation常常在计算机用户运行的程序试图存取未被指定使用的存储区时遇到。
Access violation at address <十六进制值>
in module <应用程序名>
Read of address <十六进制值>
  Windows用户可能经常会看到类似于错误提示:“Error:Access violation at address 836556F8(004096da). Read of address 836556F8(00401000)”。作为一个Delphi程序开发者,遇到这种错误的机会比其他用户更多(^_^)。
  一旦Windows要在它被分配的存储区之外写数据信息,它就会覆盖其他程序甚至操作系统的命令或数据。一旦发生了这种情况,操作系统将会瘫痪或者以某种形式关闭,你必须重新启动计算机。例如,在Windows NT/2000下一个程序遇到这种错误时,Dr. Watson出现并且停止了该程序,捕获了一些快速的细节状态,再把它们用文本形式记录下来。Access Violation是某些最令人气恼的Windows程序遇到的错误之一。本文的目的就是让你找到Delphi中Access Violation的解决之道。首先声明一点,Access Violation和Microsoft Access没有任何关系。

  用Delphi开发程序时,我们可以把遇到的Access Violation分成两大类:运行期和设计期。

一、设计期的Access Violation

1.硬件原因
  在启动或关闭Delphi IDE以及编译一个Delphi工程时容易出现设计期的Access Violation。在你的计算机运行中出现Access Violation信息可能由各种各样的原因引起,包括系统BIOS、操作系统或者是硬件驱动线,有些声卡、显卡、网卡实际上也会导致这种错误。为什么这么说?计算机里的每一块卡都有它的设备驱动程序。对于不同的制造商、不同版本的Windows或者不同版本的Delphi都可能会遇到不同的问题。如下的几个步骤可能有助于你解决遇到的这些问题:

  1. 按照必要的步骤来证实你安装的驱动程序之间没有冲突。

  2. 有时降低显示分辨率可能会使某些古怪的显卡驱动程序稳定一些。

  3. 如果使用双处理器的主板,则保证对每个处理器的修改步骤一样。

  4. 对于计算机上的所有硬件注意使用最新的驱动程序。

2.软件原因
  尽管Intel的计算机中Windows是最流行的操作系统,由于Windows系统天生的脆弱性和BUG,应用程序的误操作可能导致操作系统的迅速瘫痪(有时操作系统本身也会莫名其妙的瘫痪)。选择一个更稳定的程序开发环境是解决之道,如下几个步骤可以帮助你防止某些Access Violation的发生:

  (1)尽管Windows 9X相当流行,Windows NT/2000还是从多方面被证实是一个稳定得多的环境,几乎对于所有的Windows代码平台而言都是这样。

(2) 确保对于Windows NT/2000已经安装了最新的service pack。每次安装完新版的service pack,你会发现机器变得稳定了。

(3) 为你使用的各种版本的Delphi装上当前的更新或补丁(BDE、ADO……),这是提前预防错误的好办法。尽量使用最新的Delphi补丁——Access Violation错误数量尤其是设计期的错误数会大大减少。

(4)如果你在IDE中经常随机遇到Access Violation错误,很有可能是你安装了一个不好的控件、包或者一个向导,它不是你使用的版本的Delphi所编写或编译的。试着一个一个卸载定制的控件(或者包)直到问题被解决,然后联系控件厂商关注这个问题的结果。

(5) 检查一下计算机里是否有没用的东西和程序冲突。奇怪的软件程序和测试版的产品常常会导致Access Violation错误。

(6) 如果系统设置有错误,那么Access Violation错误可能也会经常出现。如果你不停地遇到一个错误提示信息一样的Access Violation,记录下这些细节,然后通知可能导致这个错误的软件制造厂商。
这些就是我对设计期Access Violation错误的全部建议。

二、运行期的Access Violation
Delphi常见的运行期Access Violation错误有哪些?如何防止?

任何软件开发都会遇到这样的情况:你写好程序并测试,然后到处发送,结果用户告诉你它失败了。

你可能考虑用编译指令{$D}编译你的程序——Delphi可以建立一个有助于定位Access Violation错误的源代码的镜像文件。工程选项对话框(Project|Options|Linker & Compiler)让你指定你所需要的一切。对于单元文件,debug信息和单元的对象代码一起记录在unit文件里了。编译使用这个单元的程序时,debug信息会增加单元文件的大小而且会增加额外的内存开销,但是它不会影响最终可执行文件的大小和运行速度。包含debug信息和镜像文件(Project|Options|Linker)选项的产品只有在{$D+} 编译指令下才会完成行信息。

Access violation通常只在程序的某一个方面表现出来。当问题第一次出现时,考虑一下用户进行了什么操作是很重要的,然后从这里寻找突破口。从用户的角度来看,你的程序中止了他们的工作,由他们来告诉你出现的问题似乎让你延期解决这个问题了。然而,与用户交流是你发现问题和改善程序的惟一有效方法。

现在你将可以知道在只给你冲突地址的情况下,如何轻松发现准确路径、源代码文件、发生Access violation错误的行:
“Search - Find Error…”。

当一个运行期Access violation出现时,你的用户得到的错误信息类似于如下情况:
Access violation at address <十六进制值>
in module <应用程序名>
Read of address <十六进制值>

如果你的程序在Delphi IDE里包含debug信息编译,你可以定位到导致这个错误源代码这一行。
在Delphi程序中,一个最普遍导致Access Violation错误的原因是使用了一个没有被创建的对象。如果第二个地址<十六进制值>是FFFFFFF或0000000,十有八九就是你访问? 了一个没有被建立的对象。例如,你调用了一个表单的事件,但这个表单不是自动创建的,也没有代码实例化。

?procedure TfrMain.OnCreate(Sender: TObject);
var BadForm: TBadForm;
begin
//这里将会产生Access violation
BadForm.Refresh;
end;

假设BadForm在工程选项“Available Forms”窗口列表里——这个窗口是需要手工创建和释放的。在上面的代码里调用BadForm窗口的Refresh方法就会导致Access violation。

如果你在Debugger选项窗口使“Stop on Delphi Exceptions”生效,那么就会弹出下面的信息:
The message states that the EAccessViolation has occurred. The EAccessViolation is the exception class for invalid memory access errors.

这是你在设计程序时将会看到的信息,下一个信息框将会出现,然后程序失败了:
Access violation at address 0043F193
in module ’Project1.exe’
Read of address 000000.

第一个十六进制数0043F193是发生Access violation的编译代码(Project1.exe)的运行期错误的地址。在IDE里选择菜单项“Search|Find Error…”,在对话框里输入错误发生的地址(0043F193)后点击“OK”按钮。Delphi将会重新编译你的工程文件,然后显示发生运行期错误的那一行代码,这里就是BadForm.Refresh这一行了。

下面列出了Delphi环境下导致Access violation错误的大部分常见原因。这个列表不是也不可能覆盖所有可能出现的Access violation的情况。请在论坛上发送你的Access violation信息,大家可以试着一起解决这个问题——真正的实际事例一般情况下比列出来的错误隐晦得多。

  1. 调用一个不存在的对象
    如上所述,大部分Access violation的合理原因是使用了没有被创建或者已经被释放的对象。为了防止这种类型的Access violation的发生,请确保你访问的任何对象都首先被创建了。例如,当一个Table定位在一个没有被创建的data module(从auto-crete窗口里移走了)里,你可能在窗体的OnCreate事件里打开这个表。

在下面的代码里,在调用一个已经被删除了的对象(b:TBitmap)事件后,一个Access violation出现了:
var b:TBitmap;
begin
b:=TBitmap.Create;
try
//对b对象进行一些操作
finally
b.free;
end;
...
//由于b已经被释放,一个Access violation错误将会出现
b.Canvas.TextOut(0,0,’这是一个 Access Violation’);
end;

  1. 不存在的API参数
    如果你试图给Win API函数传递一个不存在的参数将会出现一个Access violation错误。解决此类Access violation错误的最好方法是查阅Win API帮助,看看这个API函数调用的参数信息以及参数类型。例如,总是保证不给一个缓冲参数传递一个无效指针。

  2. 让Delphi释放
    当一个对象拥有另一个对象时,让它给你做删除工作。因为默认情况下,所有的窗体(自动创建的)都属于Application对象。当一个应用程序结束时,它释放了Application对象,也就释放了所有窗体。例如,如果你在程序开始时自动创建了两个窗体(Form1/Unit1和Form2/Unit2),下面的代码就会导致Access violation错误的出现:
    unit Unit1;
    ...
    uses unit2;
    ...
    procedure TForm1.Call_Form2
    begin
    Form2.ShowModal;
    Form2.Free;
    //Access violation错误将会出现
    Form2.ShowModal;
    end;

  3. 杀死异常
    永远不要破坏临时异常对象(E),处理一个异常会自动释放异常对象。如果你自己手动释放了异常对象,程序会试图再次释放它,那么就会出现Access violation错误:
    Zero:=0;
    try
    dummy:= 10 / Zero;
    except
    on E: EZeroDivide do
    MessageDlg(’不能用0做除数!’,mtError, [mbOK], 0);
    E.free. ////Access violation错误将会出现
    end;

  4. 检索一个空字符串
    一个空字符串是没有任何数据的。就是说,检索一个空字符串相当于访问一个不存在的对象,这将导致Access violation错误:
    var s: string;
    begin
    s:=’’;
    s[1]:=’a’;
    //Access violation错误将会出现
    end;

  5. 直接引用指针
    你必须间接引用指针,否则你会改变指针地址并可能会破坏其他存储单元 :
    procedure TForm1.Button1Click(Sender: TObject);
    var
    p1 : pointer;
    p2 : pointer;
    begin
    GetMem(p1, 128);
    GetMem(p2, 128);
    //下一行导致Access violation错误
    Move(p1, p2, 128);
    //下一行方法正确
    Move(p1^, p2^, 128);
    FreeMem(p1, 128);
    FreeMem(p2, 128);
    end;
    这些就是我对运行期Access Violation错误的全部建议,我希望你们也能对你们程序出现的Access Violation错误提出一些看法

violation at address的解决方法 打开EXE程序提示时,提示:access violation at address xxxxxxxxx 后边一大堆,这种情况下应该怎么解...

用Delphi开发程序时,我们可以把遇到的Access Violation分成两大类:运行期和设计期。  

通过崩溃地址找错误行数之Delphi版
2009-5-11 17:42:35 来源: 转载 作者:网络 访问:360 次 被顶:2 次 字号:【大 中 小】
核心提示:什么是 MAP 文件?简单地讲, MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方、任何时候使用,不需要有额外的程序进行支持。而且,这是唯一能找出程序崩溃的地方的救星。 ...DELPHI下生成MAP文件的方法:偶只知道下面两种,如果谁知道其他的方法 敬请告知 多谢 
生成详细的MAP信息的方法 

  究竟什么是“Access Violation”?如何在设计期避免它的出现?

一、设计期的Access Violation  

  1. project -> options -> Linker -> Map file 选择detailed. 
  2. D:FredCodeDELPHIMyPasErrLineByAddr2>dcc32 -GD project1.dpr

  Access Violation(非法访问),General Protection Fault(一般保护性错误)或者Invalid Page Fault(无效页面错误),虽然说法不一样,但本质上总是由同一种错误引起的。Access Violation常常在计算机用户运行的程序试图存取未被指定使用的存储区时遇到。 
Access violation at address <十六进制值> 
in module <应用程序名> 
Read of address <十六进制值>

1.硬件原因 
   在启动或关闭Delphi IDE以及编译一个Delphi工程时容易出现设计期的Access Violation。在你的计算机运行中出现 Access Violation信息可能由各种各样的原因引起,包括系统BIOS、操作系统或者是硬件驱动线,有些声卡、显卡、网卡实际上也会导致这种 错误。为什么这么说?计算机里的每一块卡都有它的设备驱动程序。对于不同的制造商、不同版本的Windows或者不同版本的Delphi都可能会遇到不同 的问题。如下的几个步骤可能有助于你解决遇到的这些问题:  

我们的代码为: 
unit Unit1;

  一旦Windows要在它被分配的存储区之外写数据信息,它就会覆盖其他程序甚至操作系统的命令或数据。一旦发生了这种情况,操作系统将会瘫痪或者以某种形式关闭,你必须重新启动计算机。例如,在Windows NT/2000下一个程序遇到这种错误时,Dr. Watson出现并且停止了该程序,捕获了一些快速的细节状态,再把它们用文本形式记录下来。Access Violation是某些最令人气恼的Windows程序遇到的错误之一。本文的目的就是让你找到Delphi中Access Violation的解决之道。首先声明一点,Access Violation和Microsoft Access没有任何关系。

  1. 按照必要的步骤来证实你安装的驱动程序之间没有冲突。  

//{$D+,L+}

  用Delphi开发程序时,我们可以把遇到的Access Violation分成两大类:运行期和设计期。

  2. 有时降低显示分辨率可能会使某些古怪的显卡驱动程序稳定一些。  

interface

一、设计期的Access Violation

  3. 如果使用双处理器的主板,则保证对每个处理器的修改步骤一样。  

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls;

1.硬件原因 
  在启动或关闭Delphi IDE以及编译一个Delphi工程时容易出现设计期的Access Violation。在你的计算机运行中出现Access Violation信息可能由各种各样的原因引起,包括系统BIOS、操作系统或者是硬件驱动线,有些声卡、显卡、网卡实际上也会导致这种错误。为什么这么说?计算机里的每一块卡都有它的设备驱动程序。对于不同的制造商、不同版本的Windows或者不同版本的Delphi都可能会遇到不同的问题。如下的几个步骤可能有助于你解决遇到的这些问题:

  4. 对于计算机上的所有硬件注意使用最新的驱动程序。  

type 
  TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end;

  1. 按照必要的步骤来证实你安装的驱动程序之间没有冲突。

2.软件原因 
   尽管Intel的计算机中Windows是最流行的操作系统,由于Windows系统天生的脆弱性和BUG,应用程序的误操作可能导致操作系统的迅速瘫 痪(有时操作系统本身也会莫名其妙的瘫痪)。选择一个更稳定的程序开发环境是解决之道,如下几个步骤可以帮助你防止某些Access Violation 的发生:  

var 
  Form1: TForm1;

  2. 有时降低显示分辨率可能会使某些古怪的显卡驱动程序稳定一些。

  (1)尽管Windows 9X相当流行,Windows NT/2000还是从多方面被证实是一个稳定得多的环境,几乎对于所有的Windows代码平台而言都是这样。  

implementation

  3. 如果使用双处理器的主板,则保证对每个处理器的修改步骤一样。

  (2) 确保对于Windows NT/2000已经安装了最新的service pack。每次安装完新版的service pack,你会发现机器变得稳定了。  

{$R *.dfm}

  4. 对于计算机上的所有硬件注意使用最新的驱动程序。

  (3) 为你使用的各种版本的Delphi装上当前的更新或补丁(BDE、ADO……),这 是提前预防错误的好办法。尽量使用最新的Delphi补丁——Access Violation错误数量尤其是设计期的错误数会大大减少。  

procedure TForm1.Button1Click(Sender: TObject); 
var 
  I, J: Integer; 
  p: PChar; 
begin 
  I := 10; 
  J := 0; 
  //I := I div J;  // 32 
  //ShowMessage(IntToStr(I)); 
  p := nil; 
  p^ := 'A';  // 38 
end;

2.软件原因 
  尽管Intel的计算机中Windows是最流行的操作系统,由于Windows系统天生的脆弱性和BUG,应用程序的误操作可能导致操作系统的迅速瘫痪(有时操作系统本身也会莫名其妙的瘫痪)。选择一个更稳定的程序开发环境是解决之道,如下几个步骤可以帮助你防止某些Access Violation的发生:

   (4)如果你在IDE中经常随机遇到Access Violation错误,很有可能是你安装了一个不好的控件、包或者一个向导,它不是你使用的版本的 Delphi所编写或编译的。试着一个一个卸载定制的控件(或者包)直到问题被解决,然后联系控件厂商关注这个问题的结果。  

end. 
// 想必大家看到了 会有返回0地址错误....我们这里就是要让它崩溃,让我让你崩溃 ^_^ 
然后执行 点击 然后出错 我的机器上 崩溃地址为0044d946 

  (1)尽管Windows 9X相当流行,Windows NT/2000还是从多方面被证实是一个稳定得多的环境,几乎对于所有的Windows代码平台而言都是这样。

  (5) 检查一下计算机里是否有没用的东西和程序冲突。奇怪的软件程序和测试版的产品常常会导致Access Violation错误。  

如果要查找代码行号,需要使用下面的公式做一些十六进制的减法运算: 
崩溃行偏移 = 崩溃地址(Crash Address) - 基地址(ImageBase Address) - 0x1000  
减去后得到 0004c946 然后查找 0004c946  
0044d946 - 00400000 = 0004d946 - 00001000 = 0004c946 <= 后面列出的  
0004C946 就是它了 我们用ultraedit32之类的工具打开 .map文件 搜索 0004C94,找到了,然后就找 
<= 0004c946的那个地址 然后看到了 
Line numbers for Unit1(Unit1.pas) segment .text

(2) 确保对于Windows NT/2000已经安装了最新的service pack。每次安装完新版的service pack,你会发现机器变得稳定了。

  (6) 如果系统设置有错误,那么Access Violation错误可能也会经常出现。如果你不停地遇到一个错误提示信息一样的Access Violation,记录下这些细节,然后通知可能导致这个错误的软件制造厂商。  

    37 0001:0004C944    38 0001:0004C946    39 0001:0004C949    41 0001:0004C97C 
    41 0001:0004C983

(3) 为你使用的各种版本的Delphi装上当前的更新或补丁(BDE、ADO……),这 是提前预防错误的好办法。尽量使用最新的Delphi补丁——Access Violation错误数量尤其是设计期的错误数会大大减少。

  这些就是我对设计期Access Violation错误的全部建议。  

38 0001:0004C946    就是它了。。。unit1.pas的第38行!!去代码里看一下 果然就是38行

(4)如果你在IDE中经常随机遇到Access Violation错误,很有可能是你安装了一个不好的控件、包或者一个向导,它不是你使用的版本的Delphi所编写或编译的。试着一个一个卸载定制的控件(或者包)直到问题被解决,然后联系控件厂商关注这个问题的结果。

二、运行期的Access Violation 
  Delphi常见的运行期Access Violation错误有哪些?如何防止? 

(5) 检查一下计算机里是否有没用的东西和程序冲突。奇怪的软件程序和测试版的产品常常会导致Access Violation错误。

  任何软件开发都会遇到这样的情况:你写好程序并测试,然后到处发送,结果用户告诉你它失败了。 

 

(6) 如果系统设置有错误,那么Access Violation错误可能也会经常出现。如果你不停地遇到一个错误提示信息一样的Access Violation,记录下这些细节,然后通知可能导致这个错误的软件制造厂商。

   你可能考虑用编译指令{$D}编译你的程序——Delphi可以建立一个有助于定位Access Violation错误的源代码的镜像文件。工程选项 对话框(Project|Options|Linker & Compiler)让你指定你所需要的一切。对于单元文件,debug信息和单元的 对象代码一起记录在unit文件里了。编译使用这个单元的程序时,debug信息会增加单元文件的大小而且会增加额外的内存开销,但是它不会影响最终可执 行文件的大小和运行速度。包含debug信息和镜像文件(Project|Options|Linker)选项的产品只有在{$D+} 编译指令下才会完 成行信息。 

 

这些就是我对设计期Access Violation错误的全部建议。

  Access violation通常只在程序的某一个方面表现出来。当问题第一次出现时,考虑一下用户进行了 什么操作是很重要的,然后从这里寻找突破口。从用户的角度来看,你的程序中止了他们的工作,由他们来告诉你出现的问题似乎让你延期解决这个问题了。然而, 与用户交流是你发现问题和改善程序的惟一有效方法。 

在CSDN晃悠的时候无意发现MAP文件使用,记录下来供大家学习。
      
   仅通过崩溃地址找出源代码的出错行
   相信很多人都曾经遇到自己的程序在执行代码时会跳出“Access xxxxx”地址错误。在通常情况下,我们根据此错误信息追踪不到错误代码行,只能一个个去看代码。特别是自己的软件已经发布,刚开始运行OK,但是时不时会跳出错误---真的是一件很崩溃的事情。可是你知道吗?我们已经拥有去追踪错误的方法,只是你一直不知道而已。
   
   MAP文件

二、运行期的Access Violation 
Delphi常见的运行期Access Violation错误有哪些?如何防止?

  现在你将可以知道在只给你冲突地址的情况下,如何轻松发现准确路径、源代码文件、发生Access violation错误的行: 
“Search - Find Error…”。 

   什么是 MAP文件?简单地讲,MAP文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法,它可以在任何地方、任何时候使用,不需要有额外的程序进行支持。
   DELPHI下生成MAP文件的方法:偶只知道下面两种,如果谁知道其他的方法   敬请告知   多谢   
   生成详细的MAP信息的方法   
   1.   project   ->   options   ->   Linker   ->   Map   file   选择detailed.   
   2.   D:/Fred/Code/DELPHI/MyPas/ErrLineByAddr2>dcc32   -GD   project1.dpr (哈,这个我没看懂,先用第一种吧)

任何软件开发都会遇到这样的情况:你写好程序并测试,然后到处发送,结果用户告诉你它失败了。

  当一个运行期Access violation出现时,你的用户得到的错误信息类似于如下情况: 
Access violation at address <十六进制值> 
in module <应用程序名> 
Read of address <十六进制值> 

   下面根据例子看看MAP文件的功能。
   我们的程序:
   unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        btn1: TButton;
        btn2: TButton;
        edt1: TEdit;
        procedure btn1Click(Sender: TObject);
        procedure btn2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    {本例子参照CSND相关文章给出的例子}
    procedure TForm1.btn1Click(Sender: TObject);
    var
      p: PChar;
    begin
      p:= nil;
      p^:= 'a';//此句将引发地址错误
    end;
    
    //因为MAP文件在查找错误行时涉及到16进制计算问题,所以为了测试我特地加了一个Edit框用来计算最后得出的值
    procedure TForm1.btn2Click(Sender: TObject);
    begin
      edt1.text:= IntToHex(StrToInt('$'+ edt1.text) - StrToInt('$00400000') - StrToInt('$00001000'), 8) ;
    end;
    
    end.
    运行你的程序,点击Btn1时报地址类错误,在我的机器上描述如下:
    Access violation at address 0044F8D1 in module 'Project1.exe'. Write of address 00000000.
    
    错误地址为 0044F8D1。
    
    下面我们将根据这个地址找到Delphi 源码文件中对应代码行。
    如果你设置的没有问题,程序运行后在同目录下会产生一个‘Project.MAP’文件,打开你的MAP文件。
    文件格式分为几个段落,你可以看到 :
    
     0002:00002970       _UninitializeFlatSB
     0002:00002B64       _WINNLSEnableIME
    
    
      Address         Publics by VALUE //在这个段落中,你可以根据地址找到出错函数名
    
     0002:FFBB0010       TlsLast
     0001:000001F4       GetStdHandle
     0001:000001FC       RaiseException
     0001:00000204       RtlUnwind
     0001:0000020C       UnhandledExceptionFilter

你可能考虑用编译指令{$D}编译你的程序——Delphi可以建立一个有助于定位Access Violation错误的源代码的镜像文件。工程选项对话框(Project|Options|Linker & Compiler)让你指定你所需要的一切。对于单元文件,debug信息和单元的对象代码一起记录在unit文件里了。编译使用这个单元的程序时,debug信息会增加单元文件的大小而且会增加额外的内存开销,但是它不会影响最终可执行文件的大小和运行速度。包含debug信息和镜像文件(Project|Options|Linker)选项的产品只有在{$D+} 编译指令下才会完成行信息。

  如果你的程序在Delphi IDE里包含debug信息编译,你可以定位到导致这个错误源代码这一行。 
在 Delphi程序中,一个最普遍导致Access Violation错误的原因是使用了一个没有被创建的对象。如果第二个地址<十六进制 值>是FFFFFFF或0000000,十有八九就是你访问? 了一个没有被建立的对象。例如,你调用了一个表单的事件,但这个表单不是自动创建 的,也没有代码实例化。 

     ----省略----
     
     Line numbers for Unit1(Unit1.pas) segment .text
     
         32 0001:0004E8C8    33 0001:0004E8C9    34 0001:0004E8CE    35 0001:0004E8D4
         38 0001:0004E8D8    39 0001:0004E8F4    40 0001:0004E978    42 0001:0004E9E4
         42 0001:0004E9EB

Access violation通常只在程序的某一个方面表现出来。当问题第一次出现时,考虑一下用户进行了什么操作是很重要的,然后从这里寻找突破口。从用户的角度来看,你的程序中止了他们的工作,由他们来告诉你出现的问题似乎让你延期解决这个问题了。然而,与用户交流是你发现问题和改善程序的惟一有效方法。

?procedure TfrMain.OnCreate(Sender: TObject); 
var BadForm: TBadForm; 
begin 
//这里将会产生Access violation 
BadForm.Refresh; 
end; 

      .......
     注释: Line numbers行下格式
     
       32 0001:0004E8C8 
       
     第一个数字代表在源代码中的代码行号,第二个数是该代码行在所属的代码段中的偏移量。
     如果要查找代码行号,需要使用下面的公式做一些十六进制的减法运算:

现在你将可以知道在只给你冲突地址的情况下,如何轻松发现准确路径、源代码文件、发生Access violation错误的行: 
“Search - Find Error…”。

  假设BadForm在工程选项“Available Forms”窗口列表里——这个窗口是需要手工创建和释放的。在上面的代码里调用BadForm窗口的Refresh方法就会导致Access violation。 

     崩溃行偏移 = 崩溃地址(Crash Address) - 基地址(ImageBase Address) - 0x1000 
     
     为什么要这样做呢?我们得到的崩溃地址都是由 偏移地址+ 基地址 得来的,所以在计算行号的时候要把基地址减去,一般情况下,基地址的值是 0x00400000 。另外,由于一般的 PE 文件的代码段都是从 0x1000 偏移开始的,所以也必须减去 0x1000 。
     (基地址可以通过 Project->Options, 在页面中有一个Image Base值,就是它了)
     
     如果你不知道十六进制如何计算,那么就按照我上面Btn2下的代码,将得到的 0044F8D1 崩溃行地址输入=> 
     得到 0004E8D1
     再看:
         Line numbers for Unit1(Unit1.pas) segment .text
     
         32 0001:0004E8C8    33 0001:0004E8C9    34 0001:0004E8CE    35 0001:0004E8D4
         38 0001:0004E8D8    39 0001:0004E8F4    40 0001:0004E978    42 0001:0004E9E4
         42 0001:0004E9EB
     找出 小于等于 0004E8D1 的数(最接近的数,且不能大于) -->34 0001:0004E8CE.
     源码中的错误行即为 34!

当一个运行期Access violation出现时,你的用户得到的错误信息类似于如下情况: 
Access violation at address <十六进制值> 
in module <应用程序名> 
Read of address <十六进制值>

  如果你在Debugger选项窗口使“Stop on Delphi Exceptions”生效,那么就会弹出下面的信息: 
The message states that the EAccessViolation has occurred. The EAccessViolation is the exception class for invalid memory access errors.  

 

如果你的程序在Delphi IDE里包含debug信息编译,你可以定位到导致这个错误源代码这一行。 
在Delphi程序中,一个最普遍导致Access Violation错误的原因是使用了一个没有被创建的对象。如果第二个地址<十六进制值>是FFFFFFF或0000000,十有八九就是你访问? 了一个没有被建立的对象。例如,你调用了一个表单的事件,但这个表单不是自动创建的,也没有代码实例化。

  这是你在设计程序时将会看到的信息,下一个信息框将会出现,然后程序失败了: 
Access violation at address 0043F193 
in module ’Project1.exe’ 
Read of address 000000. 

?procedure TfrMain.OnCreate(Sender: TObject); 
var BadForm: TBadForm; 
begin 
//这里将会产生Access violation 
BadForm.Refresh; 
end;

   第一个十六进制数0043F193是发生Access violation的编译代码(Project1.exe)的运行期错误的地址。在IDE里选择 菜单项“Search|Find Error…”,在对话框里输入错误发生的地址(0043F193)后点击“OK”按钮。Delphi将会重新编译你的 工程文件,然后显示发生运行期错误的那一行代码,这里就是BadForm.Refresh这一行了。 

假设BadForm在工程选项“Available Forms”窗口列表里——这个窗口是需要手工创建和释放的。在上面的代码里调用BadForm窗口的Refresh方法就会导致Access violation。

  下面列出了 Delphi环境下导致Access violation错误的大部分常见原因。这个列表不是也不可能覆盖所有可能出现的 Access violation的情况。请在论坛上发送你的Access violation信息,大家可以试着一起解决这个问题——真正的实际事例一 般情况下比列出来的错误隐晦得多。 

如果你在Debugger选项窗口使“Stop on Delphi Exceptions”生效,那么就会弹出下面的信息: 
The message states that the EAccessViolation has occurred. The EAccessViolation is the exception class for invalid memory access errors.

1. 调用一个不存在的对象 
  如上所述,大部分 Access violation的合理原因是使用了没有被创建或者已经被释放的对象。为了防止这种类型的Access violation的发生,请确 保你访问的任何对象都首先被创建了。例如,当一个Table定位在一个没有被创建的data module(从auto-crete窗口里移走了)里,你 可能在窗体的OnCreate事件里打开这个表。 

这是你在设计程序时将会看到的信息,下一个信息框将会出现,然后程序失败了: 
Access violation at address 0043F193 
in module 'Project1.exe' 
Read of address 000000.

  在下面的代码里,在调用一个已经被删除了的对象(b:TBitmap)事件后,一个Access violation出现了: 
var b:TBitmap; 
begin 
b:=TBitmap.Create; 
try 
//对b对象进行一些操作 
finally 
b.free; 
end;  
... 
//由于b已经被释放,一个Access violation错误将会出现 
b.Canvas.TextOut(0,0,’这是一个 Access Violation’); 
end; 

第一个十六进制数0043F193是发生Access violation的编译代码(Project1.exe)的运行期错误的地址。在IDE里选择菜单项“Search|Find Error…”,在对话框里输入错误发生的地址(0043F193)后点击“OK”按钮。Delphi将会重新编译你的工程文件,然后显示发生运行期错误的那一行代码,这里就是BadForm.Refresh这一行了。

2. 不存在的API参数 
   如果你试图给Win API函数传递一个不存在的参数将会出现一个Access violation错误。解决此类Access violation错 误的最好方法是查阅Win API帮助,看看这个API函数调用的参数信息以及参数类型。例如,总是保证不给一个缓冲参数传递一个无效指针。 

下面列出了Delphi环境下导致Access violation错误的大部分常见原因。这个列表不是也不可能覆盖所有可能出现的Access violation的情况。请在论坛上发送你的Access violation信息,大家可以试着一起解决这个问题——真正的实际事例一般情况下比列出来的错误隐晦得多。

3. 让Delphi释放 
   当一个对象拥有另一个对象时,让它给你做删除工作。因为默认情况下,所有的窗体(自动创建的)都属于Application对象。当一个应用程序结束 时,它释放了Application对象,也就释放了所有窗体。例如,如果你在程序开始时自动创建了两个窗体(Form1/Unit1和Form2 /Unit2),下面的代码就会导致Access violation错误的出现: 
unit Unit1; 
... 
uses unit2; 
... 
procedure TForm1.Call_Form2 
begin 
Form2.ShowModal; 
Form2.Free; 
//Access violation错误将会出现  
Form2.ShowModal;  
end; 

1. 调用一个不存在的对象 
如上所述,大部分Access violation的合理原因是使用了没有被创建或者已经被释放的对象。为了防止这种类型的Access violation的发生,请确保你访问的任何对象都首先被创建了。例如,当一个Table定位在一个没有被创建的data module(从auto-crete窗口里移走了)里,你可能在窗体的OnCreate事件里打开这个表。

4. 杀死异常 
  永远不要破坏临时异常对象(E),处理一个异常会自动释放异常对象。如果你自己手动释放了异常对象,程序会试图再次释放它,那么就会出现Access violation错误: 
Zero:=0; 
try 
dummy:= 10 / Zero; 
except 
on E: EZeroDivide do 
MessageDlg(’不能用0做除数!’,mtError, [mbOK], 0); 
E.free. ////Access violation错误将会出现 
end; 

在下面的代码里,在调用一个已经被删除了的对象(b:TBitmap)事件后,一个Access violation出现了: 
var b:TBitmap; 
begin 
b:=TBitmap.Create; 
try 
//对b对象进行一些操作 
finally 
b.free; 
end; 
... 
//由于b已经被释放,一个Access violation错误将会出现 
b.Canvas.TextOut(0,0,'这是一个 Access Violation'); 
end;

5. 检索一个空字符串 
  一个空字符串是没有任何数据的。就是说,检索一个空字符串相当于访问一个不存在的对象,这将导致Access violation错误: 
var s: string; 
begin 
s:=’’; 
s[1]:=’a’;  
//Access violation错误将会出现 
end; 

2. 不存在的API参数 
如果你试图给Win API函数传递一个不存在的参数将会出现一个Access violation错误。解决此类Access violation错误的最好方法是查阅Win API帮助,看看这个API函数调用的参数信息以及参数类型。例如,总是保证不给一个缓冲参数传递一个无效指针。

6. 直接引用指针 
你必须间接引用指针,否则你会改变指针地址并可能会破坏其他存储单元 : 
procedure TForm1.Button1Click(Sender: TObject); 
var 
p1 : pointer; 
p2 : pointer; 
begin 
GetMem(p1, 128); 
GetMem(p2, 128); 
//下一行导致Access violation错误 
Move(p1, p2, 128); 
//下一行方法正确 
Move(p1^, p2^, 128); 
FreeMem(p1, 128); 
FreeMem(p2, 128); 
end; 
  这些就是我对运行期Access Violation错误的全部建议,我希望你们也能对你们程序出现的Access Violation错误提出一些看法

3. 让Delphi释放 
当一个对象拥有另一个对象时,让它给你做删除工作。因为默认情况下,所有的窗体(自动创建的)都属于Application对象。当一个应用程序结束时,它释放了Application对象,也就释放了所有窗体。例如,如果你在程序开始时自动创建了两个窗体(Form1/Unit1和Form2/Unit2),下面的代码就会导致Access violation错误的出现: 
unit Unit1; 
... 
uses unit2; 
... 
procedure TForm1.Call_Form2 
begin 
Form2.ShowModal; 
Form2.Free; 
//Access violation错误将会出现 
Form2.ShowModal; 
end;

 

4. 杀死异常 
永远不要破坏临时异常对象(E),处理一个异常会自动释放异常对象。如果你自己手动释放了异常对象,程序会试图再次释放它,那么就会出现Access violation错误: 
Zero:=0; 
try 
dummy:= 10 / Zero; 
except 
on E: EZeroDivide do 
MessageDlg('不能用0做除数!',mtError, [mbOK], 0); 
E.free. ////Access violation错误将会出现 
end;

5. 检索一个空字符串 
一个空字符串是没有任何数据的。就是说,检索一个空字符串相当于访问一个不存在的对象,这将导致Access violation错误: 
var s: string; 
begin 
s:=''; 
s[1]:='a'; 
//Access violation错误将会出现 
end;

6. 直接引用指针 
你必须间接引用指针,否则你会改变指针地址并可能会破坏其他存储单元 : 
procedure TForm1.Button1Click(Sender: TObject); 
var 
p1 : pointer; 
p2 : pointer; 
begin 
GetMem(p1, 128); 
GetMem(p2, 128); 
//下一行导致Access violation错误 
Move(p1, p2, 128); 
//下一行方法正确 
Move(p1^, p2^, 128); 
FreeMem(p1, 128); 
FreeMem(p2, 128); 
end; 
这些就是我对运行期Access Violation错误的全部建议,我希望你们也能对你们程序出现的Access Violation错误提出一些看法。

老猫点评:相信所有读者都遇到过“Access violation” 的错误,如果不是自己的程序,我们有很多人就把责任都推在Bill Gates的头上。如果你自己的程序出现了这个尴尬的错误,面对用户的询问,我们该如何解释?本文就是最好的答案。

本文由10bet手机官网发布于微服架构,转载请注明出处:运行期和设计期,通过崩溃地址找错误行数之Delphi版

上一篇:帝国CMS判断会员是否登录及登录后才能看到内容的方法,帝国CMS下在PHP文件中调用数据库类执行SQL语句实例 下一篇:没有了
猜你喜欢
热门排行
精彩图文