VPF::Сопряжение с bluetooth устройством

=Женек=

Дата 4.3.2017, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 548
Регистрация: 20.2.2005

Репутация: нет
Всего: 1

Господа, пишу в Embarcadero 10.1 Berlin под андроид
Использую компонент TBluetooth.
Не могу осуществить сопряжение. Онибки не выдается, просто ничего не происходит. Вызов Pair() возвращает ноль.

В че причина?

Код

void __fastcall TForm1::Button3Click(TObject *Sender)
{
Bluetooth1->Enabled=true;
Bluetooth1->DiscoverDevices(5000);
Memo1->Lines->Clear();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Bluetooth1DiscoveryEnd(TObject * const Sender, TBluetoothDeviceList * const ADeviceList)

{
   int n;

TBluetoothDeviceList *BL = new  TBluetoothDeviceList;
TBluetoothDevice *BTDevice;
TBluetoothAdapter *BTAdapter;
TBluetoothManager *BTManager;
BL=Bluetooth1->LastDiscoveredDevices;
for (int i=0;i<BL->Count;i++)
{
 Memo1->Lines->Add(BL->List[i]->DeviceName+" "+AnsiString(BL->List[i]->IsPaired));
 Memo1->Lines->Add(BL->List[i]->Address);
 if (BL->List[i]->DeviceName.SubString(1,5)=="MyBT")
 {

       n=i;
       BTDevice=BL->List[i];
          Bluetooth1->Pair(BTDevice);
           Memo1->Lines->Add("Connecton to "+ AnsiString(BTDevice->DeviceName));
               Application->ProcessMessages();
 }
}

Это сообщение отредактировал(а) =Женек= - 4.3.2017, 13:27

=Женек=

Дата 25.3.2017, 16:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 548
Регистрация: 20.2.2005

Репутация: нет
Всего: 1

Не?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Android \| Следующая тема »