+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : قرد النار - الفايرمنكي - FMX - FireMonkey (https://delphi4arab.net/forum/forumdisplay.php?fid=32)
+--- الموضوع : ماهي الطريقه لتحميل الفيديوهات (/showthread.php?tid=10605)
الصفحات:
1
2
ماهي الطريقه لتحميل الفيديوهات - وليد غديري - 20-01-2020
السلام عليكم
ارغب في انشاء تطبيق للاندرويد مثلtubemate. Snaptube....التي تقوم بتحميل الفيديوهات من المواقع المدعومة في التطبيق
ولم أعرف كود التحميل
سابقا منحني أحد الاخوه الكرام هذا الكود
PHP كود :
Var
Afile,pat,link: string;
Match:tmatch;
Fs:tfilestream;
Begin
Link:=nethttpclient.get(edite1.text). contentasstring(tencoding.utf8);
Pat:=' mimetype.*url.*?(HTTPS[^"]+)';
If tregex.ismatch(link,pat,[roignorecase,rosingleline]) then
Match:=tregex.match(link,pat,[roignorecase,rosingleline]);
Link:=match.groupe[1].value;
Link:=link.replace('\','');
Link:=link.replace('u0026','&');
Link:=tnetencoding.url.decode(link);
Afile:=tpath.combine(tpath.getdocumentspath+pathdelim,'1.mp4');
If link<>emptystr then
Begin
Tthread.createanonymousethread(
Procedure
Begin
Try
Fs:=tfilestream.create(afile,fmcrete or fmopenwrite);
Nethttpclient.get(link,fs);
Fs.position:=0;
Tthread.synchronize(tthread.currentthread,
Procedure
Begin
Showmessage('downloading.....');
End
Finally
FS.free;
Showmessage('done');
End:
End ).start;
Else
Begin
Raise exception.create('link s null');
End;
End;
ولكن الكود لا يعمل عندي
من المعلوم أن الموقع عند التحميل يعطيك عدة جودات وايظا تختلف الاحجام كما تظهر صورة وعنوان الفيديو
لا أعرف طريقة جلب هاته البيانات من الفيديو
وسؤال آخر
ما الفرق بين nethttpclient وnethttprequest متى نستعمل هذه دون الاخرى
خطرت على بالي فكره وهي أنا مثلا عندما اريد تحميل فيديو من اليوتيوب على الحاسوب اضيف في الرابط يصبح هكذا
linkYouTube.com/watch
حتى احصل على الفيديو من موقع يدعم التحميل من اليوتيوب
ثم أجد الجودات المتوفرة للفيديو كي أحملها
سؤالي هل استطيع عمل تلك الطريقه بالكود في الدلفي لانه تطبيق للاندرويد ومباشرة يعطيني تحميل الفيديو مع الجودات
وشكرا لكم
RE: ماهي الطريقه لتحميل الفيديوهات - محمد عبد العزيز - 21-01-2020
وعليكم السلام ورحمة الله وبركاته
انصحك بمراجعة YouTube Data API
بالتوفيق
RE: ماهي الطريقه لتحميل الفيديوهات - وليد غديري - 21-01-2020
(21-01-2020, 12:34 PM)B.M.AbdelAziZ كتب :شكرا لك طالعت الموضوع ولم أفهم جيدا
وعليكم السلام ورحمة الله وبركاته
انصحك بمراجعة YouTube Data API
بالتوفيق
أولا تسجل في جوجل ابي مع اضافه مفتاح خاص بك لطلب الفيديو من خلاله ولكن لا اعرف الباقي
ممكن مساعده في الكود كيف تفعل ربط بالدلفي والابي الموقع
وشكرا لكم
RE: ماهي الطريقه لتحميل الفيديوهات - محمد عبد العزيز - 22-01-2020
لا برمجة دون فهم
لا فهم دون توثيق ان وجد
يمكنني وضع كود يعمل لكنك لن تتعلم
إن كان هدفك الكود فليساعدك غيري وإن كان التعلم تابع معي
ناخذ رابط فيديو من Youtube كمثال
https://www.youtube.com/watch?v=YE7VzlLtp-4
إنتبه للرابط ما بعد watch?
v=YE7VzlLtp-4
v متغير وقيمته YE7VzlLtp-4
هذه القيمة هي video_id دلليل الفيديو في قاعدة بيانات Youtube
نستعلام عن هذا الفيديو ب
https://www.youtube.com/get_video_info?video_id=YE7VzlLtp-4
جرب الرابط بأي متصفح وقم بحفظ الناتج في ملف نصي txt واخبرني بالنتيجة لنكمل
RE: ماهي الطريقه لتحميل الفيديوهات - S.FATEH - 22-01-2020
السلام عليكم اعتقد انه من الافضل البدا ببرمجة برنامج للويندوز ثم الاتجاه لبرمجته للاجهزة الاخرى بالتوفيق
RE: ماهي الطريقه لتحميل الفيديوهات - وليد غديري - 22-01-2020
(22-01-2020, 02:22 PM)B.M.AbdelAziZ كتب :حسب فهمي بيانات كاملة عن الفيديو لا أدري بأي لغة مكتوب كدلك نوع المتصفح الدي طلب المعلومات الكثير الكثير من المعلومات
لا برمجة دون فهم
لا فهم دون توثيق ان وجد
يمكنني وضع كود يعمل لكنك لن تتعلم
إن كان هدفك الكود فليساعدك غيري وإن كان التعلم تابع معي
ناخذ رابط فيديو من Youtube كمثال
https://www.youtube.com/watch?v=YE7VzlLtp-4
إنتبه للرابط ما بعد watch?
v=YE7VzlLtp-4
v متغير وقيمته YE7VzlLtp-4
هذه القيمة هي video_id دلليل الفيديو في قاعدة بيانات Youtube
نستعلام عن هذا الفيديو ب
https://www.youtube.com/get_video_info?video_id=YE7VzlLtp-4
جرب الرابط بأي متصفح وقم بحفظ الناتج في ملف نصي txt واخبرني بالنتيجة لنكمل
أحببت طريقتك في التعليم
ما الفرق بين المكونينnethttpclient nethttprequest
وشكرا
RE: ماهي الطريقه لتحميل الفيديوهات - محمد عبد العزيز - 22-01-2020
نعم بيانات حول الفيدبو من روابط بجودات مختافة/صورة الفيديو/عنوان الفيديو/...
متغيرات يفصل بينها &
انت بحاحة لتحليل النص وتاخذ منه ما تحتاج
بعض الحروف بحاحة لتعديل حتى تظهر بشكلها الاصلي مثلا %2F تحول الى /
RE: ماهي الطريقه لتحميل الفيديوهات - وليد غديري - 08-02-2020
(22-01-2020, 06:56 PM)B.M.AbdelAziZ كتب :أردت استرجاع المعلومات بصيغةxml لكن الكود يظهر رسالة خطأ
نعم بيانات حول الفيدبو من روابط بجودات مختافة/صورة الفيديو/عنوان الفيديو/...
متغيرات يفصل بينها &
انت بحاحة لتحليل النص وتاخذ منه ما تحتاج
بعض الحروف بحاحة لتعديل حتى تظهر بشكلها الاصلي مثلا %2F تحول الى /
كود :
Var
Ms:tstringstream;
Xmld:txmldocument;
Begin
Ms:=tstringstream.create;
Xmld:=txmldocument.create;
Try
Nethttprequest.get(link,ms);
Ms.postion:=0;
(Xmld.loadfromstream
ms,txmlencoding
.xut8);
Xmld.savefile('d:/1.xml');
Finally
Ms.free;
Xmld.free;RE: ماهي الطريقه لتحميل الفيديوهات - محمد عبد العزيز - 09-02-2020
أولا الكود فوق خطأ لا يحول الى XML
ثانيا لست بحاجة لتحول الى XML بل يكفي فحص النص والبحث عن الرابط/الروابط
تاخذ ما تشاء حسب الجودة التي تريد ولا تهتم بالباقي !
RE: ماهي الطريقه لتحميل الفيديوهات - وليد غديري - 09-02-2020
(09-02-2020, 12:54 PM)B.M.AbdelAziZ كتب :اخي عبد العزيز ممكن تصحح لي الكود اريد ان استرجاع المعلومات بصيغةxml لانها اسهل عندي في التعامل معها وهدا يساعدني في معرفة كيفية استرجاع المعلومات من الواقع بصيغةxml
أولا الكود فوق خطأ لا يحول الى XML
ثانيا لست بحاجة لتحول الى XML بل يكفي فحص النص والبحث عن الرابط/الروابط
تاخذ ما تشاء حسب الجودة التي تريد ولا تهتم بالباقي !
وشكرا لتفهمكم