GExperts是BCB的一个插件，其中有一项功能是Debug，非常好用。但是由于定义它的是pas文件(这个文件是GExperts安装目录下DbugIntf.pas)，所以不能在BCB中直接使用。我把这个文件转换成C++文件，但是使用的时候注意把dbugintf.h文件copy到工程所在的目录中，直接在文件中用＃include引用，不要添加到project中！
具体的使用方法还是看帮助吧！下面是转换后的文件。
/*----------------------------------------------------------------------------- Unit Name: dbugintf.h Author: yuanhen Email: [email protected] [email protected] Purpose: translate Delphi version to C++Builder's Date: 2003/06/05 Time: 20:42:08 History: NOTE NOTE NOTE: DON'T ADD this file to your project. Otherwise, this file should be include to your project manually -----------------------------------------------------------------------------*/ #ifndef DBUGINTF_H #define DBUGINTF_H #ifdef LINUX #include <iostream> #endif LINUX #include <vcl.h> #include <Registry.hpp> //--------------------------------------------------------------------------- // global variables AnsiString MsgPrefix; const char chrClearCommand = 3; bool PastFailedAttemptToStartDebugWin = false; const AnsiString Indentation = " "; // declaration void SendBoolean(const AnsiString &Identifier, const bool Value); void SendDateTime(const AnsiString &Identifier, const TDateTime Value); void SendDebugEx(const AnsiString &Msg, TMsgDlgType MType); void SendDebug(const AnsiString &Msg); void SendDebugClear(); void SendInteger(const AnsiString &Identifier, const int Value); void SendMethodEnter(const AnsiString &MethodName); void SendMethodExit(const AnsiString &MethodName); void SendSeparator(); void SendDebugFmt(const AnsiString &Msg, const TVarRec *Args); void SendDebugFmtEx(const AnsiString &Msg, const TVarRec *Args, TMsgDlgType MType); HWND StartDebugWin(); // definition void SendBoolean(const AnsiString &Identifier, const bool Value) { // Note: We deliberately leave "True" and "False" as // hard-coded string constants, since these are // technical terminology which should not be localised. if (Value) SendDebugEx(Identifier + "= True", mtInformation); else SendDebugEx(Identifier + "= False", mtInformation); } void SendDateTime(const AnsiString &Identifier, const TDateTime Value) { SendDebugEx(Identifier + '=' + DateTimeToStr(Value), mtInformation); } void SendDebugEx(const AnsiString &Msg, TMsgDlgType MType) { TCopyDataStruct CDS; HWND DebugWin; AnsiString MessageString; #ifdef LINUX const AnsiString MTypeStr[TMsgDlgType] = {"Warning: ", "Error: ", "Information: ", "Confirmation: ", "Custom: "}; #endif LINUX #ifdef LINUX std::cout << "GX: " << MTypeStr[MType] << Msg << std::endl; #endif LINUX #ifndef LINUX DebugWin = FindWindow("TfmDebug", NULL); if (DebugWin == 0) DebugWin = StartDebugWin(); if (DebugWin != 0) { MessageString = MsgPrefix + Msg; CDS.cbData = MessageString.Length() + 4; CDS.dwData = 0; AnsiString com; if (Msg == chrClearCommand) { com = chrClearCommand; com += AnsiString(MType + 1) + MessageString; com += '\0'; } else { com = '\1'; com = com + AnsiString(MType + 1) + MessageString; com = com + '\0'; } CDS.lpData = com.c_str(); SendMessage(DebugWin, WM_COPYDATA, WPARAM(Application->Handle), LPARAM(&CDS)); } #endif LINUX } void SendDebug(const AnsiString &Msg) { SendDebugEx(Msg, mtInformation); } void SendDebugClear() { SendDebug(chrClearCommand); } void SendInteger(const AnsiString &Identifier, const int Value) { SendDebugEx(AnsiString(Identifier + " = " + Value), mtInformation); } void SendMethodEnter(const AnsiString &MethodName) { MsgPrefix = MsgPrefix + Indentation; SendDebugEx("Entering " + MethodName, mtInformation); } void SendMethodExit(const AnsiString &MethodName) { SendDebugEx("Exiting " + MethodName, mtInformation); MsgPrefix.Delete(1, Indentation.Length()); } void SendSeparator() { const AnsiString SeparatorString = "------------------------------"; SendDebugEx(SeparatorString, mtInformation); } void SendDebugFmt(const AnsiString &Msg, const TVarRec *Args) { SendDebugEx(Msg.Format(Msg, Args, sizeof(Args)), mtInformation); } void SendDebugFmtEx(const AnsiString &Msg, const TVarRec *Args, TMsgDlgType MType) { SendDebugEx(Msg.Format(Msg, Args, sizeof(Args)), MType); } HWND StartDebugWin() { AnsiString DebugFilename; char Buf[MAX_PATH + 1]; TStartupInfo si; TProcessInformation pi; MsgPrefix = ""; HWND Result = 0; if (PastFailedAttemptToStartDebugWin) exit; TRegIniFile *File = new TRegIniFile("\\Software\\GExperts"); __try { DebugFilename = File->ReadString("Debug", "FilePath", ""); } __finally { delete File; } if (DebugFilename.Trim() == "") { GetModuleFileName(NULL, Buf, sizeof(Buf)-1); DebugFilename = ExtractFilePath(StrPas(Buf))+"GDebug.exe"; } if (DebugFilename.Trim() == "" || (!FileExists(DebugFilename))) { PastFailedAttemptToStartDebugWin = true; exit; } memset(&si, '\0', sizeof(si)); si.cb = sizeof(si); si.dwFlags = STARTF_USESHOWWINDOW; si.wShowWindow = SW_SHOW; if (!CreateProcess(DebugFilename.c_str(), NULL, NULL, NULL, false, 0, NULL, NULL, &si, &pi)) { PastFailedAttemptToStartDebugWin = true; exit; } __try { WaitForInputIdle(pi.hProcess, 3000); // wait for 3 seconds to get idle } __finally { CloseHandle(pi.hThread); CloseHandle(pi.hProcess); } Result = FindWindow("TfmDebug", NULL); return Result; } #endif DBUGINTF_H
本文地址：http://com.8s8s.com/it/it29249.htm