VB.NET و BITS - خلفية خدمة نقل ذكي
-
06-09-2019 - |
سؤال
لديه أي أجزاء واحدة تستخدم في vb.net؟ إذا كان الأمر كذلك، هل لديك عينات التعليمات البرمجية والمشورة؟
كنت أبحث في Sharpits ولكن لدي مشروع VB أردت استخدام البتات. هل من الممكن استخدامه مع برنامج VB.NET الخاص بي؟ (.NET 2.0) تم إغراء محاولة تحويل كل فئة إلى VB.NET في مجلد Sharpbits.base لكنه احسب سأطلبه في حالة توجه شخص ما هذا الطريق من قبل.
تحرير: موافق الناس في حالة تشغيل هذا السؤال. ما يمكنك القيام به هو في مجلد Sharpbits.base (الذي تقوم بتنزيله من Codeplex) هناك DLL يمكنك الرجوع إليه في دليل BIN. يمكنك إضافة ذلك إلى مراجعك للوصول إليها. بمناسبة كونراد كجابة لأنه كان لطيفا بما فيه الكفاية للنشر.
مزيد من التحرير:
تمكنت من الحصول على Sharpbits العمل مع بعض الكود السريع التي قمت بلصقها أدناه لأي شخص قد يتعثر على هذا السؤال. كما ذكرت أعلاه أضف DLL إلى مشروعك.
Dim b As New SharpBits.Base.BitsManager
Dim mynewjob As SharpBits.Base.BitsJob = _
b.CreateJob("jobname", SharpBits.Base.JobType.Download)
mynewjob.AddFile("\\server\share\bigfile.zip", "c:\bigfile.zip")
mynewjob.Resume()
ستحتاج إلى كتابة بعض المنطق للتحقق من حالة المهمة. بمجرد أن يضرب الوضع "المنقول"، يمكنك وضع علامة عليه بعد ذلك. سيؤدي ذلك إلى كتابة الملف من .bin لاسم الملف الذي تدرجه. كان هناك شيء ساعدني في تثبيت أدوات دعم Windows (يمكنك الحصول عليه من قرص مضغوط / قرص DVD في نظام التشغيل Windows 2003 في مجلد Sup Tools) واستخدام bitsadmin.exe لعرض حالة المهمة أثناء تصحيح الأخطاء. آمل أن يساعد هذا الصاعد التالي. =)
المحلول
أي سبب لماذا لا يمكنك ببساطة استخدام Sharpbits في VB؟ ميزة .NET هو على وجه التحديد يمكن أن تكون المكتبات المكتوبة في لغات .NET مختلفة بسلاسة حتى تتمكن من استخدام Sharpits في VB، بغض النظر عن لغة .NET المتوافقة معها.
نصائح أخرى
هل يمكن أن نلقي نظرة هنا:
باستخدام Windows XP خلفية خدمة النقل الذكية (BITS) مع Visual Studio .NET
لقد بدأت من هنا لكتابة مكتبة الخاصة بي لإدارة البتات لنقل ملف فيديو كبير عبر شبكة LAN الخاصة. مثال على صافي 1.1 ولكن يجب ألا يكون منفذ صعبة إلى Net 2.0.
إليك بديل جديد. يحتوي فريق BITS في Microsoft الآن على صفحة استدعاء البتات من .NET و C # باستخدام DLL المرجعية بالإضافة إلى مكالمة عينة كاملة Bits Manager. على جيثب.
لقد حاولت فقط استخدامها مع Visual Basic؛ انتهت رمزي إلى الأعلى
Imports BITS = BITSReference1_5
Module Module1
Sub Main()
Dim mgr = New BITS.BackgroundCopyManager1_5
Dim jobGuid As BITS.GUID
Dim job As BITS.IBackgroundCopyJob
mgr.CreateJob("My simple job", BITS.BG_JOB_TYPE.BG_JOB_TYPE_DOWNLOAD, jobGuid, job)
job.AddFile("http://www.microsoft.com", "c:\temp\2019\BITS-VB\Downloadfile.html")
job.Resume()
End Sub
End Module
(لاحظ أنني أضفت أيضا إشارة إلى DLL التي قمت بتنزيلها من مصدر Bits Manager من دليل DLL المرجعي)