当前位置：文档之家 › DELPHI_7_动态链接库DLL断点调试

DELPHI_7_动态链接库DLL断点调试

  • 格式：doc
  • 大小：277.50 KB
  • 文档页数：8

DELPHI 7 动态链接库DLL断点调试
马根峰
( 广东联合电子服务股份有限公司, 广州 510300)

1 Delphi 几个经典版本简介
Delphi从1995年的 版本，发展到现在的最新的XE3版本，历经N多版本，但最为经
典的几个版本个人觉得应属 、2007和 2010。
Delphi 应该是Delphi用户最多的版本。
Delphi 2007是功能就不多说了，归根结底一句话，它是 AnsiString的最后一个版本，
在Delphi 2007中，string类型映射为 AnsiString ，char类型映射为 AnsiChar，Pchar类型
映射为 PAnsiChar。所以DELPHI低版本的程序可以较轻松地迁移到DELPHI 2007版本。
Delphi 2007也是Delphi程序员很容易上手的晚期版本。
从Delphi2009开始起，到现在的Delphi XE3为止，都是 unicode 版本。String 类型映
射为 UnicodeString 而不是 AnsiString ，Char 类型映射为 WideChar，PChar 类型映射为
PWideChar。
由于Delphi 、2007和 2010在界面上乃至功能上的一些变化，所以在动态链接库DLL
断点调试上，有较大的变化。在今后几天的时间中，笔者会以三篇文章来分别详细地介绍
Delphi 7、2007和 2010这三个版本中的DLL断点调试技术。
本篇文章来详细地介绍 Delphi 7中的动态链接库DLL断点调试技术。

2 DELPHI 7的DLL断点设置与DLL调试
在DELPHI 以及以前的版本中，动态链接库的调试方法如下：
点击菜单Run-->Parameters.打开Run Parameters窗口，如图1所示。
图1 点击菜单Run-->Parameters.打开Run Parameters窗口
在Run Parameters窗口中，在Host Application中填入宿主程序的完整路径然后选择，
如图2所示。
图2 在Run Parameters窗口中，点击Browse选中宿主程序
G:\Delphi_Dll_Debug\70\Magenf_Master\

设置断点后，输入F9或者点击Run-->Run 来运行宿主程序 ，如图3所示
图3 设置断点后，输入F9或者点击Run-->Run 来运行宿主程序

在主程序窗口对应的文本框中，输入 1和2 后，然后点击按钮“=”，即进入DLL的断
点调试，如图4所示。
图4 进入DLL的断点调试
3 例子中的宿主程序及DLL程序代码
-------宿主程序代码-----
unit UDllDebug;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, Contnrs , ActiveX, StrUtils ;

type

TDll_Add=function(int_1,int_2:integer):integer;stdcall;
TfrmDllDebug = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Edit3: TEdit;
BtnAdd: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BtnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }

HInst:Thandle;
FDll_Add:TFarProc;
functionDll_Add:TDll_Add;

fm}

procedure (Sender: TObject);
begin
hinst:=loadlibrary('');
if hinst>0 then
begin
FDll_Add:=getprocaddress(hinst,pchar('Dll_Add'));

if FDll_Add<>nil then
functionDll_Add:=TDll_Add(FDll_Add)
else
messagedlg('Fatal error! Function not be found!',mtWarning, [mbYes],
0) ;
end
else
messagedlg('Fatal error! not be found!',mtWarning, [mbYes], 0) ;

end;
procedure (Sender: TObject;
var Action: TCloseAction);
begin
try
freelibrary(hinst);
except
end;

end;

procedure (Sender: TObject);
var
int1,int2,int_return:integer;
begin

int1:=strToInt;
int2:=strToInt;
int_return:=functionDll_Add(int1,int2);
:=intToStr(int_return);

end;
end.
-------宿主程序代码-----

-------DLL程序代码-----
library Magenf_Detail;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the shared memory manager, which must be deployed along
with your DLL. To avoid using , pass string information
using PChar or ShortString parameters. }

uses
SysUtils,Classes;

{$R *.RES}

function Dll_Add(int_1,int_2:integer):integer;stdcall;
var
intSum:integer;
begin
intSum:=int_1+int_2;
result:=intSum;
end;

exports
Dll_Add;

end.
-------DLL程序代码-----

合集下载

Delphi 中的程序调试及异常处理

Delphi 中的程序调试及异常处理


