Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > C++ > C/C++ Сетевое программирование
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 26.02.2016, 00:36   #1
Drago56
Форумчанин
 
Регистрация: 13.12.2010
Сообщений: 91
Репутация: 8
По умолчанию bluetooth

Не работает подключение к bluetooth. На ноуте все параметры настроены, при сканирование сети устройство видит, но не подключается

Код:

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

#include <stdio.h>
#pragma comment( lib, "ws2_32.lib" )
#pragma comment(lib, "iphlpapi.lib")
#include <winsock2.h>
#include<windows.h>
#include<stdio.h>
#include <cassert>
#pragma comment (lib,"WSock32.Lib")
#include <ws2bth.h>
#include <initguid.h>
//#include <BluetoothAPIs.h>
#include <stdio.h>
#include<locale.h>
#include <locale>
#include <string.h>

#define BUF_SIZE 10240 // 10kb памяти для получение данных о блютус

WSADATA wsaData;//
WORD Version;//
SOCKET my_sock;
SOCKADDR_BTH sab;
typedef ULONGLONG bt_addr, *pbt_addr, BT_ADDR, *PBT_ADDR;
BT_ADDR aSddr = 0X98D331405FD1;
char adr[]="(98:D3:31:40:5F:D1)";


TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

Version = MAKEWORD (2, 2);
  if (WSAStartup(Version,&wsaData))
  {
	ShowMessage("Error WSAStart");
  }

WSAQUERYSET* wsaq = (WSAQUERYSET*) new BYTE[BUF_SIZE];

ZeroMemory(wsaq, BUF_SIZE);
wsaq->dwSize = sizeof(WSAQUERYSET);
wsaq->dwNameSpace = NS_BTH;


HANDLE hLookup;
int  lookupResult = WSALookupServiceBegin(wsaq,LUP_CONTAINERS | LUP_FLUSHCACHE,&hLookup);
if (lookupResult != 0)
{
	ShowMessage(" Ошибка при инициализации поиска");
}


while (lookupResult == 0)
{
	DWORD  bufferLen = BUF_SIZE;

	lookupResult = WSALookupServiceNext(hLookup,
				 LUP_RETURN_NAME | LUP_RETURN_ADDR,
				 &bufferLen,
				  wsaq);
	if (lookupResult != 0) break;

	String Str = wsaq->lpszServiceInstanceName;
	UnicodeString Str2 = Str;
	ShowMessage(Str2);//вывод названия найденного устройства
}


 memset (&sab, 0, sizeof(sab));

 sab.addressFamily  = AF_BTH;
 sab.btAddr = aSddr;
 sab.serviceClassId = SerialPortServiceClass_UUID;
 sab.port = DWORD(BT_PORT_ANY);

 my_sock = socket (AF_BTH, SOCK_STREAM, BTHPROTO_RFCOMM);
  if (my_sock == INVALID_SOCKET)
  {
  ShowMessage("Socket error");
  }

 if (connect (my_sock,(SOCKADDR *)&sab, sizeof(sab)))
   {
   ShowMessage("no connect");
   closesocket(my_sock);
   WSACleanup();
   return;
   }

 else {
		ShowMessage("connecting");
	  }
WSALookupServiceEnd(hLookup);
WSACleanup();

}

Drago56 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Bluetooth Drago56 C++ Builder 5 04.02.2016 14:03
BlueTooth GBAXA Работа с сетью в Delphi 1 19.12.2010 14:53
Bluetooth на ноуте misher Железо 0 17.12.2010 22:56
BlueTooth subsonic Общие вопросы Delphi 4 24.07.2008 16:19
BlueTooth doniyor Компоненты Delphi 5 01.06.2008 23:19


13:01.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru