Android Question share text in text

[Almora]

hi..
I can't send the text in the text.
I am using this code. does not send the text inside.

Sub Button1_Click

    Dim text As String
    text = (File.ReadString(File.DirAssets, Index1 & ".txt"))


File.Copy(File.DirAssets,text , Starter.shared, text)
    Dim INTENT As Intent
    INTENT.Initialize(INTENT.ACTION_SEND,"")
    INTENT.SetType("text/plain")
    INTENT.SetComponent("com.whatsapp/.ContactPicker")
    INTENT.putExtra("android.intent.extra.TEXT", " ")
    INTENT.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(Starter.shared, text))

    StartActivity(INTENT)
End Sub
  
  
Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
    Dim FileProvider As JavaObject
    Dim context As JavaObject
    context.InitializeContext
    FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
    Dim f As JavaObject
    f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
    Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub

 

[Mahares]

INTENT.SetType("text/plan")

text/plan should be text/plain. I do not know if that is your core problem

 

[Almora]

it's not her..

 

[Yayou49]

What is the content of your file Index1.txt ?

 

[Almora]

1.txt
123456789

 

[Yayou49]

So that means in your code

File.Copy(File.DirAssets,text , Starter.shared, text)

You are trying to copy file 123456789 from dirAsset to starter.shared
Does file 123456789 exists in dir Asset ?

 

[Almora]

I'm picking assets..

Dim text As String
    text = (File.ReadString(File.DirAssets, Index1 & ".txt"))

 

[Yayou49]

so that means you do:

File.Copy(File.DirAssets,123456789 , Starter.shared, 123456789)

Once again, Does file 123456789 exists in dir Asset ?

 

[Almora]

yes
1.txt (123456789) this file is in asset

 

[Yayou49]

I know that 1.txt is in your dirAssets.
Just have a look on file.copy parameters description:
File.copy(directory from, File name from,directory to, file name to)

If you put file.copy(dirassets,txt... that means you want to find a file named 123456789
That's why I'm asking if you have a file like this in your dirAssets

BTW, please try this test for me and let me know if it works:
Replace the line

File.Copy(File.DirAssets,text , Starter.shared, text)

by

File.Copy(File.DirAssets,"1.txt" , Starter.shared, "1.txt")

and

INTENT.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(Starter.shared, text))

by

INTENT.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(Starter.shared, "1.txt"))

 

[Almora]

I've tried. sending empty.
1.txt does not send inside

 

[Yayou49]

Last chance:

Try

Sub Button1_Click

    Dim text As String
    text = (File.ReadString(File.DirAssets, "1.txt"))


'File.Copy(File.DirAssets,text , Starter.shared, text)
    Dim INTENT As Intent
    INTENT.Initialize(INTENT.ACTION_SEND,"")
    INTENT.SetType("text/plain")
    INTENT.SetComponent("com.whatsapp/.ContactPicker")
    INTENT.putExtra("android.intent.extra.TEXT", text)
 '   INTENT.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(Starter.shared, text))

    StartActivity(INTENT)
End Sub
 
 
'Sub CreateFileProviderUri (Dir As String, FileName As String) As Object
'    Dim FileProvider As JavaObject
'    Dim context As JavaObject
'    context.InitializeContext
'    FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
'    Dim f As JavaObject
'    f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
'    Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))'
'End Sub

 

[Almora]

this code works, but it doesn't work on android8+.
I did not test. I guess it won't work

 

[Erel]

You should only use FileProvider when you want to share a file. If you are sharing a string then you don't need it.

 

[Almora]

tested. Android 8 works...