🎺 🤛🏿 ⬆️ Freepascal का उपयोग करके USRLE से जानकारी प्राप्त करने का स्वचालन 👩🏾‍🤝‍👩🏼 😍 👨🏼‍🎓

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

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

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

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

IEGRULstreamer = interface procedure GetExtractByOGRN(OGRN: string; ; isLegal: boolean; var Extract: TStream); procedure GetLegalsListByName(Name, Region: string; ; var LegalsList: TCollection); end;

यह समझने के लिए कि रहस्यमय पैरामीटर X और किस संग्रह का दूसरा फ़ंक्शन वापस आएगा, हम देखेंगे कि साइट अनुरोध को कैसे निष्पादित करती है।

1. साइट में कैप्चा की खोज और जाँच के लिए पहचानकर्ताओं के लिए इनपुट फ़ील्ड के साथ एक फॉर्म है:

2. कैप्चा एक पूर्व-उत्पन्न छिपे हुए फ़ील्ड का उपयोग करके कैप्चाटोकन नाम के साथ किया जाता है, जो इस टोकन के लिए कैप्चा छवि बनाने के लिए जावा स्क्रिप्ट का उपयोग करता है।

3. "खोज" बटन पर क्लिक करने के बाद, एक POST अनुरोध सर्वर को भेजा जाता है, जिसके प्रसंस्करण परिणामों में JSON ऑब्जेक्ट की एक सरणी के साथ वापस आ जाता है। यह JSON प्रतिक्रिया खोज परिणामों में तालिका को देखने के लिए एक और जावा स्क्रिप्ट का उपयोग करती है।

तो, पहला स्नैग कैप्चा चेक है। अतिरिक्त कार्यक्षमता के साथ साइट के साथ बातचीत करने के हमारे तरीकों को बोझ नहीं करने के लिए, हम कैप्चा को एक अलग फ़ंक्शन के रूप में संसाधित करने के लिए कार्रवाई करेंगे। और एक्स में, हमारे पास कॉलबैक विधि के लिए एक पैरामीटर होगा, जिसमें इनपुट पर कैप्चा छवि और आउटपुट पर मान्यता प्राप्त कैप्चा के साथ एक स्ट्रिंग है:

 TCapthcaRecognizeFunc = function(Captha: TStream): string of object; ... procedure GetExtractByOGRN(OGRN: string; CaptchaFunc: TCapthcaRecognizeFunc; isLegal: boolean; var Extract: TStream);

कैप्चा को संसाधित करने वाला फ़ंक्शन यह आपकी पसंद के अनुसार कर सकता है: उपयोगकर्ता को इसे मैन्युअल रूप से दर्ज करने दें, छवि को स्वचालित पहचान के लिए भुगतान किए गए सर्वर पर भेजें, स्वतंत्र रूप से एल्गोरिथम के अनूठे ज्ञान का उपयोग करके इसे पहचानें। चित्र की सादगी के लिए, और चूंकि मेरे मामले में औद्योगिक पैमाने पर कोई कैप्चा प्रवाह अपेक्षित नहीं है, इसलिए हम पहला विकल्प चुनते हैं:

 function TForm1.RecognizeFunc(captcha: TStream): string; begin CaptchaImg.Picture.LoadFromStream(captcha); Result := InputBox('','    ', ''); end;

दूसरा सवाल सर्वर JSON प्रतिक्रिया की सामग्री है। यहाँ एक उदाहरण है कि इसमें क्या आता है:

