Italian [SOLVED] Condivisione BMP

[LordZenzo]

salve a tutti
ecco un altro dilemma
so come condividere del testo

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

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]

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

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

 

[LordZenzo]

trovata soluzione
basta inizializare l'intent diversamente
ossia

i.Initialize("android.intent.action.SEND", "")

al posto di

i.Initialize(i.ACTION_SEND, "")