Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.02.2016, 23:36   #1
Drago56
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 91
По умолчанию 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 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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