JSON ने स्वरूपित प्रतिक्रिया दी

 { "query": {"captcha":"382915", "ogrninnfl":null, "fam":null, "nam":null, "otch":null, "region":null, "ogrninnul":null, "namul":"", "regionul":"73", "kind":"ul", "ul":true, "searchByOgrn":false, "nameEq":false, "searchByOgrnip":true}, "rows": [ {"T":"ED346E713D4A1AC851F9B589C6D2AECD1D809D5B6B5D1B98E697B6E0FD873E137B828AC59A60D159BB2894F11D00AB5639E2ACEE4E2ED5B7AC7A6EFE28FD987BC288B93C4D3D3EC1008DA0F128BA7E5E", "INN":"7325001144", "NAME":"  ", "OGRN":"1027301175110", "ADRESTEXT":"432017,  ,  ,  , 1", "CNT":"4", "DTREG":"03.12.2002", "KPP":"732501001"}, {"T":"2ECB284C7682E5F1D1129AA3074FABB4B74BB28EA426AF79C091CEDEA0D9E391CA26FF405A7C9742466E19C78FBE5A59BDCBCD21268FFD8AFD3A8509CCA84541", "INN":"7303007375", "NAME":"      \"   \"", "OGRN":"1027301173283", "ADRESTEXT":"432063,  ,  ,   , 7", "CNT":"4", "DTREG":"27.11.2002", "KPP":"732501001", "DTEND":"01.09.2010"}, ] }

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

  "Https://egrul.nalog.ru/download/"

और वस्तु का मुख्य मान "T" है। उत्पन्न पीडीएफ फाइल का जीवनकाल कुछ मिनटों का है।

