DELPHI 7 动态链接库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); beginhinst:=loadlibrary(Magenf_Detail.dll);if hinst0 thenbeginFDll_Add:=getprocaddress(hinst,pchar(Dll_Add));if FDll_Addnil thenfunctionDll_Add:=TDll_Add(FDll_Add)elsemessagedlg(Fatal error! Function not be found!,mtWarning, [mbYes], 0) ;endelsemessagedlg(Fatal error! Magenf_Detail.dll not be found!,mtWarning, [mbYes], 0) ; end; procedure TfrmDllDebug.FormClose(Sender: TObject; var Action: TCloseAction); begintryfreelibrary(hinst);exceptend; end;procedure TfrmDllDebug.BtnAddClick(Sender: TObject); varint1,int