Wireless Communication Library Support Forum

Frameworks => Bluetooth Framework => Topic started by: Livio on August 19, 2009, 04:51:53 PM

Title: GetClassOfDevice
Post 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
Title: Re: GetClassOfDevice
Post by: Mike Petrichenko on August 19, 2009, 05:12:33 PM
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