क्या उसी डेल्फी सेवा एप्लिकेशन के कई उदाहरण स्थापित करना संभव है?

Question

मेरे पास डेल्फी में एक सेवा अनुप्रयोग है जो बहुत अच्छा काम करता है। यह वही करता है जो मैं चाहता हूं और सब खुश हैं। सब ठीक है जब तक कि मैं एक ही मशीन पर उस सेवा के दो (या अधिक) उदाहरण नहीं चलाता। चूंकि सेवा का नाम प्रोग्राम में (कोड की नाम संपत्ति के माध्यम से) कोड किया गया है, इसलिए मैं किसी भी दिए गए कंप्यूटर पर केवल एक बार सेवा स्थापित कर सकता हूं। यदि मैं रन-टाइम पर नाम संपत्ति को संशोधित करने का प्रयास करता हूं, तो सेवा तब तक प्रतिक्रिया नहीं देती जब तक कि नाम संपत्ति उसी समय पर सेट न हो जो डिज़ाइन समय के दौरान सेट की गई हो।

मैं इस जहाँ मैं कोड है कि सेवा नियंत्रण प्रबंधक के साथ सीधे बातचीत नहीं अलग इकाई (रों) में बाहर समझाया के सभी के लिए एक समाधान किया है। फिर मैं प्रत्येक उदाहरण के लिए एक अलग डेल्फी प्रोजेक्ट लिखता हूं जिसे मैं उस सेवा की चाहता हूं जिसमें स्वयं को लॉन्च करने के लिए पर्याप्त कोड है और मुख्य कोड चलाने शुरू करें।

इस विधि मेरी राय में, है, बदसूरत और निश्चित रूप से अक्षम है। यह दो उदाहरणों के लिए ठीक काम करता है, लेकिन फिर हमें तीसरे और चौथे की आवश्यकता होती है और ...

क्या कोई तरीका है कि मैं अपना कोड संशोधित कर सकता हूं ताकि मेरे पास केवल एक डेल्फी प्रोजेक्ट है जो कई को अपने आप इंस्टॉल और चला सकता है कुछ सरल रन-टाइम इनपुट (उदाहरण के लिए कमांड लाइन ध्वज) के साथ सेवा उदाहरण?

या शायद एक व्यापक प्रश्न: वहाँ एक "सही तरीके से" लक्ष्य को पूरा करने के लिए है?

Answer 1

आपने यह स्पष्ट नहीं किया है कि आपने TService उपclass में बदलने की कोशिश की है।

क्या आपने "पहले इंस्टॉल" हैंडलर जोड़ा है?

कुछ की तरह:

procedure TServiceMain.ServiceLoadInfo(Sender : TObject);// new method, not an override 
begin 
    Name := ParamStr(2); 
    DisplayName := ParamStr(3); 
end; 

procedure TServiceMain.ServiceBeforeInstall(Sender: TService); 
begin 
    ServiceLoadInfo(Self); 
end; 
procedure TServiceMain.ServiceCreate(Sender: TObject); 
begin 
    ServiceLoadInfo(Self); 
end; 

आप इस नियमित रूप से करते हैं, उपवर्ग TService thie निर्माता में बजाय क्या करना है।

साथ ही आप BeforeUninstall में भी ऐसा ही करना चाहिए - एक ही विधि में दोनों घटनाओं इशारा करते हैं।

C:\>servicename /install MyService "My Service Description" 

Answer 2

आप आंतरिक रूप से एक से अधिक थ्रेड के साथ अपनी सेवा, हर एक की तरह सेवा की उसके अपने संस्करण/कॉपी अभिनय बना सकते हैं। आप इसे सेवा नियंत्रक एपीआई, आईआईआरसी के साथ नियंत्रित करते हैं।

Answer 3

खैर हाँ यह एक ही सेवा के कई उदाहरण स्थापित करने के लिए संभव है, तो आप बस गतिशील समय स्थापित पर नाम (क्रम नहीं) लेकिन इस यह वांछनीय नहीं है को बदलने की जरूरत। (कोड प्रोजेक्ट http://www.codeproject.com/KB/dotnet/MultipleInstNetWinService.aspx पर कुछ नमूना कोड है)

हालांकि मैं आपके दृष्टिकोण पर पुनर्विचार करने के इच्छुक हूं, सेवा प्रक्रियाओं को वास्तव में सिंगलटन होने का मतलब है, यदि आपको किसी प्रक्रिया के चलने के कई उदाहरणों की आवश्यकता है, तो शायद आपकी सेवा बस प्रक्रिया के बजाय कई प्रक्रियाओं को नियंत्रित और प्रबंधित करें।

Answer 4

लपेटें एक वर्ग है कि TThread से विरासत में अपने कोड के सभी।

जब आपकी सेवा शुरू होती है तो यह सेटिंग फ़ाइल से या रजिस्ट्री से एक संख्या पढ़ेगी और आपकी कक्षा के कई उदाहरण बनाएगी।

प्रत्येक इंस्टेंस स्वतंत्र रूप से चलता है।

चल रहे उदाहरणों की संख्या बदलने के लिए आप सेवा बंद कर सकते हैं, सेटिंग संपादित कर सकते हैं (फ़ाइल या रजिस्ट्री में) और सेवा को पुनरारंभ करें।

Answer 5

ऊपर स्वीकृत उत्तर बहुत उपयोगी था।

कोड मैं प्रयोग किया है:

procedure TService1.ServiceAfterInstall(Sender: TService); 
begin 
//http://stackoverflow.com/questions/612587/is-it-possible-to-install-multiple-instances-of-the-same-delphi-service-applicati 
//http://www.c-sharpcorner.com/UploadFile/timosten/DynamicServiceInCSharp11262005062503AM/DynamicServiceInCSharp.aspx?ArticleID=4d5020e4-7317-425c-ab29-5bf37a1db421 
//http://support.microsoft.com/kb/137890 
    SaveRegSetting('\SYSTEM\CurrentControlSet\Services\' + Name, 'ImagePath', ParamStr(0) + ' --name=' + Name, HKEY_LOCAL_MACHINE) 
end; 

procedure TService1.ServiceCreate(Sender: TObject); 
begin 
    Name := Trim(FCommandLineOptions.Values['name']); 
    DisplayName := Name; 
end; 

SaveRegSetting अपने ही प्रक्रिया है और FCommandLineOptions एक वस्तु है कि आदेश पंक्ति पैरामीटर tokenises है।