DELPHI 2010 動態鏈接庫DLL斷點調試馬根峰 ( 廣東聯合電子服務股份有限公司, 廣州 510300)摘要：本文詳細介紹了Delphi 2010中的動態鏈接庫DLL斷點調試技術關鍵詞： DELPHI 2010；Dll斷點調試；1 Delphi 幾個經典版本簡介 Delphi從1995年的 1.0版本，發展到現在的最新的XE3版本，歷經N多版本，但最為經典的幾個版本個人覺得應屬 7.0、2007和 2010。Delphi 7.0應該是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 7.0、2007和 2010在界面上乃至功能上的一些變化，所以在動態鏈接庫DLL斷點調試上，有較大的變化。在今后幾天的時間中，筆者會以三篇文章來分別詳細地介紹Delphi 7.0、2007和 2010這三個版本中的DLL斷點調試技術。本篇文章來詳細地介紹 Delphi 2010中的動態鏈接庫DLL斷點調試技術。2 DELPHI 2010的DLL斷點設置與DLL調試在DELPHI 7.0以及以前的版本中，動態鏈接庫的調試方法如下：點擊菜單Run-Parameters.打開Run Parameters窗口，如圖1所示。 圖1 點擊菜單Run-Parameters.打開Run Parameters窗口設置圖中斷點，然后點擊F9或者RunRun來運行宿主程序Delphi2007_Dll_Debug.exe，但發現斷點無效，如圖2所示：圖2 設置斷點后，運行宿主程序 Delphi2007_Dll_Debug.exe，斷點無效 點擊Project-Options.，在Project Options窗口中，在Delphi CompilerCompiling屬性頁中將Debug information設置為True，如圖3所示：圖3 在Delphi CompilerCompiling屬性頁中將Debug information設置為True點擊Project-Options.，在Project Options窗口中，在Delphi CompilerLinking屬性頁中將Debug information和Include remote debug symbols兩項設置為True，如圖4所示：圖4 將Debug information和Include remote debug symbols兩項設置為True運行宿主程序Delphi2007_Dll_Debug.exe，斷點還是無效，如圖5所示：圖5 運行宿主程序 Delphi2007_Dll_Debug.exe，發現斷點還是無效切換到Delphi的DLL工程文件上，點擊ctrl+alt+M,跳出一個名叫Modules的窗體來。左上角顯示了宿主程序本身及其它所調用的資源。找到動態鏈接庫 Magenf_Detail.dll項，發現目錄沒有指向當前DLL所在的目錄。點擊鼠標右鍵，選中菜單項“Reload Symbol Table”如圖6所示：圖6 打開Modules屬性頁，找到Magenf_Detail.dll項，點擊鼠標右鍵，Reload Symbol Table重新設置動態鏈接庫Magenf_Detail.dll 的位置，選中當前DLL工程Magenf_Detail所在目錄的動態鏈接庫Magenf_Detail.dll文件，如圖7所示：圖7 打開Modules屬性頁，找到Magenf_Detail.dll項，點擊鼠標右鍵，Reload Symbol Table，重新設置它的位置 然后切換到Delphi的屬性頁Magenf_Detail，發現斷點生效，如圖8所示：圖8 點擊屬性頁Magenf_Detail，發現斷點生效在Delphi2007_Dll_Debug.exe，輸入 1和2 后點擊銨鈕“=”，如圖9所示：圖9 在Delphi2007_Dll_Debug.exe，輸入 1和2 后點擊銨鈕“=” 進入DLL斷點調試，如圖10所示：圖10 進入DLL的斷點調試3 例子中的宿主程序及DLL程序代碼-宿主程序代碼-unit UDllDebug;interfaceuses 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 hinst0 then begin FDll_Add:=getprocaddress(hinst,pchar(Dll_Add); if FDll_Addnil 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 librarys USES clause AND your projects (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 *.RESfunction Dll_Add(int_1,int_2:integer):integer;stdcall;var intS