TEventLogger के लिए कोई प्रकाश?

Question

मैं डेल्फी 5 एप्लिकेशन से विंडोज लॉग में ईवेंट लॉगिंग करने और here पर किसी अन्य पोस्ट से लॉग इन करने के बारे में देखना चाहता हूं, मुझे लगता है कि मैं ऐसा करने के लिए TEventLogger कक्षा का उपयोग कर सकता हूं।

हालांकि, मुझे TEventLogger.LogMessage प्रक्रिया के सिंटैक्स पर कोई दस्तावेज नहीं मिल रहा है, इसलिए मुझे नहीं पता कि सभी पैरामीटर का मतलब क्या है, उनका उपयोग कैसे करें, या यहां तक ​​कि संभावित मूल्य भी उपलब्ध हैं।

मैंने चारों ओर देखने की कोशिश की है, और मुझे लगता है कि एम्बरकाडेरो का एक पृष्ठ यह बताता है कि समारोह मौजूद है, लेकिन इसके वाक्यविन्यास पर कुछ भी नहीं है, और एमएसडीएन कोई मदद नहीं है क्योंकि मुझे केवल बिज़टॉक संस्करण मिल सकता है जो मुझे अच्छा नहीं करता ।

क्या किसी के पास इस पर एक सहायता पृष्ठ या जानकारी है जो इस पर कुछ प्रकाश डाल सकती है कि मैं इसके साथ क्या कर सकता हूं?

Answer 1

TEventLoggerTService के लिए एक आंतरिक सहायक वर्ग है।

आप TService.LogMessage() फ़ंक्शन का उपयोग करके संदेश लॉग इन करें, न कि TEventLogger पर सीधे कॉल करके। LogMessage() के पैरामीटर सीधे Win32 API ReportEvent() फ़ंक्शन के मानकों के साथ मेल खाते हैं।

विवरण के लिए Win32 API दस्तावेज़ देखें।

यदि आप एक सेवा अनुप्रयोग नहीं लिख रहे हैं, तो आपको इसके बजाय Win32 API RegisterEventSource() और ReportEvent() फ़ंक्शंस को कॉल करने की आवश्यकता है।

Answer 2

ईवेंट लॉग करने के लिए एक आवेदन पत्र लिखने के एक साधारण उदाहरण:

procedure WriteToLog(Msg:string; EventId: Word = 0); 
var 
    h: THandle; 
begin 
    h := RegisterEventSource(nil, PChar(Application.ExeName)); 
    if h > 0 then 
    try 
    ReportEvent(h, 0, 0, EventId, nil, 1, 0, @Msg, nil); 
    finally 
    DeregisterEventSource(h); 
    end; 
end; 

procedure TForm7.Button1Click(Sender: TObject); 
begin 
    WriteToLog('* Blah Blah Blah *'); 
end; 

लेकिन सावधान रहना है कि उलझन में विवरण इस तरह नहीं registering the EventID with the system दे देंगे:

ईवेंट ID के लिए विवरण (0) स्रोत में (सी: \ दस्तावेज़ और सेटिंग्स \ fgaillard \ मेरे दस्तावेज़ \ RAD स्टूडियो \ प्रोजेक्ट \ Project1.exe) नहीं मिल सका। स्थानीय कंप्यूटर में रजिस्ट्री जानकारी या दूरस्थ कंप्यूटर से संदेश प्रदर्शित करने के लिए आवश्यक DLL फ़ाइलों को संदेश नहीं हो सकता है। आप/AUXSOURCE = ध्वज का उपयोग को इस विवरण को पुनर्प्राप्त करने में सक्षम हो सकते हैं; विवरण के लिए सहायता और सहायता देखें। निम्नलिखित जानकारी घटना का हिस्सा है: * ब्ला ब्ला ब्ला *।