Italian [SOLVED] Condivisione BMP

LordZenzo

Well-Known Member
Licensed User
Longtime User
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
 

LordZenzo

Well-Known Member
Licensed User
Longtime User
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
 
Top