Модераторы: javastic
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Сопряжение с bluetooth устройством 
:(
    Опции темы
=Женек=
Дата 4.3.2017, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 538
Регистрация: 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
PM MAIL   Вверх
=Женек=
Дата 25.3.2017, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

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



Не?
PM MAIL   Вверх
Google
  Дата 20.9.2017, 10:31 (ссылка)  





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


 




[ Время генерации скрипта: 0.0886 ]   [ Использовано запросов: 20 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.