BluetoothDiscoveryDemoXE2 Bug

[gomsun2]

Hi. I found BluetoothDiscoveryDemoXE2 Bug.

1. Run BluetoothDiscoveryDemoXE2.exe
2. Enum -> Search Microsoft / Bluesoleil -> Bluesoleil Select
3. Discover -> EConverError Raise (wclStringToAddress)

[gomsun2]

i trace bug and i find problem method.
method is "Device.GetClassOfDevice(Radio, COD);" in "procedure TfmMain.RefreshDevice;"

scenario is
0. Open BluetoothDiscoveryDemoXE2.dpr and Run(F9)
1. Enum Click
2. Select BT Driver (Driver is bluesoleil)
3. Discover Click
4. event handler is excute "procedure TfmMain.wclBluetoothDiscoveryDiscoveryComplete(Sender: TObject; Radio: TwclBluetoothRadio; Devices: TwclBluetoothDevices);"
5. if Devices = 0 then Ok
6. if Devices. = 1 then EConverthError raise in "Device.GetClassOfDevice(Radio, COD);"

sorry my english is bed

[attachment deleted by admin]

[Mike Petrichenko]

Hello,

Caould you please show MAC address of your device? And what version of demo do you use (Delphi/CBuilder)?

[gomsun2]

Device Addr: see attach File
version: Delphi XE2 / Demo - http://forum.btframework.com/index.php/topic,1199.msg5573.html#msg5573

thank you

[attachment deleted by admin]

[Mike Petrichenko]

Hm, strange. Address looks valid. Let me install BS and check this issue. I'll back to you in few minutes.

[Mike Petrichenko]

Just tested. Works on my side.

Please, check function function TfmMain.GetSelectedDevice: TwclBluetoothDevice; (in demo)
and this line: Result.Address := lvDevices.Selected.Caption;
Result.Address - must be valid BT address.

[Mike Petrichenko]

Hello,

Unfortunately we couldn;t reproduce the issue. Does it appear with all devices? Or only with specific one?

[gomsun2]

hi. Answer was delayed.
i found some issue

procedure TfmMain.RefreshDevice;
...
//      Res := Device.GetRSSI(Radio, RSSI);
//      if Res = WCL_E_SUCCESS then
//        lvDevices.Selected.SubItems[3] := IntToStr(RSSI)
//      else
//        lvDevices.Selected.SubItems[3] := 'Error: ' + IntToStr(Res);
...
Uncomment this part, the error does not occur.

please check.

my pc info - Windows7 64bit / API - Bluesoleil / Microsoft

[attachment deleted by admin]

[Mike Petrichenko]

What BS version do yo use?

[gomsun2]

wcl use  this version - http://forum.btframework.com/index.php/topic,1199.msg5573.html#msg5573
BlueSoleil version is " 2.7.0.8 "

[Mike Petrichenko]

Looks fixed (attached).

[attachment deleted by admin]

[gomsun2]

I've confirmed that the issue has been fixed.
Thank you for quick response. : )