输出调试信息的两种方法

iteye_5340

于 2008-10-27 18:17:00 发布

阅读量383

点赞数

在开发中经常希望输出调试信息，我平时一般使用下面两种之一：

1.用dbgview.exe可以查看，在代码里写法如下

OutputDebugString(PChar(AMsg));

2.产生一个console窗口

 
  procedureTInfDebugInfoConsoleImpl.CloseConsole; 
 begin 
 if(FHandle<>INVALID_HANDLE_VALUE)then 
 begin 
CloseHandle(FHandle);
FHandle:=INVALID_HANDLE_VALUE;
FreeConsole();
 end; 
 end; 
 procedureTInfDebugInfoConsoleImpl.OpenConsole; 
 begin 
 ifFHandle<>INVALID_HANDLE_VALUEthen 
Exit;
AllocConsole;
 SetConsoleTitle('Debug'); 
FHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
 end; 
 procedureTInfDebugInfoConsoleImpl.WriteInfo(constAMsg:string); 
 var 
dwTmp:DWORD;
 str:string; 
 begin 
 if(FHandle<>INVALID_HANDLE_VALUE)then 
 begin 
 Str:=Format('%s'#13#10,[AMsg]); 
 WriteConsole(FHandle,PChar(Str),Length(Str),dwTmp,nil); 
 end; 
 end; 
 