SaveFrom.net + बैसाखी, या PLS प्लेलिस्ट डाउनलोड करें

हाय हैबोर्त्सी।
मुझे लगता है कि न केवल मेरे पास vk.com पर एक शानदार प्लेलिस्ट है। अभी हाल ही में, मुझे ऑफ़लाइन सुनने के लिए संगीत को डाउनलोड करने के तरीके से हैरान था। जल्द ही मुझे एक सुविधाजनक सेवा SaveFrom.net मिल गई । और सबकुछ ठीक हो जाएगा, लेकिन वह एक बार में ही सारा संगीत नहीं निकाल देंगे। वह हमें वरिन्ता प्रदान करता है:
1. हमें url का एक गुच्छा दें ताकि हम पूरी चीज़ को डाउनलोड मैनेजर में पेस्ट करें, जैसे कि DownloadManager
2. m3u / pls में प्लेलिस्ट को सहेजें जो यूआरएल खेलते हैं

पहले मामले में, हमारी फ़ाइल का नाम 3ee56ab0933e.mp3 होगा। ID3 टैग जगह में होगा ( UPD उन सभी गानों के लिए नहीं है जिनमें एक सही ID3Tag है), लेकिन आपको यह स्वीकार करना होगा, यह देखने के लिए प्रत्येक गीत को खोलने के लिए असुविधाजनक है कि यह क्या है
दूसरे मामले में - हमारे पास विशुद्ध रूप से प्लेलिस्ट में हैं, लेकिन गीत का शीर्षक एकदम सही है।

चूंकि मैं फॉर्म 3ee56ab0933e.mp3 की फाइलें नहीं देखना चाहता हूं, और मैं यह सब मैन्युअल रूप से नाम नहीं देना चाहता हूं, मैंने अपने घुटने पर एक टूल स्केच किया है जो pls प्लेलिस्ट को पढ़ सकता है और 10 कनेक्शन में संगीत डाउनलोड कर सकता है।

बाइनरी + स्रोत

संकलित निष्पादन योग्य + स्रोत कोड (डेल्फी पर) यहाँ स्थित है

कैसे उपयोग करें

1. हमारे VKontakte प्लेलिस्ट को नीचे तक स्क्रॉल करें ताकि SaveFrom.net पूर्ण pls प्राप्त कर सके
2. डाउनलोड प्लेलिस्ट चुनें:

3. दिखाई देने वाली विंडो में, क्लिपबोर्ड पर pls प्लेलिस्ट को कॉपी करें:

4. इस प्लेलिस्ट को टेक्स्ट में PLS टेक्स्ट के साथ फ़ील्ड में मेरी उपयोगिता में डालें:

5. डाउनलोड बटन पर क्लिक करें, और देखें कि संगीत कैसे डाउनलोड करना शुरू करता है।
6. यदि आवश्यक हो, तो VKMusic फ़ोल्डर प्रोग्राम की कार्यशील निर्देशिका में बनाया जाएगा। फ़ोल्डर का नाम बदला जा सकता है:

पथ निरपेक्ष हो सकता है।

अगर Allow Skip files में कोई डाउट है, तो प्रोग्राम डाउनलोड करने से पहले चेक करेगा कि डिस्क पर उसी नाम की कोई फाइल है या नहीं, वह उसे डाउनलोड नहीं करेगा।

स्रोत कोड में एक बहुत ही संक्षिप्त विषयांतर

मैं मुख्य रूप से उन लोगों के लिए लिख रहा हूं जो अपने लिए कोड बदलना चाहते हैं।
कार्यक्रम वर्चुअल ट्रीव्यू और इंडी का उपयोग करता है।
untPLSparser.pas - PLS फ़ाइलों का पार्सर। मॉड्यूल इंटरफ़ेस में एक एकल फ़ंक्शन है:

function Parse(const text: string): TPLSItems; 

इनपुट पर - पीएलएस प्लेलिस्ट, ऑडियो रिकॉर्डिंग का वर्णन करने वाली संरचनाओं की एक सरणी देता है (शीर्षक + url + अक्सर ट्रैक अवधि)

यह पूरी बात एक और TMusicList सरणी में बदल गई है जिसे untDownloadList.pas में वर्णित किया गया है।
TMusicList में TMusicItem शामिल है और डाउनलोड की स्थिति, साथ ही साथ हुई त्रुटियों के बारे में जानकारी संग्रहीत करने के लिए आवश्यक है।

इसके बाद, डाउनलोड प्रक्रिया शुरू होती है। 10 पूर्व-निर्मित TDLThread थ्रेड्स जिनका कार्यान्वयन untDownloadThread.pas में है वे गाने डाउनलोड करना शुरू करते हैं।
डाउनलोड को TfrmMain.RunFreeDownload के माध्यम से untMain.pas में लॉन्च किया गया है।
सबसे पहले, हम उस रिकॉर्ड का सूचकांक प्राप्त करते हैं जिसे TfrmMain.GetFreeItem विधि का उपयोग करके डाउनलोड किया जाना चाहिए। फिर हम जांचते हैं कि क्या हमारे पास फ़ाइलों को छोड़ने के लिए कोई डाउट है, तो देखें कि क्या ऐसी कोई फ़ाइल है, और यदि है तो छोड़ दें।

कॉलबैक में डाउनलोड करने की प्रक्रिया में

 DLProgress, DLError, DLComplete, DLTerminate 

ऐसी घटनाएं आती हैं जहां हम वास्तव में TMusicItem में जानकारी को अपडेट करते हैं, एक नया डाउनलोड शुरू करते हैं या एक त्रुटि की रिपोर्ट करते हैं।

डाउनलोड स्ट्रीम निम्नानुसार काम करती हैं।
निर्माण के बाद, थ्रेड लूप में डाउनलोड टास्क का इंतजार करता है:

  while (Url = '') do begin if Terminated then Exit; FInWork := False; Sleep(1); end; 

जैसे ही डाउनलोड करने के लिए Url है - यह डाउनलोड करना शुरू कर देता है। चूंकि इंडी ब्लॉकिंग सॉकेट्स पर एक लाइब्रेरी है, इसलिए डाउनलोड को रोकने के लिए एक तंत्र होना चाहिए। मैं TIDHTTP.OnWorkBegin, TidHTTP.OnWork, TidHTTP.OnWorkEnd कॉलबैक में विशेष EStopTask अपवाद का उपयोग करता हूं, जो मुझे किसी भी समय वास्तव में डाउनलोड को रद्द करने की अनुमति देता है।

अगर कुछ गलत हुआ है, लेकिन हम इसे सही तरीके से संसाधित कर सकते हैं, और काम करना जारी रख सकते हैं, हम प्रक्रिया करते हैं, हम अधूरी फाइल को हरा देते हैं। यदि थ्रेड में कोई अपवाद होता है जिसे हम संभाल नहीं सकते हैं (उदाहरण के लिए, AV), तो मानक तंत्र के अनुसार, थ्रेड को नस्ट किया जाएगा और एक अपवाद ऑब्जेक्ट FatalException में होगा। इसलिए, untMain.pas में, मैं OnTerminate की प्रक्रिया करता हूं, थ्रेड के अपवाद ऑब्जेक्ट की जांच करता हूं, और यदि यह मौजूद है, तो मैं पहले से ही मुख्य थ्रेड में एक अपवाद फेंक देता हूं।

निष्कर्ष में

यह सब, पढ़ने के लिए धन्यवाद। मुझे खुशी है कि अगर मेरी "बैसाखी" अचानक आपके लिए सुविधाजनक हो गई।