B4A發送照片和文字通過意向

Question

電報，我讀了幾個例子，但我不能讓它與B4A

Dim share As Intent 
share.Initialize(share.ACTION_SEND,"") 
share.SetType("image/text/plain") 
share.PutExtra("android.intent.extra.TEXT","myText") 
share.PutExtra("android.intent.extra.STREAM",ParseUri(File.Combine(File.DirRootExternal, "Test.png"))) 
share.WrapAsIntentChooser("Share") 

Answer 1

您應該包括SetPackage工作：

Dim jo As JavaObject = share 
    jo.RunMethod("setPackage", Array("org.telegram.messenger"))