//////////////////////////////////////////////////////////////////////
//
//  Easy Bug Tracer v 1.0.6
//  @(#) dout.h 1.0.6, last edit: 09/15/98 09:45
//  @(#) Copyright (C) 1998 Martin Hsiao (martins1@ms3.hinet.net)
//  @(#) Martin's WorkShop  (http://insidebcb.copystar.com.tw)
//
//      This program is distributed in the hope that it will be useful,
//      but WITHOUT ANY WARRANTY; without even the implied warranty of
//      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
//
//////////////////////////////////////////////////////////////////////    #ifndef __DOUT_H_
#define __DOUT_H_    #include     #ifndef __STDIO_H
#include 
#endif /* __STDIO_H */    #ifndef __WCHAR_H
#include 
#endif /* __WCHAR_H */    #define SMSG(X) SendMessage(FindWindow("TMainForm","TRACE Window") ,                                                 WM_COPYDATA, (WPARAM)NULL,(LPARAM)X);
#define DebugOut(X) {             COPYDATASTRUCT *pcp = new COPYDATASTRUCT;         pcp->dwData = 0;         pcp->cbData = sizeof(X);         pcp->lpData = &X;         SMSG(pcp);         delete pcp;}    void douth(long Data)//for Tracing Hex Value
{
         char TM[255];
         sprintf(TM,"0x%x",Data);
         DebugOut(TM);
}    void dout(char* Data)
{
         char TM[255];
         sprintf(TM,"%s",Data);
         DebugOut(TM);
}    void dout(WCHAR* Data) //for Tracing Unicode string
{
         char TM[255];
         #ifdef DSTRING_H
                 AnsiString AnsiData = AnsiString(Data);
                 sprintf(TM,"%s",AnsiData.c_str());
         #else
                 sprintf(TM,"%ls",Data);
         #endif /* DSTRING_H */
         DebugOut(TM);
}    #ifdef DSTRING_H
void dout(AnsiString* Data)//for Tracing AnsiString BCB only
{
         char TM[255];
         sprintf(TM,"%s",Data->c_str());
         DebugOut(TM);
}    void dout(AnsiString Data) //for Tracing AnsiString BCB only
{
         char TM[255];
         sprintf(TM,"%s",Data.c_str());
         DebugOut(TM);
}    #endif /* DSTRING_H */    #endif    

unit douts;    interface    uses Windows, Messages;
procedure dout(Data : pchar);overload;
procedure dout(Data : String);overload;    implementation    procedure charout(Data : pchar);overload;
var
   sSend : AnsiString;
   cdsData : TCopyDataStruct;
begin
     sSend := Data;
     with cdsData do
     begin
          dwData := 0;
          cbData := Length(sSend)   1;
          lpData := pchar(sSend);
     end;
     SendMessage(FindWindow('TMainFrame','TRACE Window'),
                                                WM_COPYDATA,
                                                WPARAM(nil),
                                                LPARAM(@cdsData));
end;    procedure dout(Data : pchar);overload;
begin
     charout(Data);
end;    procedure dout(Data : String);overload;
begin
     charout(pchar(Data));
end;    end.