GetClassOfDevice

[Livio]

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

[Mike Petrichenko]

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