293 > ارسال فایل با بلوتوث اسان B4A

سلام

یک روز مانده به سال نو به همتون تبریک میگم

پلاسه کهنه اندیشه را دور باید انداخت

کتابخونه ای که اپ کردم برای 1 فایل با 1 به دیگر گوشی اماده شده

فقط یک خط کد خیلی سادست و خیلی هم کار ما رو راحت کرده

این کد رو توی بیسیک تبدیل به کتابخونه کردم و در اختیار شما قرار دادم

مثال

Dim b1 as Bluetooth

b1.Initialize

("b1.SendFileBluetooth(File.DirRootExternal,"/icm/","trick.apk