本文介绍了如何通过蓝牙发送文件的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
嗨
我在google和这个网站上找到了关于蓝牙的东西,但我无法理解任何事情。
我想要一个代码来通过蓝牙发送文件。
请帮助我。
HiI in the google and this site and found sth about bluetooth but I couldn't understand any thing.
I want a code to send a file by bluetooth.
please help me.
推荐答案
Public Class Form1
Dim btClient As New InTheHand.Net.Sockets.BluetoothClient
Dim SearchThread As System.Threading.Thread
Dim response As InTheHand.Net.ObexWebResponse
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim x As String = "obex://" & CType(cboDevices.SelectedItem, InTheHand.Net.Sockets.BluetoothDeviceInfo).DeviceAddress.ToString & "/" + System.IO.Path.GetFileName(LBLFileName.Text)
Dim theuri As New Uri("obex://" & CType(cboDevices.SelectedItem, InTheHand.Net.Sockets.BluetoothDeviceInfo).DeviceAddress.ToString & "/" + System.IO.Path.GetFileName(LBLFileName.Text))
Dim request As New InTheHand.Net.ObexWebRequest(theuri)
request.ReadFile(Application.StartupPath & "\FilesToSend\" & LBLFileName.Text)
Dim s As DateTime
s = Now
response = CType(request.GetResponse(), InTheHand.Net.ObexWebResponse)
' & " ثانية وحالة الإرسال" & response.StatusCode.ToString
' Label4.Text = DateDiff(DateInterval.Second, s, Now) & " Sec"
' Label7.Text = CType(cboDevices.SelectedItem, InTheHand.Net.Sockets.BluetoothDeviceInfo).DeviceName.ToString
If response.StatusCode.ToString.Trim = "BadRequest" Then
Label1.Text = "Not success"
ElseIf response.StatusCode.ToString.Trim = "OK, Final" Then
Label1.Text = "Success"
Else
Label1.Text = "Error: : " & vbCrLf & _
response.StatusCode.ToString.Trim
End If
response.Close()
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If CheckHardwareStatus() = False Then
MsgBox("Please check BT..", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading)
Exit Sub
End If
'SearchThread = New System.Threading.Thread(AddressOf SearchSub)
'SearchThread.Priority = Threading.ThreadPriority.Highest
'SearchThread.Start()
SearchSub()
End Sub
Sub SearchSub()
btClient = New InTheHand.Net.Sockets.BluetoothClient
Dim s As DateTime
s = Now
Dim bdi As InTheHand.Net.Sockets.BluetoothDeviceInfo() = btClient.DiscoverDevices()
LBlDuration.Text = "Duration: " & DateDiff(DateInterval.Second, s, Now) & " Sec"
cboDevices.DataSource = bdi
cboDevices.DisplayMember = "DeviceName"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim of1 As New OpenFileDialog
of1.Filter = "All files (*.*)|*.*"
If of1.ShowDialog = Windows.Forms.DialogResult.OK Then
LBLFileName.Text = System.IO.Path.GetFileName(of1.FileName)
Dim FInfo As New IO.FileInfo(of1.FileName)
LBLFileSize.Text = "File size : " & CType(CType(FInfo.Length / 1024, Integer), String) & " KB"
Try
System.IO.File.Copy(of1.FileName, Application.StartupPath & "\FilesToSend\" & System.IO.Path.GetFileName(of1.FileName), True)
Catch ex As Exception
MsgBox("Error:" & vbCrLf & _
ex.Message, MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight)
End Try
End If
End Sub
Function CheckHardwareStatus() As Boolean
Dim br As InTheHand.Net.Bluetooth.BluetoothRadio = InTheHand.Net.Bluetooth.BluetoothRadio.PrimaryRadio
If Not br Is Nothing Then
If br.Mode = InTheHand.Net.Bluetooth.RadioMode.Discoverable Then
Return True
ElseIf br.Mode = InTheHand.Net.Bluetooth.RadioMode.Connectable Then
Return True
ElseIf br.Mode = InTheHand.Net.Bluetooth.RadioMode.PowerOff Then
Return True
End If
Else
Return False
End If
End Function
End Class
现在我也有更多的问题。
此代码发送文件但我想发送一个字符串作为短信
Now I have a more proble too.
this code send a file but I want to send a string as a sms
这篇关于如何通过蓝牙发送文件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!