Http अनुरोध बनाने के दौरान मुझे जो दो मुख्य कठिनाइयाँ हुईं, वे सही हेडर मान हैं और स्ट्रिंग को POST अनुरोध के मापदंडों के साथ जोड़ रहे हैं। लेकिन अंतर्निहित ब्राउज़र टूल का उपयोग करके पृष्ठ का एक सरल विश्लेषण (क्रोम में F12 दबाकर कॉल किया जाता है) ने आपकी ज़रूरत की हर चीज़ दी। यहाँ हेडर का एक उदाहरण है जिसके साथ सर्वर 400 खराब अनुरोध के बजाय सही उत्तर देता है:

 POST / HTTP/1.1 Host: egrul.nalog.ru Connection: keep-alive Accept: application/json, text/javascript, */*; q=0.01 Origin: https://egrul.nalog.ru X-Requested-With: XMLHttpRequest User-Agent: Chrome/67.0.3396.99 Safari/537.36 Content-Type: application/x-www-form-urlencoded Referer: https://egrul.nalog.ru/ Accept-Encoding: gzip, deflate, br Accept-Language: ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7

और यहाँ मापदंडों के साथ लाइन है:

 kind=ul&srchUl=name&ogrninnul=7716819629&namul=%D0%BF%D1%80%D0%B0%D0%B2% D0%B8%D1%82%D0%B5%D0%BB%D1%8C%D1%81%D1%82%D0%B2%D0%BE&regionul=73 &srchFl=ogrn&ogrninnfl=&fam=&nam=&otch=&region=&captcha=449023&captchaToken=DAEDA 7504CACAC82CF09E08319B68DF5F9BD62B2F44D33DD679DDE55B5CF58B17FEC84E78CEEB9639 84D2B2BD8C3AA15

इन प्रारंभिक आंकड़ों के साथ, हम कार्य के कार्यान्वयन के लिए आगे बढ़ते हैं। मैं निम्नलिखित पुस्तकालयों का उपयोग फ़्रीस्पैकल के लिए करूँगा:

Synapse सर्वर के लिए http- request भेजने के सबसे सरलीकृत (उपयोग के लिए) फ़ंक्शन के साथ एक बहुत ही सुविधाजनक पुस्तकालय है, यह एसएसएल के साथ भी काम करता है, लेकिन इसके लिए प्रोजेक्ट फ़ोल्डर या सिस्टम में ओपनएसएसएल पुस्तकालयों की उपस्थिति की आवश्यकता होती है, साथ ही एक अतिरिक्त मॉड्यूल का कनेक्शन भी होता है। यह हमारी परियोजना के लिए निम्नलिखित पुस्तकालय मॉड्यूल को जोड़ने के लिए पर्याप्त है: httpsend, ssl_openssl, synautil।

Fcl-json निर्मित पुस्तकालय - आवश्यक मॉड्यूल: fpjson और fpjsonrtti - प्रसंस्करण वस्तुओं की अधिकतम सुविधा के लिए JSON में लौट आए।

Fcl-xml बिल्ट-इन लाइब्रेरी के अलग-अलग मॉड्यूल - कुछ कार्यों के लिए, आपको HTML के कुछ हिस्सों को DOM ऑब्जेक्ट्स के साथ काम करना होगा, इसलिए हम SAX_HTML, DOM_HTML, DOM मॉड्यूल्स को कनेक्ट करेंगे।

आइए हम वस्तुओं और प्रकारों का वर्णन करते हैं जो अंततः निकले:

 TEGRULItem = class(TCollectionItem) private fT, fINN, fNAME, fOGRN, fADRESTEXT, fCNT, fDTREG, fDTEND, fKPP: string; public function GetPdfLink: string; published property T: string read fT write fT; property INN: string read fINN write fINN; property NAME: string read fNAME write fNAME; property OGRN: string read fOGRN write fOGRN; property ADRESTEXT: string read fADRESTEXT write fADRESTEXT; property CNT: string read fCNT write fCNT; property DTREG: string read fDTREG write fDTREG; property DTEND: string read fDTEND write fDTEND; property KPP: string read fKPP write fKPP; end;

इस वर्ग में हम उन वस्तुओं को पैक करेंगे जो सर्वर JSON प्रतिक्रिया में पंक्तियों के सरणी में वापस आएंगे। हम उन्हें JSONToCollection का उपयोग करके पढ़ेंगे, लेकिन इसके लिए हमें प्रत्येक ऑब्जेक्ट को संग्रह का एक तत्व बनाने और सभी संबंधित गुणों को प्रकाशित के रूप में घोषित करने की आवश्यकता है। आरटीटीआई फ़ंक्शंस में (साथ ही डेल्फी में) संपत्ति के नाम तक पहुँच प्राप्त करते हैं जब उन्हें इस दायरे में घोषित किया जाता है। और fpjsonrtti मॉड्यूल से JSONToCollection फ़ंक्शन सिर्फ RTTI फ़ंक्शन है जो क्लास गुणों के नाम के साथ JSON ऑब्जेक्ट से कुंजियों के नामों की तुलना करता है।

क्लास इंटरफेस में एक GetPdfLink फ़ंक्शन भी है, जो वेब एड्रेस और "टी" प्रॉपर्टी के मूल्य का पता लगाकर यूएसआरएलई से जानकारी के साथ एक पीडीएफ-फाइल डाउनलोड करने के लिए एक लिंक देता है।

ऊपर घोषित इंटरफ़ेस को लागू करने वाला मुख्य वर्ग इस प्रकार होगा:

  TEGRULStreamer = class(TInterfacedObject, IEGRULStreamer) private HTTPSender: THTTPSend; Doc: THTMLDocument; Inputs: TDOMNodeList; captchaURL, captchaToken, captcha, Params: string; function GetCaptchaToken: string; function GetLegalsList: TCollection; procedure PrepareHeaders; procedure ProcessCaptcha(CaptchaFunc: TCapthcaRecognizeFunc); public procedure GetExtractByOGRN(OGRN: string; CaptchaFunc: TCapthcaRecognizeFunc; isLegal: boolean; var Extract: TStream); procedure GetLegalsListByName(Name, Region: string; CaptchaFunc: TCapthcaRecognizeFunc; var LegalsList: TCollection); destructor Destroy; override; end;

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

प्रारंभिक क्रियाओं के इनकैप्सुलेशन को देखते हुए, मुख्य तरीके आम तौर पर केवल http-request पैरामीटर और लौटे डेटा प्रकार की एक स्ट्रिंग बनाकर भिन्न होंगे।

विधि कोड TEGRULStreamer.GetExtractByOGRN

 procedure TEGRULStreamer.GetExtractByOGRN(OGRN: string; CaptchaFunc: TCapthcaRecognizeFunc; isLegal: boolean; var Extract: TStream); begin ProcessCaptcha(CaptchaFunc); if isLegal then Params := 'kind=ul' else Params := 'kind=fl'; Params += '&srchUl=ogrn&srchFl=ogrn&ogrninnul='; if isLegal then Params += OGRN; Params += '&namul=&regionul=&ogrninnfl='; if not isLegal then Params += OGRN; Params += '&fam=&nam=&otch=&region&captcha=' + captcha + '&captchaToken=' + captchaToken; WriteStrToStream(HTTPSender.Document, Params); if not HTTPSender.HTTPMethod('POST', EGRUL_URL) then raise Exception.Create('   '); HTTPSender.Headers.Clear; if HTTPSender.HTTPMethod('GET', TEGRULItem(GetLegalsList.Items[0]).GetPdfLink) then Extract := HTTPSender.Document else Extract := nil;

यहां, जैसा कि हम देख सकते हैं, विधि बूलियन पैरामीटर isLegal का भी उपयोग करती है, और यदि यह सही पर सेट नहीं है, तो खोज कानूनी संस्थाओं के बजाय उद्यमियों के डेटाबेस से गुजरती है।

विधि कोड TEGRULStreamer.GetLegalsListByName

 procedure TEGRULStreamer.GetLegalsListByName(Name, Region: string; CaptchaFunc: TCapthcaRecognizeFunc; var LegalsList: TCollection); begin ProcessCaptcha(CaptchaFunc); Params := 'kind=ul&srchUl=name&srchFl=ogrn&ogrninnul=&namul='; Params += Name + '&regionul=' + Region + '&ogrninnfl=&fam=&nam=&otch=&region'; Params += '&captcha=' + captcha + '&captchaToken=' + captchaToken; WriteStrToStream(HTTPSender.Document, Params); if not HTTPSender.HTTPMethod('POST', EGRUL_URL) then raise Exception.Create('   '); LegalsList := GetLegalsList; end;

उपयोगिता विधियों की भूमिका इस प्रकार है:

ProcessCaptcha - फ़ेडरल टैक्स सर्विस का प्रारंभिक html पृष्ठ डाउनलोड करता है, कैप्चा टोकन की खोज करता है, इस टोकन द्वारा उत्पन्न चित्र को डाउनलोड करता है, और कैप्चा पहचान के लिए इसे कॉलबैक विधि पर पुनर्निर्देशित करता है। अंत में, विधि बाद के POST अनुरोध के लिए सही हेडर भी सेट करती है।

GetCaptchaToken - डोम संरचना में पेज से सभी इनपुट फ़ील्ड को लोड करता है, पहचानकर्ता capthcaToken के साथ एक छिपे हुए क्षेत्र की खोज करता है और उसका मूल्य लौटाता है।

GetLegalsList - RTTI फ़ंक्शन JSONToCollection का उपयोग करके ऊपर वर्णित TEGRULItem की वस्तुओं का एक संग्रह देता है।

~~GetPdfLink~~ - OGRN या TIN द्वारा खोज करने के लिए, सही स्थिति में, केवल एक परिणाम हमेशा लौटाया जाएगा, इसलिए GetExtractByOGRN में फ़ंक्शन को संग्रह में पहले तत्व के लिए कहा जाता है।

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

परिणामी लाइब्रेरी और उसके कोड के परीक्षण के साथ एक संग्रह यहां है ।

हमेशा की तरह, मुझे परियोजना और कार्यान्वयन दोनों पर किसी भी रचनात्मक आलोचना की खुशी होगी। मैं समझता हूं कि ऐसे कई कारक हैं जिन्हें अभी भी ध्यान में रखा जा सकता है: http-रिक्वेस्ट का जवाब देने में देरी, जिसके परिणामस्वरूप एप्लिकेशन फ्रीज हो जाएगा; गलत http प्रतिक्रियाएँ और अन्य स्थितियाँ।

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

पीएस क्षमा करें, प्रयोगात्मक खरगोश की भूमिका के लिए Sberbank, और डाउनलोड किए गए सैकड़ों बार। विज्ञान के नाम पर, बिल्कुल।

Freepascal का उपयोग करके USRLE से जानकारी प्राप्त करने का स्वचालन

More articles: