Hi Scott

Thank you for your reply.

I try the below code. At FormCreate, BluetoothLE is enabled. When Button1Click BluetoothLE is also enabled.
I also debug the DiscoverDevices. 'The hardware Bluetooth Device is not found.' It also not work and unsuccessful.

I am using BluetoothLE mouse and keyboard on Mac Mini. Bluetooth is working on Mac mini.

In Delphi, it is using 'System.Mac.Bluetooth.pas' this GetConnectionState function to get the BluetoothLE status.
But it cannot get the status properly.

function TMacBluetoothLEManager.GetConnectionState: TBluetoothConnectionState;
var
LTotal: Single;
LMacBluetoothLEAdapter: TMacBluetoothLEAdapter;
begin
if FAdapter = nil then
FAdapter := TMacBluetoothLEAdapter.Create(Self);
LMacBluetoothLEAdapter := TMacBluetoothLEAdapter(FAdapter);
if LMacBluetoothLEAdapter.FLEManager.FCentralManager.state = CBCentralManagerStatePoweredOn then
Result := TBluetoothConnectionState.Connected
else
begin
LTotal := 0;
repeat
InternalWaitMessage(0.05);
LTotal := LTotal + 0.05;
until (LTotal >= 1) or (LMacBluetoothLEAdapter.FLEManager.FCentralManager.state = CBCentralManagerStatePoweredOn);
if LMacBluetoothLEAdapter.FLEManager.FCentralManager.state = CBCentralManagerStatePoweredOn then
Result := TBluetoothConnectionState.Connected
else
Result := TBluetoothConnectionState.Disconnected;
end;
end;

If you have try similar code on BluetoohLE successful in IOS or OSX environment. You can send it to me or
what Delphi version, IOS or OSX version you are using?

Here is my updated code.
=======================================
procedure TForm1.Button1Click(Sender: TObject);
begin
if BluetoothLE1.Enabled then
BluetoothLE1.DiscoverDevices(2500); //It also not work at this line.
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
while not BluetoothLE1.Enabled do
BluetoothLE1.Enabled := True;
end;
=======================================


Edited by: Dominic Ko on Feb 3, 2018 2:50 AM

Edited by: Dominic Ko on Feb 3, 2018 2:51 AM

Hi Scott,

Many many thanks.

I also test the code with Mac Book Air and Mini. Result is the same.
OS of IOS Mac Book Air: 10.13.2
OS of IOS Mac Mini: 10.13.3
Delphi: 10.2.1
Both Mac are using Bluetooth Wireless Mouse and Keyboard.

System.Mac.Bluetooth.pas is Delphi Library at 'C:\Program Files (x86)\Embarcadero\Studio\19.1\source\rtl\net\System.Mac.Bluetooth.pas'.

You can open a new project>Multi-Device Application. Drop a BluetoothLE on the form. And start with FormCreate with below code. Trace into BluetoothLE1.DiscoverDevices(2500); Result are the same 'Bluetooth device not found: disconnected or turned off' with exception.

procedure TForm1.FormCreate(Sender: TObject);
begin
BluetoothLE1.DiscoverDevices(2500);
end;

Run and Trace into the code. Trace it to function TMacBluetoothLEManager.DoGetAdapter: TBluetoothLEAdapter;. It 'cannot get the status properly' of GetConnectionState. It only return 'TBluetoothConnectionState.Disconnected'.

If you are successful to connect with the BluetoothLE in IOS/OSX. What version of Delphi and IOS/OSX in Mac are using?

Thank you for your help and assistance.

Dko

Note: I have a project using BluetoothLE in IOS and OSX

Hi Dave Nottage [MVP, TeamB]

Thank you very much for your assistance and help.

I re-route the code to System.Mac.Bluetooth below. I got LState = CBCentralManagerStateUnknown.

Note: From the StackOverFlow, I got some information in xCode. init(delegate:queue:) or: init(delegate:queue:options:) with CBCentralManager.

I don't know how to proceed? Would you please advice?

Many thanks.

Dko

