[Android] Ошибка при подключении к устройству

[estra]

Пытаюсь подключиться к принтеру по Bluetooth, код следующий:

procedure TForm1.Button2Click(Sender: TObject);
var
  Manager: TBluetoothManager;
  Adapter: TBluetoothAdapter;
  Devices: TBluetoothDeviceList;
  Device: TBluetoothDevice;
  i: Integer;

  ClientSocket: TBluetoothSocket;
begin
   Manager := TBluetoothManager.Current;
   Adapter := Manager.CurrentAdapter;
   Devices := Manager.GetPairedDevices( Adapter );

   for i := 0 to Devices.Count-1 do
      if Devices[i].DeviceName = 'BT-SPP' then
      begin
         Device := Devices[i];
         Break;
      end;

   ClientSocket := Device.CreateClientSocket( BTChat_UUID, False );
   ClientSocket.Connect;
end;

На строчке ClientSocket.Connect получаю ошибку:

 

java.io.IOException: read failed, socket migth closed ot timeout, read ret: -1.

 

Что не так, почему не получается подключиться?

[AlexShaman]

Такая же ошибка и у меня.

Вот тут есть решение, вроде бы, http://stackoverflow.com/questions/25698585/bluetooth-connection-failed-java-io-ioexception-read-failed-socket-might-clos

Помогите переделать код на Delphi

ry {

                bluetoothSocket.connect();
                success = true;
                break;
            } catch (IOException e) {
                //try the fallback
                try {
                    Class<?> clazz = tmp.getRemoteDevice().getClass();
                    Class<?>[] paramTypes = new Class<?>[] {Integer.TYPE};
                    Method m = clazz.getMethod("createRfcommSocket", paramTypes);
                    Object[] params = new Object[] {Integer.valueOf(1)};
                    bluetoothSocket  = (BluetoothSocket) m.invoke(tmp.getRemoteDevice(), params);
                    Thread.sleep(500);
                    bluetoothSocket.connect();
                    success = true;
                    break;

Изменено 22 августа, 2016 пользователем AlexShaman