【原创】wince bluebooth设备编程札记

Public Shared Function OpenBlueBoothSerialPort() As String        Dim addr As BluetoothAddress = BluetoothAddress.Parse("002233445566")        Dim sqlstr As String        Dim DRow As System.Data.DataRow = Nothing        Try            Dim br As Microsoft.WindowsMobile.SharedSource.Bluetooth.BluetoothRadio = New Microsoft.WindowsMobile.SharedSource.Bluetooth.BluetoothRadio()            '            '如果蓝牙设备不可见，则设置为可见状态,如果蓝牙设备被关闭会自动打开            '            If br.BluetoothRadioMode <> BluetoothRadioMode.Discoverable Then                br.BluetoothRadioMode = BluetoothRadioMode.Discoverable            End If            BlueSelect.ShowDialog()  '选择蓝牙设备            Dim endPoint As BluetoothEndPoint = New BluetoothEndPoint(addr, StandardServices.SerialPortServiceGuid)            Dim port As BluetoothSerialPort = BluetoothSerialPort.CreateClient(endPoint)   '创建串口端点            Return port.PortName        Catch e As Exception        End Try    End Function.................以下为对串口的一般操作            Dim PortName As String            If Frmmain.cmbComMode.Text.Contains("蓝牙") Then                PortName = BlueBooth.OpenBlueBoothSerialPort()                If String.IsNullOrEmpty(PortName) Then                    MessageBox.Show("选择端口有误！")                    Application.Exit()                    Exit Function                End If            Else                PortName = DRow(4)            End If            Serial.CurrentSerialPort = Frmmain.SerialPort1            Serial.SendMode = Serial.SM_Frame            Serial.DataMode = Serial.DM_Asc            Serial.PortName = PortName            Serial.BaudRate = CInt(DRow(2))            Serial.Parity = DRow(1)            Serial.open().......

上面是蓝牙模拟串口的全部流程，使用中发现使用虚拟串口模式连接蓝牙设备时，运行一段时间总会突然丢失串口句柄。提示IO异常或无法找到串口。经测试怀疑为本方法库本身软件问题。

同时，试验中发现，使用蓝牙虚拟串口模式时，如果第一次创建虚拟串口成功时，第二次创建会失败，只有重新启动系统才能保证再次创建串口成功。一般使用方法第一次创建成功后记下串口名称，以后直接打开对应名称的串口设备即可。直到再次重启后才能再次创建成功。