function TMacBluetoothLEManager.GetConnectionState: TBluetoothConnectionState;
var
  LTotal: Single;
  LMacBluetoothLEAdapter: TMacBluetoothLEAdapter;
  LState: CBCentralManagerState; // <------ Added this variable
begin
  if FAdapter = nil then
    FAdapter := TMacBluetoothLEAdapter.Create(Self);
  LMacBluetoothLEAdapter := TMacBluetoothLEAdapter(FAdapter);
  if LMacBluetoothLEAdapter.FLEManager.FCentralManager.state = CBCentralManagerStatePoweredOn then
     Result := TBluetoothConnectionState.Connected
  else
  begin
    LTotal := 0;
    repeat
      InternalWaitMessage(0.05);
      LTotal := LTotal + 0.05;
    until (LTotal >= 1) or (LMacBluetoothLEAdapter.FLEManager.FCentralManager.state = CBCentralManagerStatePoweredOn);
    LState := LMacBluetoothLEAdapter.FLEManager.FCentralManager.state;
 
    if LState = CBCentralManagerStateResetting then
      Result := TBluetoothConnectionState.Disconnected;
    if LState = CBCentralManagerStateUnsupported then
      Result := TBluetoothConnectionState.Disconnected;
    if LState = CBCentralManagerStateUnauthorized then
      Result := TBluetoothConnectionState.Disconnected;
    if LState = CBCentralManagerStatePoweredOff then
      Result := TBluetoothConnectionState.Disconnected;
    if LState = CBCentralManagerStateUnknown then        //Finally break in here.
      Result := TBluetoothConnectionState.Disconnected;
    if LState = CBCentralManagerStatePoweredOn then
      Result := TBluetoothConnectionState.Connected;
 
    //if LMacBluetoothLEAdapter.FLEManager.FCentralManager.state = CBCentralManagerStatePoweredOn then
    //  Result := TBluetoothConnectionState.Connected
    //else
    //  Result := TBluetoothConnectionState.Disconnected;
  end;
end;

Hi Dave Nottage [MVP, TeamB]

Thank you for time.

I think you are right.

I got something from Apple Developer.
https://developer.apple.com/documentation/corebluetooth/cbcentralmanager
BluetoothLE must be init() first.

https://medium.com/@nebsp/hello-bluetooth-a-simple-swift-app-for-communicating-with-an-arduino-bbf26e089999
He share with the idea to write Bluetooth in swift
1) When initializing a CBCentralManager object, don’t call scanForPeripheralsWithServices right away. Instead, wait for the central’s state to be .PoweredOn via centralManagerDidUpdateState.
2) When a peripheral has been discovered (in didDiscoverPeripheral) you must hold onto that peripheral with a strong reference before trying to connect to it.

Best regards
Dko

Hi Scott Pinkham,

Thank you for your reply.

I download and try the Bluetooth apps from Apple Store. They are working and testing good in iPhone and iPad. They may be written or developed in swift (xcode). This means it must work in IOS or OSX.

May be I am missing something in Delphi development. I use Tokyo 10.2.1.

In Android (Nexus7), the code is OK to DiscoverDevices(2500) and it can connect to system Bluetooth device and carry on to detect Bluetooth (Next to the Tablet Nexus7).
In OSX, the code will raise exception.

Can you explain more about 'your handler does anything to the GUI it needs to use Synchronize' <---- is in IOS or OSX? Do you means in IOS or OSX need to use Synchronize to handle GUI things?

Thanks

Dko

procedure TForm1.FormCreate(Sender: TObject);
begin
  while not BluetoothLE1.Enabled do
    BluetoothLE1.Enabled := True;
 
  BluetoothLE1.DiscoverDevices(2500);
end;  

Edited by: Dominic Ko on Feb 9, 2018 9:54 AM

I did some more testing on different hardware and I'm running into the same issue as you on a MacBook Pro (an old 2010 model running Sierra), so there may be a hardware/software compatibility problem with BluetoothLE on some Macs. It may be possible to use a USB Bluetooth dongle that supports the newer BLE standards -- I've tried this on a Mac Mini and it works.

-Scott

The dongle I'm using is made by Plugable, model USB-BT4LE.
-Scott