消息察看器用來察看同消息關聯的額外信息。比如如果當前的消息是由SendObject方法發送的話，消息察看器就會顯示對象全部的publised屬性當前值?！?/DIV>
調用堆棧面板會根據csmEnterMethod消息顯示一個堆棧視圖?！?/DIV>
Scratch面板則是用來顯示非可持續的信息的。當我們想跟蹤某些信息，但又不想在消息日志中記錄它們的時候，比如當我們想察看象鼠標當前位置這類大量的并重復的消息時，Scratch面板是非常有用的。這時我們可以可以使用TCodeSite對象的WritePoint方法，并指定Line ID參數以便指定用來容納鼠標信息的scratch面板行數。
下面就讓我們用一個簡單的例子來演示一下如何從程序中發送消息給CodeSite Viewer：
（1）創建一個新的項目，然后切換
組件面板到CodeSite頁面（CodeSite安裝后會在系統中安裝兩個組件TCSGlobalObject和TCSObject）。選擇TCSGlobalObject組件然后放到窗體上。TCSGlobalObject組件提供了設計時對全局TCodeSite對象的交互（全局TCodeSite是在CSInft單元中被初始化的）。
（2）添加一個按鈕，然后在它的OnClick事件中寫下如下代碼：
//CodeSite就是全局的TCodeSite對象
CodeSite.SendMsg(‘CodeSite的第一條消息’);
（3）編譯并運行這個簡單的程序。運行后點擊按鈕，CodeSite Dispatcher和CodeSite Viewer將會運行。同時在CodeSite Viewer的消息列表中將會看到程序發出的消息（注意：我們沒有必要在程序運行前啟動CodeSite Dispatcher和CodeSite Viewer，因為TCodeSite 對象在需要發送消息的時候會自動啟動它們的）。運行結果如下圖4.38所示：
（4）接下來，停止程序，在OnClick事件處理過程中添加下面代碼：
CodeSite.SendObject('Form1', Form1 );
（5）重新編譯運行程序，再點按鈕一次，這回你會在CodeSite Viewer中看到兩條消息。其中Form1對應的消息包括Form1的對象信息。
（6）為了看到Form1的相關聯的對象信息，選擇CodeSite Viewer的菜單命令View|Inspector會在消息列表右側顯示一個新的面板，Form1的published屬性都被顯示在其中，如下圖4.39所示：
（7）再次停止程序，然后修改OnClick過程中代碼如下：
CodeSite.EnterMethod('Button1Click');
CodeSite.SendMsg('CodeSite的第一條消息');
CodeSite.SendObject('Form1', Form1 );
CodeSite.ExitMethod('Button1Click' );
（8）這次我們再運行程序點擊按鈕后，就會看到“CodeSite的第一條消息”和“Form1”的消息被縮進在“Button1Click”消息之間，如下圖4.40所示：
通過添加EnterMethod和ExitMethod方法的調用，我們可以生成一個日志來記錄方法何時被調用。
看過例子之后，我們就會發現CodeSite的功能是非常強大的，我們只要簡單的在程序中添加幾條語句就可以生成非常詳細的信息，并通過CodeSite Viewer以生動的圖表表現出來。接下來，我們再來談談CodeSite的高級應用技術。
發送消息到日志文件
每個程序或多或少都會有Bug，不在這時發生，也會在那時發生，短時間內不發生，很長時間就可能發作，有時反復出現，有時非常偶然的才能被發現。如果一個人告訴你他寫的程序在任何時候都沒有任何問題，他一定是在撒謊。正是由于Bug的偶然性和隱蔽性，就使得我們往往很難重復用戶提交的Bug，這就給我們調試程序并找到問題的原因產生了極大的障礙，而CodeSite能夠發送消息到日志文件的特性就使得用戶報告Bug變得更容易，他們只要把運行時生成的信息文件提交就可以了。相應的我們調試程序的工作也會變得更輕松，我們可以使用CodeSite Viewer來直觀的分析錯誤發生的原因和位置。
要想改變消息發送的目標，我們可以通過設定TCodeSite 對象的DestinationDetails屬性來實現。這項功能要求客戶的機器上必須安裝了CodeSite Dispatcher，它屬于CodeSite中可自由分發的部分。下面的要講具體過程仍然是基于前面講過的例子：
（1）在窗體的OnCreate事件中添加下面代碼：
CodeSite.DestinationDetails := 'File[Path=C:/FirstLog.csl]';
（2）編譯并余興程序，這回我們在點擊按鈕后，消息就不再被發送給CodeSite Viewer而是發送到Ｃ盤的FirstLog.csl文件中。
（3）使用CodeSite Viewer加載FirstLog.csl文件，這回我們就象先前一樣察看被保存的CodeSite消息了。
（4）如果我們想把消息同時發送到CodeSite Viewer和日志文件的話，只修改前面的代碼為:
CodeSite.DestinationDetails := 'Viewer,File[Path=C:/FirstLog.csl]';
發送用戶定制的數據
雖然TCodeSite 類提供了大量的處理不同數據類型的方法，但有時我們可能會需要發送某種自定義格式的數據信息。為此，TCodeSite 類定義了SendCustomData 方法，它支持發送任意的數據類型，并會根據一個自定義的格式器來格式化數據以便CodeSite Viewer可以正確的顯示數據。
首先我們需要創建一個TCSFormatter 對象的子類，然后重載對象的FormatData，InspectorType和TypeName方法。然后調用CodeSite對象管理器對象CSObjectManager的來注冊新的TCSFormatter子類。此外，我們還需要調用RegisterCustomFormat方法來注冊一個新的消息類型。
下面是一個實際應用的例子，單元CSEmployee.pas中實現了一個TCSEmployeeRecord記錄類型的定制格式器：
unit CSEmployee;
interface
uses
Windows, Graphics, CSIntf;
const
csmEmployeeSummary = csmUser + 1;
csmEmployeeDetails = csmUser + 2;
首先在Uses部分添加對CSIntf 單元的引用。第二步是為每一個格式器定義新的CodeSite消息類型常數，上面我們定義了兩個常數，注意常數應該大于csmUser，但不能大過32,000。
type
TCSEmployee = record
LastName: string;
FirstName: string;
Address: string;
City: string;
State: string;
PhoneNumber: string;
HireDate: TDateTime;
Salary: Currency;
VacationDays: Integer;
SickDays: Integer;
Manager: Boolean;
end;
上面的記錄就是我們要發送的自定義的數據類型?！?/DIV>
TCSEmployeeSummaryFormatter = class( TCSFormatter )
public
function InspectorType: TCSInspectorType; override;
procedure FormatData( var Data ); override;
function TypeName: string; override;
end;
TCSEmployeeDetailsFormatter = class( TCSFormatter )
public
function InspectorType: TCSInspectorType; override;
procedure FormatData( var Data ); override;
function TypeName: string; override;
end;
上面是兩個定制的格式器類的定義。第一個格式器將把TCSEmployee 記錄格式化為一個文本格式，第二個格式化器將把TCSEmployee 記錄格式化為網格樣式。
implementation
uses
SysUtils;
{=========================================}
{== TCSEmployeeSummaryFormatter Methods ==}
{=========================================}
function TCSEmployeeSummaryFormatter.InspectorType: TCSInspectorType;
begin
Result := itStockStringList;
end;
實現一個自定義的格式化器的第一步是確定哪種類型的內置察看器將被用來察看格式化后的數據，這里使用的是字符串列表察看器。察看器類型將被FormatData方法所使用。
procedure TCSEmployeeSummaryFormatter.FormatData( var Data );
var
EmpRec: TCSEmployee;
begin
EmpRec := TCSEmployee( Data );
AddLine( EmpRec.FirstName + ' ' + EmpRec.LastName );
AddLine( EmpRec.Address );
AddLine( EmpRec.City + ', ' + EmpRec.State + ' ' + EmpRec.ZipCode );
AddLine( '' );
AddLine( 'Phone: ' + EmpRec.PhoneNumber );
AddLine( 'Hire Date: ' + DateToStr( EmpRec.HireDate ) );
AddLine( 'Salary: ' + Format( '%m', [ EmpRec.Salary ] ) );
AddLine( '' );
AddLine( 'Vacation Days: ' + IntToStr( EmpRec.VacationDays ) );
AddLine( 'Sick Days: ' + IntToStr( EmpRec.SickDays ) );
if EmpRec.Manager then
AddLine( 'Manager: Yes' )
else
AddLine( 'Manager: No' );
end;
FormatData 方法是核心部分，注意傳遞給FormatData方法的Data參數是一個無類型的可變參數。這就意味著這個參數可以是任何數據類型的，通過格式注冊過程，我們可以確保強制類型映射為自定義的數據記錄，而不會發生轉換錯誤。
轉換數據類型后，我們就可以對數據進行格式化了，這里使用TCSFormatter 基類的 AddLine方法在字符串間添加分割線來進行格式化。
function TCSEmployeeSummaryFormatter.TypeName: string;
begin
Result := 'TCSEmployee';
end;
TypeName方法的重載是可任選的，但通常我們可以用它來返回顯示在消息列表中的字符串。
{=========================================}
{== TCSEmployeeDetailsFormatter Methods ==}
{=========================================}
function TCSEmployeeDetailsFormatter.InspectorType: TCSInspectorType;
begin
Result := itStockGrid;
end;
對于employeedetails格式器來說，命名網格察看器將被用來察看數據信息：
procedure TCSEmployeeDetailsFormatter.FormatData( var Data );
var
EmpRec: TCSEmployee;
begin
EmpRec := TCSEmployee( Data );
AddNameValuePair( 'LastName', EmpRec.LastName );
AddNameValuePair( 'FirstName', EmpRec.FirstName );
AddNameValuePair( 'Address', EmpRec.Address );
AddNameValuePair( 'City', EmpRec.City );
AddNameValuePair( 'State', EmpRec.State );
AddNameValuePair( 'ZipCode', EmpRec.ZipCode );
AddNameValuePair( 'PhoneNumber', EmpRec.PhoneNumber );
AddNameValuePair( 'HireDate', EmpRec.HireDate );
AddNameValuePair( 'Salary', Format( '%m', [ EmpRec.Salary ] ) );
AddNameValuePair( 'VacationDays', EmpRec.VacationDays );
AddNameValuePair( 'SickDays', EmpRec.SickDays );
AddNameValuePair( 'Manager', EmpRec.Manager );
end;
這里為了在網格察看器中格式化數據，我們使用AddNameValuePair方法來實現?！?/DIV>
function TCSEmployeeDetailsFormatter.TypeName: string;
begin
Result := 'TCSEmployee';
end;
下面兩個過程是用來封裝對SendCustomData方法的調用的，這里對全局的TCodeSite對象實例CodeSite進行了調用：
{=====================}
{== Support Methods ==}
{=====================}
procedure
CSSendEmployeeSummary( const Msg: string; EmpRec: TCSEmployee );
begin
CodeSite.SendCustomData( csmEmployeeSummary, Msg, EmpRec );
end;
procedure CSSendEmployeeDetails( const Msg: string; EmpRec: TCSEmployee );
begin
CodeSite.SendCustomData( csmEmployeeDetails, Msg, EmpRec );
end;
最后，不要忘了調用CSObjectManager.RegisterCustomFormatter方法把格式器注冊到CodeSite對象管理器中。
initialization
CSObjectManager.RegisterCustomFormatter( csmEmployeeSummary,
TCSEmployeeSummaryFormatter );
CSObjectManager.RegisterCustomFormatter( csmEmployeeDetails,
TCSEmployeeDetailsFormatter );
end.
