Android Question [B4XPages] How to Send to... / share?

[vecino]

Hi, I am showing the user a window with a list of sound, video and audio files.
I want the user to click on any of them and be able to "send to / share" and "gmail, telegram, whatsapp, protonmail, etc." is displayed.
Summarizing, my doubt is:
When the user selects "share", how do I show those programs so he can choose one of them?
Thank you.

 

[asales]

Dim FileToSend As String = "card.jpg"
  
Dim i As Intent
i.Initialize(i.ACTION_SEND,"")
i.SetType("image/jpg")   'JPEG
'i.SetType("video/*")  'MP4
i.SetComponent("")  'empty: show all the programs that can be share the image, video...

i.PutExtra("android.intent.extra.STREAM", Starter.Provider.GetFileUri(FileToSend))

 

[vecino]

Hi, thanks, I have tried and it doesn't work, it doesn't do anything, it doesn't show any message and it doesn't show any error, nothing at all.
I am using this code:

Sub SendTo( cFile As String )
    '  copy to share dir
    File.Copy(ShCode.cDirMedia,cFile, ShCode.cDirShared,cFile)
    '  share
    Dim i As Intent
    i.Initialize(i.ACTION_SEND,"")
    i.SetType("image/png")
    i.SetComponent("")
    i.PutExtra("android.intent.extra.STREAM",Starter.Provider.GetFileUri(cFile))  
End Sub

 

[vecino]

This was missing:
StartActivityForResult( i )

I don't know if it's correct to use that with B4XPages, or maybe you have to use something else.
Thanks.

Sub SendTo( cFile As String )
    '  copy to share dir
    File.Copy(ShCode.cDirMedia,cFile, ShCode.cDirShared,cFile)
    '  share
    Dim i As Intent
    i.Initialize(i.ACTION_SEND,"")
    i.SetType("image/png")
    i.SetComponent("")
    i.PutExtra("android.intent.extra.STREAM",Starter.Provider.GetFileUri(cFile)) 
    StartActivityForResult( i )
End Sub

 

[Erel]

Important example: https://www.b4x.com/android/forum/threads/class-fileprovider-share-files.97865/#content

 

[vecino]

Thank you very much, it works fine now.