BlueTooth на Android

[Lexa09]

здравствуйте! использую модуль EasyBlueTooth. при нажатии на кнопку получить список устройств выходит ошибка

procedure TForm1.Button2Click(Sender: TObject);
begin
a:=TServerConnectionTH.Create(true);//инициализируем модуль
a.PairedDevices(ComboBox1);//получаем список сопряженных устройств
end;

подскажите в чем проблема?

[stalker17]

Чтобы на приём работало, надо переделать

procedure TServerConnectionTH.Connect(index: integer);
begin
  if (ServerConnectionTH = nil) and ManagerConnected then
  begin
    FAdapter := FBluetoothManager.CurrentAdapter;
    //ServerConnectionTH := TServerConnectionTH.Create(True, FClientProc); //Может Dumb;
    //ServerConnectionTH.FServerSocket := FAdapter.CreateServerSocket(ServiceName,
   //   StringToGUID(ServiceGUI), False);
   // ServerConnectionTH.Start;
    if (FSocket = nil) or (ItemIndex <> index) then
    begin
      if index > -1 then
      begin
        LDevice := FPairedDevices[index] as TBluetoothDevice;
        FSocket := LDevice.CreateClientSocket(StringToGUID(ServiceGUI), False);
        if FSocket <> nil then
        begin
          ItemIndex := index;
          FSocket.Connect;
          //ServerConnectionTH.FSocket := FSocket;
          Start;
        end;
      end;
    end;
  end;
end;

И также

procedure TServerConnectionTH.Execute;
var
  ASocket: TBluetoothSocket;
  Msg: string;
begin
  while not Terminated do
    try
     // ASocket := nil;
      //while not Terminated and (ASocket = nil) and (FServerSocket<>nil) do
     //   ASocket := FServerSocket.Accept(100);
      if (FSocket <> nil) then
      begin
       // FSocket := ASocket;
        while not Terminated do
        begin
          FData := FSocket.ReadData; //ASocket
....

Проверялось только в Win32

[stalker17]

На андройд код выше тоже работает ,проблемы начинаются если разнести устройства и связь обрывается. После этого они уже между собой знаться не хотят и выдаётся сообщение 'IOException: Broken Pipe' . Иногда восстановления связи даже после однократного перезапуска программы не происходит. Кто-то решал подобную задачу?

[stalker17]

В итоге так сделал

try
    Port.Disconnect;
    Port.Suspend;
    Port.Connect(PortIndex,False);
  except                    //Подавляем вывод сообщения о глюке.
 
  end;

...

procedure TServerConnectionTH.Connect(index: integer;IsStart:Boolean=True);
begin
  if (ServerConnectionTH = nil) and ManagerConnected then
  begin
    FAdapter := FBluetoothManager.CurrentAdapter;
    if (FSocket = nil) or (ItemIndex <> index) then
    begin
      if index > -1 then
      begin
        LDevice := FPairedDevices[index] as TBluetoothDevice;
        FSocket := LDevice.CreateClientSocket(StringToGUID(ServiceGUI), False);
        if FSocket <> nil then
        begin
          ItemIndex := index;
          //FluetoothManager.cancelDiscovery();  //Может и не даёт ничего
          FSocket.Connect;
          if IsStart then Start
                     else Resume;
        end;
      end;
    end;
  end;
end;

procedure TServerConnectionTH.Disconnect;
begin
  if (FSocket <> nil) then
     FSocket.close;
 FSocket := nil;
end;