تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [درس فيديو] استخدام السيريال بورت من اجل التحكم بالاردوينو ahmadpal 0 31 13-05-20, 04:26 PM
آخر رد: ahmadpal
Wink [درس فيديو] عرض خرائط جوجل ماب على مشروعك ahmadpal 0 27 13-05-20, 04:10 PM
آخر رد: ahmadpal
  مثال ممتاز كريستال ريبورت وطريقتين لعمل التقرير habeb4all 0 80 08-05-20, 05:23 PM
آخر رد: habeb4all
  [مشروع] مثال للعمل مع الـBackgroundWorker سعود 7 765 02-05-20, 10:29 AM
آخر رد: معاند الحظ
  مثال بسيط : التعامل مع الصور في قاعدة بيانات اكسس ابو ليلى 0 77 01-05-20, 01:46 AM
آخر رد: ابو ليلى
  البحث في مصفوفة نصية[مثال الحصول على اسم السورة بدلالة ترتيبها الرقمي] سعود 2 237 18-04-20, 10:35 PM
آخر رد: سعود
  مثال عن الباركود asemshahen5 20 3,000 22-03-20, 07:05 PM
آخر رد: asemshahen5
  ياشباب ازاي استخدام ملف xmlكقاعده بيانات ؟؟ modywassemmody 0 124 17-03-20, 02:25 PM
آخر رد: modywassemmody
  مطلوب مثال لعمل جرد بالبار كود new_programer 3 289 07-03-20, 01:03 AM
آخر رد: asemshahen5
  برنامج استخدام السكاين أمجد وضاح 1 452 03-02-20, 03:36 PM
آخر رد: asemshahen5

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


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