線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2266
推到 Plurk!
推到 Facebook!

程式寫入事件檢視器時,無法寫入(描述)

答題得分者是:syntax
borland_delphi70
中階會員


發表:8
回覆:50
積分:51
註冊:2002-12-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-10-20 12:08:02 IP:59.124.xxx.xxx 訂閱
procedure TEventLogAgent.LogMessage(Message: String; EventType: DWord;  Category: Word; ID: DWord);
var sString: array[0..1] of string;
begin
sString[0]:= 'Error';
sString[1]:= Message;
if FEventLogHandle = 0 then
FEventLogHandle := RegisterEventSource(nil, // nil for local computer
PChar(FSourceName) // source 來源
);
ReportEvent(FEventLogHandle, //EventLog Handle
EventType, //EventType
Category, //Category
ID, //ID
nil, //user SID
2, // one substitution string
0, // 0:no data 1:with data
@sString, // pointer to string array
nil // pointer to data
);
end;

請問各位長官,請問上述程式為何一直無法寫入(描述),感謝。
syntax
尊榮會員


發表:26
回覆:1139
積分:1258
註冊:2002-04-23

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-10-20 12:56:49 IP:118.231.xxx.xxx 訂閱
ReportEvent(FEventLogHandle, //EventLog Handle
EventType, //EventType
Category, //Category
ID, //ID
nil, //user SID
2, // one substitution string
0, // 0:no data 1:with data
@sString[0], // pointer to string array@sString, // pointer to string array
nil // pointer to data
);
end;

請問各位長官,請問上述程式為何一直無法寫入(描述),感謝。
borland_delphi70
中階會員


發表:8
回覆:50
積分:51
註冊:2002-12-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-10-20 15:58:13 IP:59.124.xxx.xxx 訂閱
長官,感謝您的回覆,事件檢視器中的描述如下:

以下資訊為事件的一部份: Error, Message I Keyin.

綠色部分的確是程式寫入的,但請問我要如何才能將黃色部分移除,是必須要將Message存一份在Reg中嗎?

感謝...


系統時間:2024-03-28 19:21:08
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!