🃏 🕴🏾 🤜🏽 किसी एप्लिकेशन में ड्रैग-एंड-ड्रॉप के माध्यम से एक्सप्लोरर से स्थानांतरित फ़ाइलों की सूची कैसे प्राप्त करें 📧 😚 ✋🏾

यह लेख किस बारे में है:

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

यह कैसे काम करता है:

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

संक्षिप्त समीक्षा:

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

Windows Vista (और उच्चतर) में सुरक्षा समस्याएँ

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

आइए कदम से कदम पर विचार करें कि ड्रैग-एंड-ड्रॉप के माध्यम से फ़ाइल रिसेप्शन को लागू करने के लिए डेल्फी एप्लिकेशन में क्या करने की आवश्यकता है:

1. आवश्यक एपीआई कार्यों तक पहुंच प्राप्त करने के लिए, आपको शेलएपीआई मॉड्यूल को जोड़ना होगा:

uses ShellAPI;

2. DragAcceptFiles फ़ंक्शन को कॉल करें, विंडो के हैंडल के लिए पहला पैरामीटर पास करना जो WM_DROPFILES संदेश को संसाधित करने के लिए ज़िम्मेदार होगा, और दूसरा True, यह दर्शाता है कि यह विंडो सूचनाएँ प्राप्त करने के लिए तैयार है।
उदाहरण के लिए, यह विंडो हमारे आवेदन का मुख्य रूप होगा:

 DragAcceptFiles(Form1.Handle, True);

3. WM_DROPFILES संदेश को संसाधित करें। डेल्फी में, हम आवेदन के मुख्य रूप की कक्षा में एक संदेश हैंडलर की घोषणा कर सकते हैं:

 procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

4. WM_DROPFILES संदेश प्राप्त करते समय, हस्तांतरित फ़ाइलों के बारे में जानकारी प्राप्त करने के लिए DragQueryXXX फ़ंक्शन का उपयोग करें - नीचे दिए गए स्पष्टीकरण देखें।

5. विंडोज को सूचित करें कि इस संदेश ने प्रसंस्करण समाप्त कर दिया है।
यह DragFinish फ़ंक्शन को कॉल करके किया जाता है, जिसमें WM_DROPFILES संदेश को संसाधित करते समय HDROP डिस्क्रिप्टर को पैरामीटर के रूप में पास किया जाता है।
इस फ़ंक्शन को कॉल करने से ड्रैग-एंड-ड्रॉप ऑपरेशन के बारे में डेटा स्टोर करने के लिए उपयोग किए जाने वाले संसाधन मुक्त हो जाएंगे।

 DragFinish(DropH);

6. जब एप्लिकेशन बंद हो जाता है, तो आपको फिर से ड्रैगसेप्टफाइल्स फ़ंक्शन को कॉल करने की आवश्यकता होती है, लेकिन इस बार फाल्स को दूसरे पैरामीटर के रूप में पास करें, जो विंडोज को सूचित करेगा कि विंडो अब WM_DROPFILES संदेश को संसाधित नहीं करता है।

 DragAcceptFiles(Form1.Handle, False);

माइग्रेट की गई फ़ाइलों के बारे में जानकारी प्राप्त करना।

हम माइग्रेटेड फ़ाइलों के बारे में जानकारी प्राप्त करने के लिए दो कार्यों का उपयोग करेंगे - DragQueryFile और DragQueryPoint।
WM_DROPFILES संदेश को संसाधित करते समय इन दोनों कार्यों के लिए HDROP डिस्क्रिप्टर पैरामीटर की आवश्यकता होती है।

सभी ट्रेडों में आपका स्वागत है - DragQueryFile।

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

ड्रॉपहैंडल: एचडीआरपी - ऑपरेशन डिस्क्रिप्टर WM_DROPFILES संदेश द्वारा भेजा गया।
सूचकांक: पूर्णांक - फ़ाइल सूचकांक जब स्थानांतरित फ़ाइलों की सूची को क्वेरी करता है।
FileName: PChar - सूचक को उस बफर में जिसमें फ़ाइल नाम स्थानांतरित किया जाएगा।
BufSize: पूर्णांक - FileName बफर का आकार।

इस फ़ंक्शन को कॉल करने से हमें निम्न डेटा प्राप्त करने का अवसर मिलता है:

स्थानांतरित फ़ाइलों की संख्या प्राप्त करना। इंडेक्स पैरामीटर में $ FFFFFFFF या DWORD (-1) पास करके हम यह जानकारी प्राप्त कर सकते हैं, जबकि FileName पैरामीटर "nil" होना चाहिए, और BufSize पैरामीटर, जो FileName बफर के आकार को नियंत्रित करता है, को शून्य होना चाहिए। फ़ंक्शन द्वारा लौटाया गया मान स्थानांतरित फ़ाइलों की संख्या के बराबर होगा। जाहिर है कि पर्याप्त है।
इंडेक्स पैरामीटर के आधार पर फ़ाइल नाम को संग्रहीत करने के लिए आवश्यक मेमोरी क्षेत्र के आकार को प्राप्त करना (गणना शून्य से जाती है, यानी पहली फ़ाइल शून्य द्वारा सूची में अनुक्रमित होती है)। ऐसा करने के लिए, आपको सूचकांक पैरामीटर का उपयोग करके सूची में आवश्यक फ़ाइल निर्दिष्ट करने की आवश्यकता है, जिससे फ़ाइलनाम और BufSize पैरामीटर पिछले पैराग्राफ के समान हैं। नतीजतन, फ़ंक्शन फ़ाइल नाम को संग्रहीत करने के लिए आवश्यक बाइट्स की संख्या वापस कर देगा।
पारित सूचकांक के आधार पर फ़ाइल नाम प्राप्त करना। ऐसा करने के लिए, सूचकांक पैरामीटर के माध्यम से फ़ाइल इंडेक्स को निर्दिष्ट करने के अलावा, एक बफर (आवश्यक आकार से थोड़ा बड़ा) तैयार करें जो फ़ाइल पथ के बारे में डेटा प्राप्त कर सकता है, साथ ही शून्य को समाप्त कर सकता है।

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

DragQueryPoint

यह फ़ंक्शन, सिद्धांत रूप में, एक वैकल्पिक ड्रैगविकफ़ाइल है, इसे कॉल करके, हम निर्देशांक का पता लगा सकते हैं जिस पर ड्रैग एंड ड्रॉप समाप्त हो गया है।

इसके मापदंडों पर विचार करें:

ड्रॉपहैंडल: एचडीआरपी - ऑपरेशन डिस्क्रिप्टर WM_DROPFILES संदेश द्वारा भेजा गया।
var पॉइंट: TPoint - TPoint संरचना जिसमें ड्रैग-एंड-ड्रॉप ऑपरेशन के पूरा होने के बिंदु के बारे में डेटा वापस किया जाता है। यदि विंडो के क्लाइंट क्षेत्र में ऑपरेशन पूरा हो गया है, तो यह एक गैर-शून्य मान लौटाएगा, अन्यथा फ़ंक्शन शून्य वापस आ जाएगा।

आइए इसकी संपूर्णता पर विचार करें।

एक नया प्रोजेक्ट बनाएं।
हमारे पास एक "मछली" डेल्फी एप्लिकेशन है और हमें इसे ड्रैग-एंड-ड्रॉप के माध्यम से स्थानांतरित फ़ाइलों के बारे में जानकारी प्राप्त करने की क्षमता जोड़ने की आवश्यकता है।
हमारे फार्म में, हम हमारे लिए ब्याज की घटना के हैंडलर को पंजीकृत करेंगे:

 procedure TForm1.FormCreate(Sender: TObject); begin // ...    DragAcceptFiles(Self.Handle, True); // ...    end;

इस कोड के साथ, हमने WM_DROPFILES संदेश प्राप्त करने के लिए साइन अप किया।
यह संदेश हैंडलर जैसा दिखता है:

 procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); var DropH: HDROP; //    DroppedFileCount: Integer; //    FileNameLength: Integer; //    FileName: string; // ,    I: Integer; //      DropPoint: TPoint; //     Drop begin inherited; //   DropH := Msg.Drop; try //     DroppedFileCount := DragQueryFile(DropH, $FFFFFFFF, nil, 0); //        for I := 0 to Pred(DroppedFileCount) do begin //    FileNameLength := DragQueryFile(DropH, I, nil, 0); //  ,          // (Delphi       ) SetLength(FileName, FileNameLength); //    DragQueryFile(DropH, I, PChar(FileName), FileNameLength + 1); // -     (    ) // ...     end; // :  ,     Drop DragQueryPoint(DropH, DropPoint); // ... -      finally //  -   //   DropH    ... DragFinish(DropH); end; //   ,    Msg.Result := 0; end;

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