编译期错误
编译期错误也称为语法错误。在DelPhi中，通常是当程序代码违 反了object Pascal语言的语法规则时发生这类错误。比较常见的语法错 误有标识符未定义或拼写错误；语句的末尾漏掉分号；赋值语句中漏 写昌号；begin与end末配对；括号末配对；引号末配对等。
如果程序代码中有语法错误，编译不能通过，代码编辑器的状态 行将给出错误信息提示，并加亮有语法错误的代码行。
Try…except语句 Raise语句 Try…finally语句 自定义异常类及其使用
Delphi对异常的自动处理
Delphi为应用程序提供了一套缺省的自动异常处理机制，即当前 模块发生错误后退出当前模块并给出错误信息，而并不立即引起应用 程序的中止。 若程序在Delphi的集成开发环境中运行，在给出相应错 误信息的同时，还尽可能定位出错的位置。
I
Overflow checking 检查整数操作是否溢出
Q
信息（Messages）
选项 Show hints
说明 使编译器显示提示信息
Show Warnings
使编译器显示警告信息
编译选项3
语法选项（Syntax options）
选项 Strick var-strings
Complete Boolean eval
举例
举例（格式1）
举例： var i:integer; r:real; begin i:=0; try
r:=8/i; showmessage(floattostr(r)); except showmessage('除数为零'); end; end;
Try…except语句（格式2）
格式2： Try
Try…except语句（格式3）
断点调试——精选推荐

断点调试——精选推荐

