DELPHI下怎样通过程序崩溃地址查找源代码的错误行（一）

最近一段时间十分郁闷，公司一个新上线的项目马上要上线了，有个核心的程序在内部测试过程中没有问题，但在实际运行过程中，不知是何原因却老是出现问题，而错误信息的扑捉一直不好处理，因为问题的出现没有规律性，且每次发生的间隔多为运行1-3天时会出现，如果用DELPHI调试，一是等待周期太长，二来程序中有一些通过try方法屏蔽的部分错误 信息会不断在delphi内触发报错，由于程序是需要不断实时运行的程序，不断d出的对话框严重影响程序的运行。所以，当时只好通过记录日志方法查找问题。事实证明这个方法并不是一个理想的好方法，因为往往记录了一大堆的日志，也不知道问题出在哪里，十分头疼。

这种情况维持了很长一段时间，问题依然无法定位解决，如果能够根据报错信息直接定位到具体的delphi的源代码行就好了，说干就干，经过一晚上的努力，终于找到了一个比较简单，当然是十分适合delphi的方法。

下面将这个方法介绍给大家，以delphi7为对象：

1、先对需要分析的程序源代码重新编译，编译的同时需要获得对应的MAP文件，下面是具体的 *** 作步骤：

2) 重新编译程序，在设定生成最终执行文件的目录下你可以发现一个与执行文件同名，后缀为map的文件，这个就是我们要的map文件了。

首先你要在你的电脑上安装jdk。你可以在后面链接地址下载适合你自己的版本（>

在你的电脑上配置java环境变量，主要是配置path和classpath。你可以百度java环境变量配置，可以找到很多java环境变量配置方法。配置完毕，可以在cmd窗口下用java -version来查看是否配置成功。如果显示出java版本相关的信息表示配置成功，可以进行下一步了。

编译你的源代码，cmd窗口下把路径改变（cd）到你源代码文件所在的路径，然后用javac 源文件名编译，例如javac Hellojava（需要注意的是源文件名需要是你文件public类的类名，如果你的文件有public类的话）。当然你也可以不改变（cd）到源文件所在的路径，你的文件就需要加上绝对路径就可以了。例如：javac e:\src\Hellojava

运行你编译好的文件，java Hello（需要注意运行的时候没有后缀java或者class），同样你可以不改变路径用绝对路径运行，例如：java e:\src\Hello如果你的代码中有窗口这样的类似的图形化界面，你就需要用javaw来运行。

另外，你可以使用eclipse，NetBeans这样的集成开发环境（IDE）来写代码，这样方便很多。

源代码（也称源程序）是指未编译的按照一定的程序设计语言规范书写的文本文件，是一系列人类可读的计算机语言指令。

在现代程序语言中，源代码可以是以书籍或者磁带的形式出现，但最为常用的格式是文本文件，这种典型格式的目的是为了编译出计算机程序。计算机源代码的最终目的是将人类可读的文本翻译成为计算机可以执行的二进制指令，这种过程叫做编译，通过编译器完成。

分类：如果按照源代码类型区分软件，通常被分为两类：自由软件和非自由软件。自由软件一般是不仅可以免费得到，而且公开源代码；相对应地，非自由软件则是不公开源代码。所有一切通过非正常手段获得非自由软件源代码的行为都将被视为非法。

作用。源代码主要有如下两种作用：

1生成目标代码，即计算机可以识别的代码。

2对软件进行说明，即对软件的编写进行说明。为数不少的初学者，甚至少数有经验的程序员都忽视软件说明的编写，因为这部分不会在生成的程序中直接显示，也不参与编译。但是注释代码对软件的学习、分享、维护和软件复用都有巨大的好处。

一个“歼灭敌机”的小游戏，DEVc++通过编译：

#include <stdioh>

#include <conioh>

#include <stdlibh>

#include <windowsh>

#include <timeh>

#define zlx 10  //增量坐标(x)让游戏框不靠边

#define zly 3   //增量坐标(y)让游戏框不靠边

#define W 26  //游戏框的宽度

#define H 24  //游戏框的高度

int jiem[22][22]={0}, wj=10;  //界面数组, 我机位置(初值为10)

int speed=4,density=30, score=0,death=0; //敌机速度, 敌机密度, 玩家成绩,死亡次数

int m=0,n=0;  // m,n是控制敌机的变量

void gtxy (int x, int y)  //控制光标位置的函数

{ COORD pos;

posX = x;  posY = y;

SetConsoleCursorPosition ( GetStdHandle (STD_OUTPUT_HANDLE), pos );

}

void Color(int a)  //设定颜色的函数(a应为1-15)

{ SetConsoleTextAttribute( GetStdHandle(STD_OUTPUT_HANDLE), a ); }

void yinc(int x=1,int y=0)   //隐藏光标的函数

{ CONSOLE_CURSOR_INFO  gb={x,y};   //y设为0即隐藏

SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), &gb);

}

void csh( )  //初始化函数

