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程序代码-----