Android Question How to share image file to Facebook's Messager?

Theera · Apr 9, 2023

Assume I have qrcode image in ImageView1 ,I would like to share it to someone's messager.
So then I have studied SSg's share image strategy. I try to code as fallowing his guide , but it isn't worked for me.

Theera · Apr 9, 2023

I've tried another strategy (Using intent) ,it is still not worked for me again.

B4X:

    Dim u As Uri 'ContentResolver library
    File.Copy(File.DirAssets, "logo.png", File.DirDefaultExternal, "logo.png")
    'u.Parse("file://" & File.Combine(PicDir, "tmpfile.jpg"))
    u.Parse("file://" & File.Combine(File.DirDefaultExternal,"logo.png"))
    in.PutExtra("android.intent.extra.STREAM",u)
    in.SetType("image/*")
    in.WrapAsIntentChooser("Share Via")
    StartActivity(in)

GMan · Apr 9, 2023

I made it this way (email version)

B4X:

    Dim FileName As String = "Testbild.jpg"
    'copy the shared file to the shared folder
    File.Copy(File.DirAssets, FileName, Provider.SharedFolder, FileName)
    Dim email As Email
    email.To.Add("tester@test.com")
    email.Subject = "subject"
    email.Attachments.Add(Provider.GetFileUri(FileName)) 'first attachment
    email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
    Dim in As Intent = email.GetIntent
    in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
    StartActivity(in)

and here a way to share a textfile:

B4X:

    Dim FileToSend As String = "Visitenkarte.txt"
    File.WriteString(Provider.SharedFolder, FileToSend, "Tester Testman * Teststreet 1 * 12345 MyCity * +49 xxxxx xxxxxx * tester@test.com")
    Dim in As Intent
    in.Initialize(in.ACTION_SEND, "")
    in.SetType("text/plain")
    in.PutExtra("android.intent.extra.STREAM", Provider.GetFileUri(FileToSend))
    in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
    StartActivity(in)

Theera · Apr 9, 2023

GMan said:

I made it this way (email version)

B4X:

    Dim FileName As String = "Testbild.jpg"
    'copy the shared file to the shared folder
    File.Copy(File.DirAssets, FileName, Provider.SharedFolder, FileName)
    Dim email As Email
    email.To.Add("tester@test.com")
    email.Subject = "subject"
    email.Attachments.Add(Provider.GetFileUri(FileName)) 'first attachment
    email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
    Dim in As Intent = email.GetIntent
    in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
    StartActivity(in)

and here a way to share a textfile:

B4X:

    Dim FileToSend As String = "Visitenkarte.txt"
    File.WriteString(Provider.SharedFolder, FileToSend, "Tester Testman * Teststreet 1 * 12345 MyCity * +49 xxxxx xxxxxx * tester@test.com")
    Dim in As Intent
    in.Initialize(in.ACTION_SEND, "")
    in.SetType("text/plain")
    in.PutExtra("android.intent.extra.STREAM", Provider.GetFileUri(FileToSend))
    in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
    StartActivity(in)

Thank you for reponse. I'm looking for send image to only facebook messenger. Assume I and another one are connected via facebook messenger

Android Question How to share image file to Facebook's Messager?

Theera

Expert

Attachments

Theera

Expert

GMan

Well-Known Member

Theera

Expert

Similar Threads

Android Question How to share image file to Facebook's Messager?

Theera

Expert

Attachments

Theera

Expert

GMan

Well-Known Member

Theera

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency