Connect via Bluetooth with Delphi XE7 using portable printer

Question

I\'m trying to communicate with a Sewoo LK-P32 printer via Bluetooth. For this, I am using Delphi XE7. I made a few examples that come with Del

Answer 1

In your loop, you keep assigning to lDevice. If there is a second unpaired device then lDevice is pointing to that. You need top Exit once you have detected that it is paired.

Also, I personally don't like raising exceptions deliberately. If a class instance is nil then you should exit, nolt drill down into it..

For instance

if FBluetoothManager = nil then
begin
  Memo1.Lines.Add('FBluetoothManager esta nulo');
  Exit;
end;