फ़ाइल नामों के बारे में सभी जानकारी पढ़ने के बाद, हम उस बिंदु के निर्देशांक प्राप्त कर सकते हैं जहां उपयोगकर्ता फ़ाइलों को खींचता है।
जब हमने सभी ऑपरेशनों को पूरा कर लिया है, हम हैंडल को जारी करने के लिए ड्रैगफिनिश फ़ंक्शन को कॉल करेंगे।
कृपया ध्यान दें कि अपवाद को बढ़ाते हुए भी हमें यह कार्रवाई करनी चाहिए।
ठीक है, बहुत अंत में, हम संदेश को संसाधित करने के परिणाम को इंगित करेंगे 0 मान। Msg.Result संरचना में, इस तरह से, यह दर्शाता है, कि हमने इस संदेश को सफलतापूर्वक संसाधित किया है।

आवेदन पूरा होने पर, हम WM_DROPFILES संदेश प्राप्त करने से मुख्य विंडो को डिस्कनेक्ट कर देंगे।

 procedure TForm1.FormDestroy(Sender: TObject); begin // ...    DragAcceptFiles(Self.Handle, False); // ...    end;

हम इसे एक वर्ग के रूप में लागू करते हैं (द डेल्फी वे)

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

इस वर्ग की घोषणा इस प्रकार है:

 type TFileCatcher = class(TObject) private fDropHandle: HDROP; function GetFile(Idx: Integer): string; function GetFileCount: Integer; function GetPoint: TPoint; public constructor Create(DropHandle: HDROP); destructor Destroy; override; property FileCount: Integer read GetFileCount; property Files[Idx: Integer]: string read GetFile; property DropPoint: TPoint read GetPoint; end;

... ठीक है, और इसके कार्यान्वयन:

 constructor TFileCatcher.Create(DropHandle: HDROP); begin inherited Create; fDropHandle := DropHandle; end; destructor TFileCatcher.Destroy; begin DragFinish(fDropHandle); inherited; end; function TFileCatcher.GetFile(Idx: Integer): string; var FileNameLength: Integer; begin FileNameLength := DragQueryFile(fDropHandle, Idx, nil, 0); SetLength(Result, FileNameLength); DragQueryFile(fDropHandle, Idx, PChar(Result), FileNameLength + 1); end; function TFileCatcher.GetFileCount: Integer; begin Result := DragQueryFile(fDropHandle, $FFFFFFFF, nil, 0); end; function TFileCatcher.GetPoint: TPoint; begin DragQueryPoint(fDropHandle, Result); end;

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

चलो TFileCatcher के उपयोग को ध्यान में रखते हुए, WM_DROPFILES संदेश हैंडलर को फिर से लिखें।

 procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); var I: Integer; //      DropPoint: TPoint; //     Drop Catcher: TFileCatcher; //   TFileCatcher begin inherited; Catcher := TFileCatcher.Create(Msg.Drop); try for I := 0 to Pred(Catcher.FileCount) do begin // ...     end; DropPoint := Catcher.DropPoint; // ... -      finally Catcher.Free; end; Msg.Result := 0; end;

भविष्य की योजना

TFileCatcher वर्ग को ड्रैग-एंड-ड्रॉप ऑपरेशन में उपयोग किए जाने वाले सभी एपीआई को छिपाने के लिए बढ़ाया जा सकता है। सच है, यह WM_DROPFILES संदेश को इंटरसेप्ट करने के लिए फॉर्म विंडो तक पहुंच की आवश्यकता होगी।
इस कार्यान्वयन के लिए एक विकल्प फॉर्म विंडो को उप-वर्ग करना है। सच है, यह इस लेख के दायरे से परे है। हालाँकि, यदि आप अधिक जानकारी चाहते हैं, तो ड्रॉप फ़ाइल घटकों के मेरे सेट की जाँच करें।

डेमो ऐप

डेमो आवेदन के लिए स्रोत कोड इस लेख में प्रकाशित कोड पर आधारित है। कोड को डेल्फी के सात के माध्यम से चार संस्करणों में परीक्षण किया गया था।

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

डेमो डाउनलोड करें

किसी एप्लिकेशन में ड्रैग-एंड-ड्रॉप के माध्यम से एक्सप्लोरर से स्थानांतरित फ़ाइलों की सूची कैसे प्राप्त करें