断点调试断点调试1. 实际需求在开发中，程序员发现⼀个⾮常诡异的错误，怎么看源代码都发现不了这个错误，这时⽼程序员就会温馨提⽰，可以使⽤断点调试，⼀步⼀步的看源码执⾏的过程，从⽽发现错误所在2.断点调试介绍断点调试是指⾃⼰在程序的某⼀⾏设置⼀个断点，调试时，程序运⾏到这⼀⾏就会停住，然后你可以⼀步⼀步的往下调试，调试过程中可以看各个变量当前的值，出错的话，调试到出错的代码⾏即显⽰错误，停下，然后程序可以进⾏分析从⽽找到这个BUG断点调试是程序员必须掌握的重要的技能使⽤断点调试也能帮助我们最终查看C程序代码的执⾏过程，提⾼程序员的⽔平3.断点调试的快捷键f5 开始调试，执⾏到下⼀个断点f11 逐句执⾏代码，会进⼊到函数体中f10 逐过程执⾏（遇到函数，跳出前，会将该函数执⾏完）shift+f5 终⽌调试shift+f11 跳出（跳出某个函数，跳出前，会将该函数执⾏完）4.断点调试应⽤案例看⼀下变量的变化情况void main(){int sum=0;//断点下在这⾥，然后使⽤f10（逐过程执⾏，可以看到各个变量的变化情况）int i=0;for(i=0;i<10;i++){sum+=i;printf("i=%d",i);printf("sum=%d",sum);}printf("退出for循环了");}5.断点调试应⽤案例2看⼀下数组越界的情况，当数组越界后，会输出⼀个为⽌的值void main(){int arr[]={1,2,3,4,5};int i=0;int len=sizeof(arr)/sizeof(int);for(i=0;i<=len;i++){printf("arr[%d]=%d",i,arr[i]);}}6.断点调试应⽤案例3演⽰如果进⼊到调⽤的函数体内，f11(进⼊到函数体)，shift+f11(跳出函数)double cal2(int num1,int num2,char oper){double res=0.0;switch(oper){case '+':res=num1+num2;break;case '-':res=num1-num2;break;case '*':res=num1*num2;break;case '/':res=num1/num2;break;default:printf("你的运算符有误");}return res;}7.断点调试应⽤案例4#include<stdio.h>#include<stdlib.h>#include"myfun.h"void main(){int n1=10;int n2=40;char oper="+";double res=cal2(n1,n2,oper);printf("res=%.2f",res);printf("hello1");printf("hello2");system("pause");}断点调试1. 实际需求在开发中，程序员发现⼀个⾮常诡异的错误，怎么看源代码都发现不了这个错误，这时⽼程序员就会温馨提⽰，可以使⽤断点调试，⼀步⼀步的看源码执⾏的过程，从⽽发现错误所在2.断点调试介绍断点调试是指⾃⼰在程序的某⼀⾏设置⼀个断点，调试时，程序运⾏到这⼀⾏就会停住，然后你可以⼀步⼀步的往下调试，调试过程中可以看各个变量当前的值，出错的话，调试到出错的代码⾏即显⽰错误，停下，然后程序可以进⾏分析从⽽找到这个BUG断点调试是程序员必须掌握的重要的技能使⽤断点调试也能帮助我们最终查看C程序代码的执⾏过程，提⾼程序员的⽔平3.断点调试的快捷键f5 开始调试，执⾏到下⼀个断点f11 逐句执⾏代码，会进⼊到函数体中f10 逐过程执⾏（遇到函数，跳出前，会将该函数执⾏完）shift+f5 终⽌调试shift+f11 跳出（跳出某个函数，跳出前，会将该函数执⾏完）4.断点调试应⽤案例看⼀下变量的变化情况void main(){int sum=0;//断点下在这⾥，然后使⽤f10（逐过程执⾏，可以看到各个变量的变化情况）int i=0;for(i=0;i<10;i++){sum+=i;printf("i=%d",i);printf("sum=%d",sum);}printf("退出for循环了");}5.断点调试应⽤案例2看⼀下数组越界的情况，当数组越界后，会输出⼀个为⽌的值void main(){int arr[]={1,2,3,4,5};int i=0;int len=sizeof(arr)/sizeof(int);for(i=0;i<=len;i++){printf("arr[%d]=%d",i,arr[i]);}}6.断点调试应⽤案例3演⽰如果进⼊到调⽤的函数体内，f11(进⼊到函数体)，shift+f11(跳出函数) double cal2(int num1,int num2,char oper){double res=0.0;switch(oper){case '+':res=num1+num2;break;case '-':res=num1-num2;break;case '*':res=num1*num2;break;case '/':res=num1/num2;break;default:printf("你的运算符有误");}return res;}7.断点调试应⽤案例4#include<stdio.h>#include<stdlib.h>#include"myfun.h"void main(){int n1=10;int n2=40;char oper="+";double res=cal2(n1,n2,oper);printf("res=%.2f",res);printf("hello1");printf("hello2");system("pause");}。

DELPHI基础教程：动态链接库编程（一）[2]

DELPHI基础教程：动态链接库编程（一）[2]

DELPHI基础教程：动态链接库编程（一）[2]DLLs中的变量和段一个DLLs拥有自己的数据段（DS）因而它声明的任何变量都为自己所私有调用它的模块不能直接使用它定义的变量要使用必须通过过程或函数界面才能完成而对DLLs来说它永远都没有机会使用调用它的模块中声明的变量一个DLLs没有自己的堆栈段（SS）它使用调用它的应用程序的堆栈因此在DLL中的过程函数绝对不要假定DS = SS 一些语言在小模式编译下有这种假设但使用Delphi可以避免这种情况 Delphi绝不会产生假定DS = SS的代码 Delphi的任何运行时间库过程/函数也都不作这种假定需注意的是如果读者想嵌入汇编语言代码绝不要使SS 和DS登录同一个值DLLs中的运行时间错和处理由于DLLs无法控制应用程序的运行导致很难进行异常处理因此编写DLLs时要十分小心以确保被调用时能正常执行当DLLs中发生一个运行时间错时相应DLLs并不一定从内存中移去（因为此时其它应用程序可能正在用它）而调用DLLs的程序异常中止这样造成的问题是当DLLs已被修改重新进行调用时内存中保留的仍然可能是以前的版本修改后的程序并没有得到验证对于这个问题有以下两种解决方法在程序的异常处理部分显式将DLL卸出内存完全退出Windows 而后重新启动运行相应的程序同一般的应用程序相比 DLL中运行时间错的处理是很困难的而造成的后果也更为严重因此要求程序设计者在编写代码时要有充分周到的考虑库初始化代码的编写传统Windows中动态链接库的编写需要两个标准函数LibMain 和WEP 用于启动和关闭DLL 在LibMain中可以执行开锁DLL数据段分配内存初始化变量等初始化工作而WEP在从内存中移去DLLs前被调用一般用于进行必要的清理工作如释放内存等Delphi用自己特有的方式实现了这两个标准函数的功能这就是在工程文件中的begin…end部分添加初始化代码和传统Windows编程方法相比它的主要特色是初始化代码是可选的一些必要的工作（如开锁数据段）可以由系统自动完成所以大部分情况下用户不会涉及到可以设置多个退出过程退出时按顺序依次被调用LibMain和WEP对用户透明由系统自动调用初始化代码完成的主要工作是初始化变量分配全局内存块登录窗口对象等初始化工作在（）节利用DLLs实现应用程序间的数据传输中用于数据共享的全局内存块就是在初始化代码中分配的设置DLLs退出时的执行过程Delphi有一个预定义变量ExitProc 用于指向退出过程的地址用户可以把自己的过程名赋给ExitProc 系统自动调用WEP函数把ExitProc指向的地址依次赋给WEP执行直到ExitProc为nil下边的一段程序包含一个退出过程和一段初始化代码用来说明如何正确设置退出过程library Test;{$S }uses WinTypes WinProcs;varSaveExit: Pointer;procedure LibExit; far;beginif ExitCode = wep_System_Exit thenbegin{ 系统关闭时的相应处理 }endelsebegin{ DLL卸出时的相应处理 }end;ExitProc := SaveExit; { 恢复原来的退出过程指针 }end;begin{DLL的初始化工作 }SaveExit := ExitProc; { 保存原来的退出过程指针 }ExitProc := @LibExit; { 安装新的退出过程 }end在初始化代码中首先把原来的退出过程指针保存到一个变量中而后再把新的退出过程地址赋给ExitProc 而在自定义退出过程LibExit结束时再把ExitProc的值恢复由于ExitProc是一个系统全局变量所以在结束时恢复原来的退出过程是必要的退出过程LibExit中使用了一个系统定义变量ExitCode 用于标志退出时的状态 ExitCode的取值与意义如下表 ExitCode的取值与意义━━━━━━━━━━━━━━━━━━━━━取值意义WEP_System_Exit Windows关闭WEP_Free_DLLx DLLs被卸出━━━━━━━━━━━━━━━━━━━━━退出过程编译时必须关闭stack_checking 因而需设置编译指示{$S }编写一般DLLs的应用举例在下面的程序中我们把一个字符串操作的函数储存到一个DLLs中以便需要的时候调用它应该注意的一点是为了保证这个函数可以被其它语言编写的程序所调用作为参数传递的字符串应该是无结束符的字符数组类型（即PChar类型）而不是Object Pascal的带结束符的Srting类型程序清单如下library Example;usesSysUtilsClasses;{返回字符在字符串中的位置}function InStr（SourceStr: PChar;Ch: Char） Integer; export;varLen i: Integer;beginLen := strlen（SourceStr）for i := to Len doif SourceStr[i] = ch thenbeginResult := i;Exit;end;Result := ;end;exportsInstr Index name MyInStr resident;beginend调用DLLs有两种方法可用于调用一个储存在DLLs中的过程lishixinzhi/Article/program/Delphi/201311/25208。

Windows动态链接库DLL使用

Windows动态链接库DLL使用

Windows动态链接库DLL使⽤⼀、概念DLL：Dynamic Link Library，即动态链接库，这种库包含了可由多个程序同时使⽤的代码和数据。

它是microsoft在windows操作系统中实现共享函数库概念的⼀种实现⽅式。

其中windows中⼀些作为DLL实现的⽂件有：ActiveX控件（.ocx）⽂件：如windows上的⽇历控件。

控制⾯板（.cpl）⽂件：控制⾯板中的每⼀项都是⼀个专⽤的DLL。

设备驱动程序（.drv）⽂件：如控制打印到打印机的打印机驱动程序。

⼆、由来DLL最初⽤于节约应⽤程序所需要的磁盘和内存空间。

早前，在传统的⾮共享库中，⼀部分代码简单地附加到调⽤的程序中。

如果两个程序同时调⽤同⼀个⼦程序，就会出现两份那段代码。

相反，许多应⽤共享的代码能够切分到⼀个DLL中，在硬盘上存为⼀个⽂档，在内存中只需使⽤⼀个实例。

三、DLL的优缺点优点：（1）节省内存和代码重⽤：当多个程序使⽤同⼀个函数库时，DLL可以减少在磁盘和物理内存中加载代码的重复量，且有助于代码的重⽤。

（2）模块化：DLL有助于促进模块式程序开发。

模块化允许仅仅更改⼏个应⽤程序共享使⽤的⼀个DLL中的代码和数据⽽不需要更改应⽤程序⾃⾝。

这种模块话的基本形式允许如Microsoft Office、Microsoft Visual Studio、甚⾄windows⾃⾝这样⼤的应⽤程序使⽤较为紧凑的补丁和服务包。

缺点：DLL Hell：即DLL地狱，指⼏个应⽤程序在使⽤同⼀个共享的DLL库时发⽣版本冲突。

究其原因，⼋个字：成也共⽤，败也共⽤。

因为DLL Hell正是由于动态链接库可与其他程序共⽤函数、资源所导致。

主要有两种情况：设想这样⼀个场景：程序A会使⽤1.0版本的动态链接库X，则在程序A安装到系统时，会同时安装该1.0版本的动态链接库X。

假设另⼀个程序B也会使⽤到动态链接库X，那么程序B直接复制到硬盘中即可正常运⾏，因为动态链接库已经存在于系统中。