全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2082
推到 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
nil // pointer to data
);


===================引 用 borland_delphi70 文 章===================
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;

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


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

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

找不到事件識別碼 1 (在來源 Creater 中) 的描述。本機電腦可能沒有所需的登錄資訊或訊息 DLL 檔案,因此無法顯示發自遠端電腦的訊息。您可以使用 /AUXSOURCE= flag 來重新抓取這個描述。請參閱 [說明及支援] 來了解詳細資料。以下資訊為事件的一部份: Error, Message I Keyin.

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

感謝...


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