ارسال عکس با بلوتوث و برنامه های دیگر در B4A

خوشحال میشم بازیم رو امتحان کنید دوستان می تونید با این قطعه کد ( که خودم راستو ریجش کردم ) عکس یا هر فایل دیگی رو از برنامتون برای گوشی دیگه بفرستید :

If Not(File.Exists(File.DirRootExternal & "/majid/" ,"")) Then
	File.MakeDir (File.DirRootExternal ,"majid")
End If
File.Copy(File.DirAssets ,"main.jpg",File.DirRootExternal & "/majid/","main.jpg")
Dim r As Reflector
Dim f As Object
f = r.CreateObject2("java.lang.String", Array As Object("file:///sdcard/majid/main.jpg"), Array As String("java.lang.String"))
Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("image/*")
share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "parse", _
	    Array As Object(f), Array As String("java.lang.String")))
share.WrapAsIntentChooser("Share JPG")
StartActivity(share)

خوشحال میشم بازیم رو امتحان کنید