Some problems with wclBluetoothDiscoveryx (VB6)

[viriato]

Simply example:

Code: [Select]

Private Sub Command1_Click()
    Dim mApi As wclAPIx
    Dim mDiscovery As wclBluetoothDiscoveryx
    Dim mRadios As wclBluetoothRadiosx
    Dim mDevice As wclBluetoothDevicex
    Dim mDevices As wclBluetoothDevicesx
   
    Set mApi = New wclAPIx
    mApi.Load
   
    List1.AddItem ("Api Loaded: " + mApi.Version)
    Set mDiscovery = New wclBluetoothDiscoveryx
    Set mRadios = mDiscovery.EnumRadios
    List1.AddItem ("Radios loaded: " + Str(mRadios.Count))
    Set mDevices = mDiscovery.Discovery (mRadios(0))
    Set mDevice = mDiscovery.SelectDevice(mRadios(0))
End Sub


Code: [Select]

Set mDevices = mDiscovery.Discovery(mRadios(0))
Expected function or variable.


Code: [Select]

Set mDevice = mDiscovery.Discovery(mRadios(0))
Object doesn't support this property or method.


So I can't retrieve a device or device list :S

(my intention is to do a simply object push example in vb and wcl 6, no problem to share  )

Thanks in advance.

[viriato]

Little update... i make a mistake...

I must write mRadios.Items(0) but the problems persists

[Mike Petrichenko]

WCL is asynchroniouse application

Dim WithEvents mDiscovery As wclBluetoothDiscoveryx

it will raises OnDiscoveryComplete event when discovery done

[viriato]

WCL is asynchroniouse application

Dim WithEvents mDiscovery As wclBluetoothDiscoveryx

it will raises OnDiscoveryComplete event when discovery done

Same problem...
mDiscovery.Discovery <----- Expected function or variable.
mDiscovery.SelectDevice <------- Object doesn't support this property or method.

[viriato]

I will attach this small example using the 6.0.0 version of ActiveX WCL

[attachment deleted by admin]

[viriato]

At least SelectDevice function seems to be buggy or not implemented in wclBluetoothDiscoveryx at this version of the ActiveX WCL and is not recognised as a available function by VB.

[Mike Petrichenko]

Correct, there is no SelectDevice function.

The VB demos will be ready in 2 days. Please, wait for it

[viriato]

Correct, there is no SelectDevice function.

The VB demos will be ready in 2 days. Please, wait for it

I'll wait thanks!

P.D. I ask myself how to retrieve devices without selectdevice.

[Mike Petrichenko]

By using Discovery function

[viriato]

I don't wanna to be annoying but myDiscovery.Discovery(myRadio) says "Error: Expected function or variable." if i change the parameter or the number of parameters it lauch compiling errors so the function is wellknown by the compiler :S

Thanks in advance.

[Mike Petrichenko]

The discovery function does not return any values but you trying to assign its retuend value to variable.

[viriato]

Ok you are right as ever  i was using an old demo that use discovery(radio, boolAsync) and returns the device, i asume that now ever is async.

[viriato]

I saw that onDiscoveryComplete is changed for DiscoveryComplete all works now!

[viriato]

Ummm strange... with BtFrameworkX 6 beta i can discover 12 bluetooths... with WCL.net only 3

[Mike Petrichenko]

http://www.btframework.com/download.htm

The demo version of Wireless Communication Library has the following limitations:

only 3 devices can be discovered;