salve a tutti
ecco un altro dilemma
so come condividere del testo
B4X:
Sub CondividiTesto(Testi As List)
Dim i As Intent
Dim k As String=""
For o=0 To Testi.Size-1
k=k & Testi.Get(o) & Chr(13)
Next
i.Initialize(i.ACTION_SEND, "")
i.SetType("text/plain")
i.PutExtra("android.intent.extra.TEXT", k)
i.WrapAsIntentChooser("Condivisione Testo")
StartActivity(i)
End Sub
e se voglio condividere una BMP? una foto per esempio
questo chiaramente non funziona
B4X:
Sub CondividiBMP(BMP As Bitmap)
Dim i As Intent
i.Initialize(i.ACTION_SEND, "")
i.SetType("image/*")
i.PutExtra("android.intent.extra.STREAM", BMP)
i.WrapAsIntentChooser("Condivisione Testo")
StartActivity(i)
End Sub
questa variante non genera errore ma non invia nulla
apre la scelta dell'applicazione per condividere ma poi torna alla app chiamante senza inviare nulla
B4X:
Sub CondividiBMP(BMP As Bitmap)
Dim i As Intent
Dim s As OutputStream
i.Initialize(i.ACTION_SEND, "")
i.SetType("image/PNG")
s.InitializeToBytesArray(1)
BMP.WriteToStream(s,100,"PNG")
i.PutExtra("android.intent.extra.STREAM", s)
i.WrapAsIntentChooser("Condivisione Testo")
StartActivity(i)
End Sub