2009/07/09

TIdSysLog Class - SendMsg篇(三)

上次我們看到SendMessage / SendLogMessage中有其它的參數,我們再來研究一下它們的內容吧!
這次我們先從TIdSyslogFacility說起吧
顧名思義,這單字就是設備。
原文是這麼解釋的:
Indicates the facility that caused the message to be generated.
送出此訊息的設備別。

在Syslog中,除了訊息以外,再來就是發送訊息的來源,方便我們使用者做後續的追蹤。

結構大致如下

TIdSyslogFacility = (
sfKernel,
sfUserLevel,
sfMailSystem,
sfSystemDaemon,
sfSecurityOne,
sfSysLogInternal,
sfLPR,
sfNNTP,
sfUUCP,
sfClockDaemonOne,
sfSecurityTwo,
sfFTPDaemon,
sfNTP,
sfLogAudit,
sfLogAlert,
sfClockDaemonTwo,
sfLocalUseZero,
sfLocalUseOne,
sfLocalUseTwo,
sfLocalUseThree,
sfLocalUseFour,
sfLocalUseFive,
sfLocalUseSix,
sfLocalUseSeven
);


上面提到的只是發送的部份,在接收的話就只會看到「01234…n」的數字。難道我們只能後續用switch的方式來轉換為文字嗎?
其實TIdSyslogFasility也提供了反向轉換的工具:
結構如下:

function FacilityToString(
AFac: TIdSyslogFacility
): string;


這樣傳送與接收就更趨完整了吧。

參考來源:TIdSyslogFacility

沒有留言:

張貼留言

JSON Parse in Delphi XE (01)

在 Delphi.ktop 的主題中,看到了【 JSON求教 】這一篇 如果在 XE 裡面要實現,是不是也是這麼簡單? 想到了,就開始來實作吧!