{ int i;

Color(7);

gtxy(zlx,zly); printf("╔");  gtxy(zlx+W-2,zly); printf("╗");  //左上角和右上角的框角

gtxy(zlx,zly+H-1); printf("╚"); gtxy(zlx+W-2,zly+H-1); printf("╝"); //下边两框角

for(i=2;i<W-2;i+=2) {gtxy(zlx+i,zly);  printf("═"); }      //打印上横框

for(i=2;i<W-2;i+=2) {gtxy(zlx+i,zly+H-1); printf("═"); }  //打印下横框

for(i=1;i<H-1;i++) { gtxy(zlx,zly+i);  printf("║"); }       //打印左竖框

for(i=1;i<H-1;i++) {gtxy(zlx+W-2,zly+i); printf("║"); }  //打印右竖框

Color(14); gtxy(19,2); printf("歼灭敌机"); Color(10);

gtxy(37,5); printf("设置：Esc ");

gtxy(37,7); printf("发射：↑ ");

gtxy(37,9); printf("控制：← → ");

gtxy(37,11);printf("得分：%d",score);

gtxy(37,13); printf("死亡：%d",death);

yinc(1,0);

}

void qcjm( )  //清除界面函数

{int i,j;

for(i=0;i<H-2;i++)

for(j=0;j<W-4;j++){gtxy(zlx+2+j,zly+1+i);printf(" ");}

}

void feiji( )  //飞机移动函数

{int i,j;

for(i=21;i>=0;i--)  //从底行往上是为了避免敌机直接冲出数组

  for(j=0;j<22;j++)

     {if(i==21&&jiem[i][j]==3) jiem[i][j]=0;  //底行赋值0 以免越界

       if(jiem[i][j]==3) jiem[i][j]=0, jiem[i+1][j]=3;

     }

if(jiem[20][wj]==3&&jiem[21][wj]==1) death++;

}

void zidan( )  //子d移动函数

{ int i,j;

for(i=0;i<22;i++)

  for(j=0;j<22;j++)

     {if(i==0&&jiem[i][j]==2) jiem[i][j]=0;

     if(jiem[i][j]==2) { if(jiem[i-1][j]==3) score+=100,printf("\7");

                                  jiem[i][j]=0,jiem[i-1][j]=2; }

     }

}

void print(  )  //输出界面函数

{int i,j;

qcjm( );

for(i=0;i<22;i++)

for(j=0;j<22;j++)

{ gtxy(12+j,4+i);

if(jiem[i][j]==3) {Color(13);printf("□");}

if(jiem[i][j]==2) {Color(10);printf("");}

if(jiem[i][j]==1) {Color(10);printf("■");}

}

gtxy(37,11); Color(10);printf("得分：%d",score);

gtxy(37,13); printf("死亡：%d",death);

}

void setting( )  //游戏设置函数

{ qcjm( );

gtxy(12,4);printf("选择敌机速度:");

gtxy(12,5);printf("  1快 2中 3慢>>");

switch(getche( ))

    {case '1': speed=2; break;

     case '2': speed=4; break;

     case '3': speed=5; break;

     default: gtxy(12,6);printf("  错误！默认值");

   }

gtxy(12,7);printf("选择敌机密度:");

gtxy(12,8);printf("  1大 2中 3小>>");

switch(getche( ))

     {case '1': density=20; break;

      case '2': density=30; break;

      case '3': density=40; break;

       default: gtxy(12,9);printf("  错误！默认值");

     }

for(int i=0;i<22;i++)

 for(int j=0;j<22;j++) jiem[i][j]=0;

jiem[21][wj=10]=1; jiem[0][5]=3;

gtxy(12,10);printf("  按任意键保存");

getch( );

qcjm( );

}

void run( )  //游戏运行函数

{ jiem[21][wj]=1;  //值为1代表我机(2则为子d)

jiem[0][5]=3;   //值为3代表敌机

SetConsoleTitle("歼灭敌机");  //设置窗口标题

while(1)

  { if (kbhit( ))  //如有键按下，控制我机左右移动、发射或进行设定

       {int key;

        if((key=getch( ))==224) key=getch( );

        switch(key)

           {case 75: if(wj>0) jiem[21][wj]=0,jiem[21][--wj]=1; break;

            case 77: if(wj<20) jiem[21][wj]=0,jiem[21][++wj]=1; break;

            case 72: jiem[20][wj]=2; break;

           case 27: setting( );

         }

      }

   if(++n%density==0)  //控制产生敌机的速度

      { n=0;srand((unsigned)time(NULL));

        jiem[0][rand( )%20+1]=3;

      }

   if(++m%speed==0) { feiji( ); m=0; }  //控制敌机移动速度(相对子d而言)

   zidan( );   //子d移动

   print( );   //输出界面

Sleep(120);   //延时120毫秒

  }

}

int main( )

{csh( );

 run( );

 return 0;

}

以上就是关于DELPHI下怎样通过程序崩溃地址查找源代码的错误行（一）全部的内容，包括:DELPHI下怎样通过程序崩溃地址查找源代码的错误行（一）、怎么在电脑上运行Java源程序代码、编程中的源代码是什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！