明辉站/网站教程/内容

在BCB下使用GExperts的Debug技巧

网站教程2024-05-12 阅读
[摘要]GExperts是BCB的一个插件,其中有一项功能是Debug,非常好用。但是由于定义它的是pas文件(这个文件是GExperts安装目录下DbugIntf.pas),所以不能在BCB中直接使用。我把这个文件转换成C++文件,但是使用的时候注意把dbugintf.h文件copy到工程所在的目录中,...
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

……

相关阅读