GExperts是BCB的一个插件，其中有一项功能是Debug，非常好用。但是由于定义它的是pas文件(这个文件是GExperts安装目录下DbugIntf.pas)，所以不能在BCB中直接使用。我把这个文件转换成C++文件，但是使用的时候注意把dbugintf.h文件copy到工程所在的目录中，直接在文件中用＃include引用，不要添加到project中！



具体的使用方法还是看帮助吧！下面是转换后的文件。

/*-----------------------------------------------------------------------------

Unit Name: dbugintf.h

Author:    yuanhen

Email:     yuanhen88@hotmail.com

            yuanhen88@mail.china.com

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