"पर्ल" 1 सी तक पहुंच: एंटरप्राइज 8.2

मुझे लगता है कि आप सभी ऐसे सॉफ़्टवेयर उत्पाद को 1C: एंटरप्राइज़ 8.2 के रूप में जानते हैं। और, शायद, आप में से कई इस तथ्य से अवगत हैं कि आप 1C से कनेक्ट कर सकते हैं: OLE / COM कनेक्शन का उपयोग करके एंटरप्राइज। लेकिन आप में से कितने जानते हैं कि एक OLE / COM कनेक्शन का उपयोग करके आप न केवल 1C प्रोग्राम कोड को निष्पादित कर सकते हैं, बल्कि 1C: एंटरप्राइज सर्वर को "प्रबंधित" भी कर सकते हैं? उदाहरण के लिए, आप 1C से कनेक्ट कर सकते हैं: एंटरप्राइज़ सर्वर क्लस्टर एजेंट, खुले क्लाइंट सत्रों की एक सूची प्राप्त करें, उन्हें जारी किए गए लाइसेंस के बारे में जानकारी पढ़ें ... इसके अलावा, OLE / COM कनेक्शन के माध्यम से कनेक्शन विकल्प की उपलब्धता प्रोग्रामर के शस्त्रागार का विस्तार करती है और एक प्रोग्रामिंग भाषा चुनने की क्षमता जोड़ती है जो उत्कृष्ट है। अंतर्निहित भाषा 1C से: एंटरप्राइज़। आप ऐसी कोई भी भाषा चुन सकते हैं जो OLE / COM घटकों के साथ काम करने में सक्षम हो: चाहे वह VB.Net हो, C / .net, या जावा, या यहां तक ​​कि ... पर्ल। जी हां, आपने सही सुना। यह पर्ल है।
इसलिए ...

टास्क।

एजेंट 1C: एंटरप्राइज़ 8.2 सर्वर सेवा का विंडोज कार्य अनुसूचक का उपयोग करके स्वचालित पुनरारंभ को लागू करना आवश्यक है। लेकिन पुनरारंभ करने से पहले, आपको यह जांचने की आवश्यकता है कि कोई 1 सी: एंटरप्राइज सर्वर पर स्थित आधार डेटाबेस में काम कर रहा है या नहीं। यदि कोई काम करता है, तो सेवा को फिर से शुरू करने की अनुमति नहीं है।

निर्णय।

एक सवाल आप में रेंग सकता है, कह रहा है, आपको समय-समय पर सर्वर एजेंट सेवा को पुनरारंभ करने की आवश्यकता क्यों है? तथ्य यह है कि संस्करण 1C: एंटरप्राइज 8.2 x64 में एक "छोटी" त्रुटि है। यह infobase के गतिशील अद्यतन के दौरान होता है और डेटाबेस को इसमें अद्यतन और कार्य करने की असंभवता की ओर ले जाता है। आधिकारिक तौर पर डेवलपर्स (उनके साथ व्यक्तिगत पत्राचार में) ने कहा कि यह त्रुटि संस्करण 8.2 में सुधार के लिए नियोजित नहीं है। हमें आधिकारिक रिलीज़ 8.3 तक इंतजार और "जीवित" रहना होगा। मैं किसी तरह इस त्रुटि को ठीक करने का एक तरीका जानता हूं (यदि आवश्यक हो, तो मैं आपको टिप्पणियों में बताऊंगा या लेख को अपडेट करूंगा)। लेकिन, जैसा कि डेवलपर्स आश्वासन देते हैं, यह समाधान डेटाबेस को पूरी तरह से नष्ट कर सकता है। इस बाईपास विधि का उपयोग करने के एक वर्ष के लिए, मेरा आधार ढह नहीं गया है। लेकिन इस लेख के बारे में नहीं।


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

1 सी में: एंटरप्राइज सिंटैक्स असिस्टेंट, डेटाबेस कनेक्शन के लिए जाँच करने के लिए एक विधि पाई गई, लेकिन इसने एजेंट 1 सी: एंटरप्राइज सर्वर के लिए OLE / COM कनेक्शन का उपयोग किया। खैर ... चलिए शुरू करते हैं।



पर्ल का उपयोग करके OLE / COM ऑब्जेक्ट के साथ काम करने के लिए, हमें Win32 :: OLE मॉड्यूल का उपयोग करने की आवश्यकता है। StrawberryPerl असेंबली में मैं उपयोग करता हूं, यह मॉड्यूल पहले से ही प्रीइंस्टॉल्ड हो चुका है। लेकिन भले ही यह नहीं है, आप इसे CPAN के माध्यम से स्थापित कर सकते हैं:

C:\Perl\perl\bin\cpan Win32::OLE 

डेटाबेस कनेक्शन 1C की सूची प्राप्त करने के लिए, हमें चाहिए:

• V82.COMConnector ऑब्जेक्ट के लिए COM कनेक्शन बनाएँ;
• सर्वर क्लस्टर 1C के एजेंट से कनेक्ट करें: एंटरप्राइज;
• 1 सी क्लस्टर ऑब्जेक्ट प्राप्त करें;
• क्लस्टर में लॉग इन करें;
• इस क्लस्टर पर 1C डेटाबेस की सूची प्राप्त करें;
• हमें जो आधार चाहिए, उसे खोजो;
• इस डेटाबेस के सक्रिय कनेक्शनों की एक सूची प्राप्त करें।

यहां टिप्पणियों के साथ कोड है जो 1C: एंटरप्राइज़ डेटाबेस 1C: एंटरप्राइज़ सर्वर के साथ सक्रिय क्लाइंट कनेक्शन की एक सूची प्राप्त करता है।

 use strict; use warnings; use Win32::OLE; use Data::Dumper; sub getConnectionsCount { #   ( )         my ($server, $dbname) = @_; #  COM- my $ole1c = Win32::OLE->new("V82.COMConnector") or die "Could not create OLE-connector!\n"; #     1: my $_agent = $ole1c->ConnectAgent($server) or die "Could not connect to server!\n" . cnv(Dumper $ole1c->ErrorDescription()); #    (   ) my $_cluster = $_agent->GetClusters()->[0] or die "Could not get cluster 0 from array\n"; #    . #          , #        1:. #        ,   #    . #    ,      . $_agent->Authenticate($_cluster, "", ""); #    ,     my $_basesinfo = $_agent->GetInfoBases($_cluster); #     my @_bases = grep { defined $_->{Name} && $_->{Name} =~ m/^$dbname$/ } @$_basesinfo; #     my $_base = $_bases[0]; #    my $connCounter = 0; #        0 my $_baseconns = $_agent->GetInfoBaseConnections($_cluster, $_base) or return 0; # “”     ,      . #    ,      #   1: foreach (@$_baseconns) { #           if ($_->{Application} !~ m/JobScheduler/ && $_->{Application} !~ m/SrvrConsole/) { $connCounter++; } } return $connCounter; } #   . #     ,      1: print “There are “ . getConnectionsCount(“localhost:1540”, “Base”) . “ active connections\n”; 

आप "नेट प्रारंभ" और "नेट स्टॉप" कमांड का उपयोग करके एजेंट सेवा को पुनः आरंभ कर सकते हैं:

 net stop <> net start <> 

वह पूरा कोड जो मैं उस कार्य को करता है जिसे मैंने बिटकॉइन पर रखा था।