🐷 🏫 👩🏾‍🤝‍👨🏿 डेल्फी में एक फ़ाइल प्रकार के क्षेत्र को आबाद करते हुए WebBrowser 💆 🕙 🎡

WebBrowser घटक के साथ काम करते समय, साइट पर फॉर्म फ़ील्ड भरना अक्सर आवश्यक होता है। सामान्य फ़ॉर्म फ़ील्ड के साथ कोई समस्या नहीं है, उन्हें भरने के लिए मानक विधियाँ मौजूद हैं, लेकिन ब्राउज़र लगातार फ़ाइल प्रकार के साथ फ़ील्ड को भरने से इनकार करता है। इसका कारण उपयोगकर्ता सुरक्षा है। यदि ब्राउज़र इस क्षेत्र में उपयोगकर्ता के कंप्यूटर पर फ़ाइल के लिए पथ को स्वतंत्र रूप से प्रतिस्थापित करने की अनुमति देता है, तो साइट के पृष्ठ पर एक सरल जावास्क्रिप्ट अंतर्निहित का उपयोग करके, किसी भी फ़ाइल को आसानी से निकालना संभव होगा।

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

समस्या को हल करने के लिए विकल्प

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

मैंने तुरंत दूसरा विकल्प छोड़ दिया: बहुत काम और नुकसान। पहली बार में रोका। लेकिन यह भी एक बुरी किस्मत है: यह पता चला है कि अनुरोध के अवरोधन के दौरान हमें पूरा अनुरोध नहीं दिया जाता है, लेकिन केवल वह हिस्सा जो उस स्थान पर जाता है जहां फ़ाइल की सामग्री होनी चाहिए, इस तथ्य के बावजूद कि हमने फ़ील्ड नहीं भरी थी। Google ने सुझाव दिया कि यह Microsoft प्रोग्रामर की एक गलती थी जिन्होंने COM ऑब्जेक्ट बनाया, और नए संस्करणों में यह त्रुटि तय नहीं की गई (IE 9 पर परीक्षण की गई)।

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

वर्ग विकास

सबसे पहले, मैंने अपने लिए कक्षा की योजना निर्धारित की। संक्षेप में, यह इस प्रकार है: मापदंडों का एक सरणी बनाना, एक अनुरोध बनाना, एक अनुरोध भेजना। उन्होंने पैरामीटर सरणी के तत्व की संरचना का भी वर्णन किया:

TCustomPostParam = record name : string; value : string; filename : string; content_type : string; end;

फिर यह तय किया गया कि मापदंडों की सरणी को भरने के तरीके क्या होने चाहिए। मुझे 3 मिले:

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

यह निम्नलिखित निकला:

 function TCustomPostDataSender.AddParam(name, value: string; content_type : string = ''; filename : string = ''):integer; var h : integer; begin SetLength(FParams, Count() + 1); h := high(FParams); FParams[h].name := name; FParams[h].value := value; FParams[h].content_type := content_type; FParams[h].filename := filename; CheckBoundary(name + ' ' + value + ' ' + content_type); result := h; end; procedure TCustomPostDataSender.AddFile(name, path, file_content_type: string); var s : TStringStream; buf : string; begin if not FileExists(path) then exit; file_content_type := Trim(file_content_type); if file_content_type = '' then file_content_type := 'text/plain'; s := TStringStream.Create; try s.LoadFromFile(path); buf := s.DataString; if Pos('text', LowerCase(file_content_type)) = 1 then CheckUTF8(buf); AddParam(name, buf, file_content_type, ExtractFileName(path)); finally s.Free; end; end; procedure TCustomPostDataSender.AddTextFile(name, path: string); begin if not FileExists(path) then exit; if LowerCase(ExtractFileExt(path)) = '.xml' then AddFile(name, path, 'text/xml') else AddFile(name, path, 'text/plain'); end;

फिर यह अनुरोध बनाने और भेजने का कार्य लिखने के लिए है। मुझे यह मिला:

 function TCustomPostDataSender.POST():integer; var sURL, sFlags, sTargetFrame, sPostData, sHeaders : OleVariant; i : integer; buf : string; begin Result := 1; if FURL = '' then exit; try sURL := FURL; sFlags := 64; //      ,       sHeaders := FGetHeader(); buf := ''; for i := 0 to Count() - 1 do begin if i = 0 then buf := buf + '--' + FBoundary + sLineBreak; buf := buf + 'Content-Disposition: form-data; name="'+ FParams[i].name +'"'; //   if FParams[i].filename <> '' then buf := buf + '; filename="'+ FParams[i].filename +'"' + sLineBreak + 'Content-Type: ' + FParams[i].content_type; buf := buf + sLineBreak + sLineBreak; buf := buf + FParams[i].value + sLineBreak; buf := buf + '--' + FBoundary; if i = Count() - 1 then buf := buf + '--'; buf := buf + sLineBreak; end; sPostData := StringToVariantArray(buf); WB.Navigate2(sURL, sFlags, sTargetFrame, sPostData, sHeaders); Clear(); Result := 0; except Result := 999; end; end;

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

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

उदाहरण का उपयोग करें

 var CustomRequest : TCustomPostDataSender; begin CustomRequest := TCustomPostDataSender.Create(WebBrowser); try CustomRequest.AddTextFile('import', FILE_PATH); CustomRequest.AddParam('action', 'save'); CustomRequest.AddParam('submit', 'Import'); CustomRequest.SetURL('http://site.ru/import-file.php'); CustomRequest.SetContentType('multipart/form-data'); CustomRequest.POST(); finally CustomRequest.Free(); end; end;

निष्कर्ष

पूर्ण स्रोत कोड से लिंक करें: pastebin.com/DgykYAxK
Md5hash (काम के लिए DCPcrypt लाइब्रेरी की आवश्यकता है) से लिंक करें: pastebin.com/cTS3ttwZ

क्लास डेल्फी संस्करण 2009+ (यानी संकलक के यूनिकोड संस्करण) के तहत काम करता है और एंबेडेडडब्लूबी घटक के साथ (जो मैं मानक ट्वीब्रोज़र के बजाय अत्यधिक उपयोग करने की सलाह देता हूं)।

यह लेख न केवल उपयोगी हो सकता है, बल्कि इसमें वर्णित समस्याएँ भी हो सकती हैं, जो अन्य प्रोग्रामिंग भाषाओं में पाई जा सकती हैं, जो Microsoft इंटरनेट एक्सप्लोरर ब्राउज़र के COM ऑब्जेक्ट का उपयोग करती हैं, और स्वयं समाधान (कुछ कौशल के साथ) किसी अन्य भाषा में अनुवाद करना मुश्किल नहीं है।

डेल्फी में एक फ़ाइल प्रकार के क्षेत्र को आबाद करते हुए WebBrowser

समस्या को हल करने के लिए विकल्प

वर्ग विकास

उदाहरण का उपयोग करें

निष्कर्ष

More articles: