تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] {تم التعديل}مثال حول استخدام مكتبات جوجل درايف
#1
Smile 
بسم الله الرحمن الرحيم
السلام  عليكم ورحمة الله وبركاته اخواني الكرام

مثال سريع حول استخدام مكتبات جوجل درايف للمبرمجين 

كان هذا رد على استفسار احد الاخوة
وبناء على رغبة الاخ المشرف عاصم مشكورا
تم نقله الى قسم الامثلة والمشاريع

اهلا فيك اخي واحيي طريقتك واسلوبك في طرح السؤال ومحاولة بذل الجهد للتوضيح من اجل الوصول الى جواب 

بالنسبة لسؤالك ، دعني اخبرك ان طريقة المتصفح لاتنفع وهي ايضا غير احترافية
والطريقة الصحيحة هي ان تستخدم مكتبات مطوري Google Drive لانها الخبز من الخباز .

وصدقني اني بالمصادفة قريت سؤالك وبالمصادفة ايضا انا كنت اشتغل على تصميم برنامج نفس فكرتك لاني خسرت اكثر من مرة كل الملفات 
الموجودة عندي بالهارد. وقلت لازم اصمم برنامج يقوم برفع ملفاتي التي اختارها بالطريقة اللي اختارها الى الدرايف اول باول

والان كيف الطريقة ؟

جوجل درايف يوفر لمن يريد استخدامه من المبرمجين عن طريق برامجهم او تطبيقاتهم مكتبات كاملة متكاملة تساعدك تعمل كل شي يختص بالدرايف
والتعامل معه والطريقة سهلة بعون الله وهي كالتالي:

1- تدخل على الر ابط   التالي وتسجل وتنشى مشروع جديد

2- الموقع يعطيك معرفات هي مثل كلمات سرية او مفاتيح خاصة لك وحدك تستخدمها لجعل برنامجك يستطيع الرفع والتنزيل من والى الدرايف وكل العمليات الاخرى
3- بعد حصولك على المعرفات وهي اثنين الاول يسمى ClientId  والثاني ClientSecret يمكنك ان تبدأ بكتابة الكود وتصميم برنامجك

شاهد الفيديو لتعرف طريقة الحصول على مفاتيح الاعتماد



مههم تعرف ان برنامجك لازم يحصل على الاذن والسماح في اول عملية اتصال يجريها بر نامجك مع جوجل درايف
باقي الامور الاخرى مشروحة ولها امثلة في مواقع كثيرة لكن انا راح ارفق لك برنامجي عشان تشوف الكود وتجرب احسن من الحوسه والبحث الطويل
لاني الى الان ماعرفت كيف ارفع مجلد من جهازي الى الدرايف لان كل الامثلة اللي وجدتها للرفع كانت فقط للملفات.

يمكنك الاستفادة من الكود التالي للحصول على السماح لبرنامجك مع ملاحظة تغيير ClientId و ClientSecret  الى التي حصلت عليها

كود :
 Private Service As DriveService = New DriveService

   Private Sub Authorize()

       Dim scopes As String() = New String() {DriveService.Scope.Drive, DriveService.Scope.DriveFile}
       Dim clientId = "change this"
       Dim clientSecret = "change this"

       Dim MyUserCredential As UserCredential = GoogleWebAuthorizationBroker.AuthorizeAsync(New ClientSecrets() _
       With {.ClientId = clientId, .ClientSecret = clientSecret}, scopes, Environment.UserName, CancellationToken.None, _
                    New FileDataStore("MyAppsToken")).Result
   

       Service = New DriveService(New BaseClientService.Initializer() _
                                With {.HttpClientInitializer = MyUserCredential, .ApplicationName = "change this"})

       Service.HttpClient.Timeout = TimeSpan.FromMinutes(100)
   
   End Sub



وفي برنامجي عملت كود لرفع الملفات وحذفها وافراغ المحذوفات 
طبعا برنامجي الى الان في طور النسخ واللصق والتجريب فلا تآخذني على التصميم 

اتمنى لك ولي وللجميع التوفيق


مصادر اخرى:

ملاحظة اخيرة انا استخدم الاصدار v2 من المكتبة اما الاصدارات الاحدث فلاتعمل على فيجوال بيسك 2010 وماقبله 
والله اعلم

الرد
تم الشكر بواسطة: asemshahen5 , محمد كريّم
#2
جزاك الله عنا كل خير و بارك لك و فيك لما تقدمه من دعم و امثلة جميلة .
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: معاند الحظ , معاند الحظ
#3
لا حاجة للشكر فانا اعطيت الى الان لاشيء يذكر في مقابل ما اخذت من
الاخوة الافاضل لهم مني كل الشكر والتقدير

الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] استخدام TryParse لمدخلات اكثر امانا Anas Mahmoud 2 139 17-09-20, 01:39 AM
آخر رد: Anas Mahmoud
  [مثال] مثال عن رسم دوائر بشكل جميل عبد الهادي بهاب 0 99 09-09-20, 01:49 AM
آخر رد: عبد الهادي بهاب
  مثال على عمل qr code و قرائة ال qr code من ملف صورة او من الشاشة mohamed haroon 4 2,265 08-09-20, 10:48 AM
آخر رد: Emad aldeen
  مرة اخرى - شرح مبسط لطريقة استخدام الاداة youtube-dl للتحميل من اليوتيوب معاند الحظ 0 115 05-09-20, 11:18 PM
آخر رد: معاند الحظ
  مثال بسيط للنقل المواد بين المخازن ارجو ان يعجبكم خالد كامل1 1 160 27-08-20, 10:35 PM
آخر رد: خالد كامل1
  [كود] مثال عن رسم خط مستقيم بين نقطتين عبد الهادي بهاب 7 395 07-08-20, 04:52 AM
آخر رد: عبد الهادي بهاب
  مثال استيراد اى ملف اكسيل وتصدير البيانات الى ملف اكسيل new_programer 2 946 05-08-20, 07:31 PM
آخر رد: عبد الهادي بهاب
  [Acces2007] مثال على شجرة محاسبية Mohamad Anan 2 472 30-07-20, 02:38 PM
آخر رد: المعترس
  مثال في عمل النسخة الاحتياطية مع ضغط الملف asemshahen5 0 190 26-07-20, 02:09 AM
آخر رد: asemshahen5
  مثال لحمايه ملفات البرنامج من النسخ alshandodi 3 550 17-07-20, 12:28 PM
آخر رد: ibra9009

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم