Foxtable(狐表)用户栏目专家坐堂 → 狐表可以对应蓝牙接口吗?使用蓝牙传数据,谢谢


  共有3165人关注过本帖树形打印复制链接

主题:狐表可以对应蓝牙接口吗?使用蓝牙传数据,谢谢

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/26 22:34:00 [显示全部帖子]

要用到第三方类库。

 

1、在foxtable引用dll;

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:inthehand.net.personal.zip

 

2、编写代码如

 

Dim bluetoothRadio = InTheHand.Net.Bluetooth.BluetoothRadio.PrimaryRadio
If bluetoothRadio Is Nothing Then
    output.show("没有找到本机蓝牙设备!")
Else
    output.show("ClassOfDevice: " & bluetoothRadio.ClassOfDevice.tostring)
    output.show("HardwareStatus: " & bluetoothRadio.HardwareStatus)
    output.show("HciRevision: " & bluetoothRadio.HciRevision)
    output.show("HciVersion: " & bluetoothRadio.HciVersion)
    output.show("LmpSubversion: " & bluetoothRadio.LmpSubversion)
    output.show("LmpVersion: " & bluetoothRadio.LmpVersion)
    output.show("LocalAddress: " & bluetoothRadio.LocalAddress.tostring)
    output.show("Manufacturer: " & bluetoothRadio.Manufacturer)
    output.show("Mode: " & bluetoothRadio.Mode)
    output.show("Name: " & bluetoothRadio.Name)
    output.show("Remote:" & bluetoothRadio.Remote)
    output.show("SoftwareManufacturer: " & bluetoothRadio.SoftwareManufacturer)
    output.show("StackFactory: " & bluetoothRadio.StackFactory.tostring)
End If

 

3、根据自己的需要写代码,具体例子 http://hzy3774.iteye.com/blog/1735163

 


 回到顶部