Android Question Intent to share/send a file via Bluetooth ?

[Devv]

Hi
How could i make a share intent to share (send) a file via Bluetooth ?

for example if i want to share the file /sdcard/1.apk how to do so with intent ?

 

[Erel]

You can use this code to share a file:

Sub SendFile(Dir As String, FileName As String)
   Dim In As Intent
   In.Initialize(In.ACTION_SEND,"file://" & File.Combine(Dir, FileName))
   In.SetType("*/*")
   StartActivity(In)
End Sub

The use will be able to choose Bluetooth from the list.

 

[chrjak]

You can use this code to share a file:

Sub SendFile(Dir As String, FileName As String)
   Dim In As Intent
   In.Initialize(In.ACTION_SEND,"file://" & File.Combine(Dir, FileName))
   In.SetType("*/*")
   StartActivity(In)
End Sub

The use will be able to choose Bluetooth from the list.

Hey,

When I try this and i click on email the path it in the "To" line and nothing is in attachments.
Dropbox and other apps are crashing as well. Do i have to set the file path into an extra? The code is the same as above....
Please help me

Regards

Update: Filemanager manages to send the file. So the problem is not the file

 

[Erel]

Where is the file located?

 

[Devv]

Where is the file located?

for me it is showing the send options but never send the file

 

[Erel]

Where is the file located?

 

[Devv]

Where is the file located?

Dim In As Intent
           In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirRootExternal, "So Market/So-Market.apk"))
           In.SetType("application/vnd.android.package-archive")

 

[Erel]

What is the output of Log(File.Exists(File.DirRootExternal, "So Market/So-Market.apk")) ?

 

[Devv]

What is the output of Log(File.Exists(File.DirRootExternal, "So Market/So-Market.apk")) ?

true

 

[Erel]

Maybe the bluetooth app doesn't allow sending APKs. You can try it with a different file.

 

[Devv]

    Dim In As Intent
       In.Initialize(In.ACTION_SEND,"file://" & File.Combine(File.DirRootExternal, "test.txt"))
       In.SetType("*/*")
       StartActivity(In)

even this is not working with me ...

it is working for you ?

 

[Erel]

Try to add this to the intent:

Dim u As Uri 'ContentResolver library
u.Parse("file://" & File.Combine(File.DirRootExternal, "test.txt"))
In.PutExtra("android.intent.extra.STREAM", u)

 

[luke2012]

The default Bluetooth directory in the target device is the same for All Android devices?

 

[Erel]

Please start a new thread for this question.