ChrisChuah

Its a update patch that provided the new PAServer.

The PAServer before this patch was working fine. 

I was using it to do debugging of my software.

Somehow i cant understand why the Embarcardero is asking me to debug on the physical device.

Its easier to debug on the simulator isnt it?

I tested out the BLE on windows 10 and it seems that the device needs to be paired up in the Windows Bluetooth screen first by adding it to it.

If not, while you tried to get services from the device, it will prompt that the device is not paired up.

After update the latest patch for 10.4.1 with the new PA Server, I could not run the iOS simulator in debug mode.

Usually, the prompt will appear to ask user to enter password for debugging but this time, it does not come out.

anyone having this error?

======= Log from PA Server ===============

>listen

Process Control Server Started pid 1258 exe  built Feb 27 2020

Error: file permissions do not allow debugging

listen

Process Control Server Started pid 1298 exe  built Feb 27 2020

Error: file permissions do not allow debuggin

======= End of Log ==============

regards

Chris

Thanks for the reference to the delphi sample. 

Seems that for MacOS, iOS and Android, there is an event OnEndDiscoverDevices called when there is a timeout set in the DiscoverDevices function.

However, in Windows 10, this event is not called. Instead the event DiscoveredDevice is called.

Hence, have to modify the codes to detect that if windows, have to add a timer for timeout to stop the discovery of devices.

Would this be a good option?

what would you do? please advice

regards

chris

What other BLE component can be used for windows deployment if the default TBluetoothLE is not working for windows 10

I tried that with the discover device and it does not send a end discover callback. It was stuck there.

Hi,

In my fmx application running in windows 32, 

when i call the TBluetoothLE.DiscoverDevices(4000), the function does not return any event back.

When it is run on iOS application, the function will return the event back as EndDiscovery

Why is this event is not called in Windows 32? Is there something that i forgot?

===== Code ========

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Memo1.Lines.Add('Scanning for devices');
  BluetoothLE1.DiscoverDevices(4000);
end;
==== End Code ======

Why isnt this function below not called in Windows 10?

procedure TForm1.BluetoothLE1EndDiscoverDevices(const Sender: TObject;
  const ADeviceList: TBluetoothLEDeviceList);