DELPHI 2007 动态链接库DLL断点调试.docVIP

DELPHI 2007 动态链接库DLL断点调试 马根峰 ( 广东联合电子服务股份有限公司, 广州 510300) Delphi 几个经典版本简介 Delphi从1995年的 1.0版本，发展到现在的最新的XE3版本，历经N多版本，但最为经典的几个版本个人觉得应属 7.0、2007和 2010。 Delphi 7.0应该是Delphi用户最多的版本。 Delphi 2007是功能就不多说了，归根结底一句话，它是 AnsiString的最后一个版本，在Delphi 2007中，string类型映射为 类型映射为 类型映射为 elphi2009开始起，到现在的Delphi XE3为止，都是 unicode 版本String 类型映射为 UnicodeString 而不是 AnsiString Char 类型映射为 WideCharPChar 类型映射为 PWideChar—Run来运行宿主程序Delphi2007_Dll_Debug.exe，但发现断点无效，如图2所示： 图2 设置断点后，运行宿主程序 Delphi2007_Dll_Debug.exe，断点无效点击Project--Options..，在Project Options窗口中，点击Compiler，选中Debug information，如图3所示： 图3 在Project Options窗口中，点击Compiler，选中Debug information 点击Project--Options..，在Project Options窗口中，点击Linker， 可以看到Include TD32 debug Info和Include remote debug symbols两项为非选中状态，如图4所示： 图4 Include TD32 debug Info和Include remote debug symbols两项为非选中状态。 选中Include TD32 debug Info和Include remote debug symbols，如图5所示： 图5 选中Include TD32 debug Info和Include remote debug symbols。 然后点击F9或者Run—Run来运行宿主程序Delphi2007_Dll_Debug.exe，但发现断点生效，如图6所示： 图6 运行宿主程序，发现断点生效在Delphi2007_Dll_Debug.exe，输入 1和2 后点击铵钮“=”，如图7所示： 图7 在Delphi2007_Dll_Debug.exe，输入 1和2 后点击铵钮“=” 进入DLL断点调试，如图8所示： 图8 进入DLL的断点调试 例子中的宿主程序及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); beginhinst:=loadlibrary(Magenf_De