Frameworks > Bluetooth Framework

Some problems with wclBluetoothDiscoveryx (VB6)

(1/7) > >>

viriato:
Simply example:


--- Code: ---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

--- End code ---


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

--- End code ---


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

--- End code ---


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:

--- Quote from: Mike Petrichenko on May 06, 2008, 11:49:02 AM ---WCL is asynchroniouse application

Dim WithEvents mDiscovery As wclBluetoothDiscoveryx

it will raises OnDiscoveryComplete event when discovery done

--- End quote ---
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]

Navigation

[0] Message Index

[#] Next page