記錄Log的pos檔 for DebugView觀看

將UnitCommon.pas程式碼加到入的專案中。

unit UnitCommon;

interface

uses Windows, Forms, SysUtils, Dialogs;
{
const
  LOG_LEVEL_HIGH = 1;
  LOG_LEVEL_NONE = 0;
}
var
  //g_loglevel    : integer;
  //Buf : array[1..MAX_PATH] of char ;
  g_sTempPath   : string;   // (TempPath)
  g_sWorkPath   : string;   // (WorkingPath)
  g_sLogFile    : string;
  m_create_txt  : textFile;
function GetWorkDirectory :String;
function GetTmpDirectory() : string;

procedure DebugStr(sMsg : string);
procedure LogToFile(s:string);

//function  GetUserInfoForTest(var sInfo:string) : boolean;

implementation

function GetWorkDirectory;
var
  aBuf  :   array[0..260] of Char;
begin
  GetModuleFileName(HINSTANCE, @aBuf[0], SizeOf(aBuf));
  Result := IncludeTrailingBackslash(ExtractFilePath(StrPas(aBuf)));
end;

function GetTmpDirectory(): string;
var
  dwBuffSize : DWORD;
  cBuffer : array[0..MAX_PATH] of char;
begin
  dwBuffSize := MAX_PATH;
  GetTempPath(dwBuffSize, cBuffer);
  Result := cBuffer;
end;
{
//---------------------------------------------------------

procedure ReportLog(str: string);
begin
  if(not Assigned(m_Report)) then
    Exit;
  m_Report.Add(FormatDateTime('yyyy"/"mm"/"dd" "hh:nn:ss ', Now())+str);
end;
//---------------------------------------------------------

procedure ReportLog(str: string; Args: array of const);
var
  buf: string;
begin
  //Format string.
  buf:=Format(str, Args);
  //Put Log to Log Factory.
  ReportLog(buf);
end;
//---------------------------------------------------------
}

procedure DebugStr(sMsg : string) ;
begin
  OutputDebugString(PChar(sMsg));
  {
  if g_loglevel = LOG_LEVEL_HIGH then
  begin
    OutputDebugString(PChar(sMsg));
    LogToFile(g_sLogFile) ;
  end ;
  }
end;

procedure LogToFile(s:string) ;
var
  txt : textFile;
begin
  if g_sLogFile='' then
    exit;
  try
    AssignFile(txt,g_sLogFile);

    Append(txt);
    writeln(txt,formatDateTime('yyyy/mm/dd hh:nn:ss.zzz',now),' ',s);
    CloseFile(txt);
  except
    g_sLogFile:='';
  end;
end;


{
function  GetUserInfoForTest(var sInfo:string): boolean;
var
  hOpenMap : THandle;
  pAddr : pchar;
begin
  Result := false;
  hOpenMap := OpenFileMapping(
                FILE_MAP_READ,
                False,
                'MyFileMappingObject');

  if (GetLastError = ERROR_FILE_NOT_FOUND) then
    exit;

  pAddr := nil;
  try
    pAddr := MapViewOfFile(hOpenMap, FILE_MAP_READ, 0, 0, 0);

    if (pAddr<>nil) then
    begin
      sInfo :=  pAddr;
      Result := true;
    end;

  finally
    UnmapViewOfFile(pAddr);
    CloseHandle(hOpenMap);
  end;
end;
}
initialization
begin
  g_sWorkPath:=GetWorkDirectory();
  g_sTempPath:=GetTmpDirectory();
  createdir(g_sTempPath+'CapScreen');  //在%temp%\下建立QooFunds資料夾
  g_sTempPath:=g_sTempPath + 'CapScreen\';
  g_sLogFile := g_sTempPath+'Log.txt';


  if not FileExists(g_sLogFile) then //不存在,重寫
  begin
    AssignFile(m_create_txt,g_sLogFile);
    ReWrite(m_create_txt);
    CloseFile(m_create_txt);
  end;


  {
  g_sTempDir := '' ; g_sLogFile := '' ; fillchar( Buf, MAX_PATH, #0) ;
  GetTempPath(MAX_PATH, @Buf[1]) ;
  g_sTempDir := Buf;
  if g_sTempDir[Length(g_sTempDir)-1] <> '\' then
    g_sTempDir := g_sTempDir + '\' ;

  g_loglevel := LOG_LEVEL_NONE ;
  g_sLogFile := g_sTempDir+'\xtlog.txt' ;
  DebugStr( format('XT Temp File: %s', [g_sLogFile]) ) ;
  if FileExists(g_sLogFile) then
    g_loglevel := LOG_LEVEL_HIGH ;
  }
end;

end.

觀看時使用以下程式碼，加到須要顯示之處

DebugStr('AAInit');
LogToFile('AAInit');