send file to other device using bluetooth

[hanyelmehy]

I try to send file to other phone using bluetooth ,the problem is nothing is send , i am able to detected device and connect to it but no files send

[ code ]
Sub Serial1_Connected (Success As Boolean)
If Success = False Then
Log(LastException.Message)
ToastMessageShow("Error connecting: " & lastException.Message, True)
Else

File.WriteString(File.DirRootExternal, "Fatwa.txt",Module1.TxtForSend)


Dim In As InputStream
In = File.OpenInput(File.DirRootExternal, "Fatwa.txt")
Dim out As OutputStream
out=Serial1.OutputStream

out.InitializeToBytesArray(1000)
File.Copy2(In, out)
Dim data() As Byte
data = out.ToBytesArray


out.WriteBytes(data ,0,data.Length)
out.Flush

End If
[ /code ]

need help to solve this issue ,thank you

 

[Erel]

Please use [ code ] [ /code ] tags (without spaces) when posting code.

Your code looks correct though it be simplified:

Dim data() As Byte = Module1.TxtForSend.GetBytes("UTF8")

I also recommend you to use AsyncStreams. Your current code will fail on Android 4+ devices.

Where is the other device code?

 

[hanyelmehy]

Thank you for your time

Thank you for your time
i want to simulate send file using Bluetooth in my device ,that mean i want to send file to any device support Bluetooth , so there is no other device code

can we able to use OBEX protocol

Thank you

 

[Erel]

You will need to implement the OBEX protocol. I'm not sure whether it is possible or not to implement it over a SPP connection.