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

DELPHI 7 动态链接库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 类型映射为 PWideCharG:\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的断点调试 例子中的宿主程序及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 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