2    DELPHI 7的DLL断点设置与DLL调试

在DELPHI 7.0以及以前的版本中，动态链接库的调试方法如下：

点击菜单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\Delphi2007_Dll_Debug.exe

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

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

在主程序Delphi2007_Dll_Debug.exe窗口对应的文本框中，输入 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;

//aForeThread:MuliThread;

end;

var

frmDllDebug: TfrmDllDebug;

implementation

{$R *.dfm}

procedure TfrmDllDebug.FormCreate(Sender: TObject);

begin

hinst:=loadlibrary('Magenf_Detail.dll');

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!  Magenf_Detail.dll not be found!',mtWarning, [mbYes], 0) ;

end;

procedure TfrmDllDebug.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

try

freelibrary(hinst);

except

end;

end;

procedure TfrmDllDebug.BtnAddClick(Sender: TObject);

var

int1,int2,int_return:integer;

begin

int1:=strToInt(edit1.Text);

int2:=strToInt(edit2.Text);

int_return:=functionDll_Add(int1,int2);

edit3.Text :=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 BORLNDMM.DLL shared memory manager, which must be deployed along

with your DLL. To avoid using BORLNDMM.DLL, 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程序代码-----