1、Good is good, but better carries it.精益求精，善益求善。DELPHI 2007 動態鏈接庫DLL斷點調試-DELPHI2007動態鏈接庫DLL斷點調試馬根峰(廣東聯合電子服務股份有限公司,廣州510300)Delphi幾個經典版本簡介Delphi從1995年的1.0版本，發展到現在的最新的XE3版本，歷經N多版本，但最為經典的幾個版本個人覺得應屬7.0、2007和2010。Delphi7.0應該是Delphi用戶最多的版本。Delphi2007是功能就不多說了，歸根結底一句話，它是AnsiString的最后一個版本，在Delphi2007中，string類型

2、映射為AnsiString，char類型映射為AnsiChar，Pchar類型映射為PAnsiChar。所以DELPHI低版本的程序可以較輕松地遷移到DELPHI2007版本。Delphi2007也是Delphi程序員很容易上手的晚期版本。從Delphi2009開始起，到現在的DelphiXE3為止，都是unicode版本。String類型映射為UnicodeString而不是AnsiString，Char類型映射為WideChar，PChar類型映射為PWideChar。由于Delphi7.0、2007和2010在界面上乃至功能上的一些變化，所以在動態鏈接庫DLL斷點調試上，有較大的變化。在

3、今后幾天的時間中，筆者會以三篇文章來分別詳細地介紹Delphi7.0、2007和2010這三個版本中的DLL斷點調試技術。本篇文章來詳細地介紹Delphi2007中的動態鏈接庫DLL斷點調試技術。DELPHI2007DLL斷點設置與DLL調試在DELPHI7.0以及以前的版本中，動態鏈接庫的調試方法如下：點擊菜單Run-Parameters.打開RunParameters窗口，在Hostapplication中選中宿主程序，如圖1所示。圖1打開RunParameters窗口，在Hostapplication中選中宿主程序設置圖中斷點，然后點擊F9或者RunRun來運行宿主程序Delphi200

4、7_Dll_Debug.exe，但發現斷點無效，如圖2所示：圖2設置斷點后，運行宿主程序Delphi2007_Dll_Debug.exe，斷點無效點擊Project-Options.，在ProjectOptions窗口中，點擊Compiler，選中Debuginformation，如圖3所示：圖3在ProjectOptions窗口中，點擊Compiler，選中Debuginformation點擊Project-Options.，在ProjectOptions窗口中，點擊Linker，可以看到IncludeTD32debugInfo和Includeremotedebugsymbols兩項為非選中

5、狀態，如圖4所示：圖4IncludeTD32debugInfo和Includeremotedebugsymbols兩項為非選中狀態。選中IncludeTD32debugInfo和Includeremotedebugsymbols，如圖5所示：圖5選中IncludeTD32debugInfo和Includeremotedebugsymbols。然后點擊F9或者RunRun來運行宿主程序Delphi2007_Dll_Debug.exe，但發現斷點生效，如圖6所示：圖6運行宿主程序，發現斷點生效在Delphi2007_Dll_Debug.exe，輸入1和2后點擊銨鈕“=”，如圖7所示：圖7在Delp

6、hi2007_Dll_Debug.exe，輸入1和2后點擊銨鈕“=”進入DLL斷點調試，如圖8所示：圖8進入DLL的斷點調試例子中的宿主程序及DLL程序代碼-宿主程序代碼-unitUDllDebug;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls,Buttons,Contnrs,ActiveX,StrUtils;typeTDll_Add=function(int_1,int_2:integer):integer;stdcall;Tf

7、rmDllDebug=class(TForm)Edit1:TEdit;Edit2:TEdit;Label1:TLabel;Edit3:TEdit;BtnAdd:TButton;procedureFormCreate(Sender:TObject);procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureBtnAddClick(Sender:TObject);privatePrivatedeclarationspublicPublicdeclarationsHInst:Thandle;FDll_Add:TFarProc

8、;functionDll_Add:TDll_Add;/aForeThread:MuliThread;end;varfrmDllDebug:TfrmDllDebug;implementation$R*.dfmprocedureTfrmDllDebug.FormCreate(Sender:TObject);beginhinst:=loadlibrary(Magenf_Detail.dll);ifhinst0thenbeginFDll_Add:=getprocaddress(hinst,pchar(Dll_Add);ifFDll_AddnilthenfunctionDll_Add:=TDll_Add

9、(FDll_Add)elsemessagedlg(Fatalerror!Functionnotbefound!,mtWarning,mbYes,0);endelsemessagedlg(Fatalerror!Magenf_Detail.dllnotbefound!,mtWarning,mbYes,0);end;procedureTfrmDllDebug.FormClose(Sender:TObject;varAction:TCloseAction);begintryfreelibrary(hinst);exceptend;end;procedureTfrmDllDebug.BtnAddClic

10、k(Sender:TObject);varint1,int2,int_return:integer;beginint1:=strToInt(edit1.Text);int2:=strToInt(edit2.Text);int_return:=functionDll_Add(int1,int2);edit3.Text:=intToStr(int_return);end;end.-宿主程序代碼-DLL程序代碼-libraryMagenf_Detail;usesSysUtils,Classes;$R*.RESfunctionDll_Add(int_1,int_2:integer):integer;stdcall;varintSum:integer;beginintSum:=i