Wireless Communication Library Support Forum
Frameworks => Bluetooth Framework => Topic started by: Livio on August 19, 2009, 04:51:53 PM
-
Hello,
any idea how to GetClassOfDevice from VB6?
I need a simple string with the COD in my For cicle OnDevicesFound:
For i = 0 To Devices.Count - 1
Thanks
-
Hi,
Idea is located in the BluetoothDiscoveryDemo application's code:
Dim COD As Long
Res = Device.GetClassOfDevice(Radio, COD)
If Res = WCL_E_SUCCESS Then
lvDevices.SelectedItem.SubItems(1) = Str(COD)
Else
lvDevices.SelectedItem.SubItems(1) = "Error: " + Str(Res)
End If
That was the first part of idea. The other one (if you want a string representation like "Smarphone", "Cellurar" and others) can be found with using forum search engine and is located here: http://forum.btframework.com/index.php?topic=707.msg3436#msg3436