Работа с Bluetooth в среде Borland C++ : Программирование для всех. Языки программирования, программирование баз данных, технологии. Статьи для програмиста скачать бесплатно учебники книги документация форум : Статьи

Автор: Шишкин Владимир
www.DklSoftWare.net

Данный текст, рекомендуется читать в случае если у вас возникли проблемы при работе с bluetooth в среде Borland C++. Принцип работы с bluetooth и в Delphi ,и в Builder'е одинаков. Но ,для того чтобы заработало это в Builder'е, пришлось пойти на некоторые уловки.

Итак, первое что вам понадобится – архив, содержащий заголовочные файлы и lib’ы. Заголовочные файлы для удобства складываются в папку include, lib'ы ,соответственно , тоже.

//пока не забыл, киньте на форму три компонента 2-TreeView(здесь будут отображаться ваши устройства : радио и девайсы), и один ListBox послужит отражение проводимых действий. BLUETOOTH_FIND_RADIO_PARAMS btfrp; HBLUETOOTH_RADIO_FIND hFind; BLUETOOTH_RADIO_INFO RadioInfo = {0}; btfrp.dwSize= sizeof(btfrp); hFind= BluetoothFindFirstRadio(&btfrp,&hRadio); if(NULL!= hFind) { BLUETOOTH_RADIO_INFO radioInfo; radioInfo.dwSize = sizeof(radioInfo); TTreeNode* tree;Form1->ListBox1->Items->Add("Radioisfound,began questioning");if(ERROR_SUCCESS= = BluetoothGetRadioInfo(hRadio, &radioInfo)) {AnsiString name[256];name[256]=radioInfo.szName;Form1->TreeView1->Items->BeginUpdate(); Form1->ListBox1->Items->Add("Radiorequesting.......");Application->ProcessMessages(); AnsiStringabc;abc= String(radioInfo.szName); Form1->TreeView1->Items->Add(tree,abc); Form1->TreeView1->Items->EndUpdate(); Form1->ListBox1->Items->Add("Radio requesting is finished."); return hRadio;//возвращаем хенделбрилкаоннам еще пригодиться. } else { Form1->ListBox1->Items->Add("Radio request isfaliled,readhealabout this topic!"); Form1->ListBox1->Items->Add(GetLastError()); } } else { TTreeNode*tres;Form1->ListBox1->Items->Add("Not nor one local device of the issue Bluetooth is installed!"); CloseHandle(hRadio); } } Вот и все теперь можно получить список удаленных устройств (брелоков). Для поиска удаленных устройств у меня получилась вот такая простая функция. void findremote(HANDLE hRadio,bool aunt,bool remeber,bool uncknow,bool connect) { BLUETOOTH_DEVICE_INFO_STRUCT deviceInfo; deviceInfo.dwSize = sizeof(deviceInfo); BLUETOOTH_DEVICE_SEARCH_PARAMS deviceSearchParams; memset(&deviceSearchParams, 0, sizeof(deviceSearchParams)); deviceSearchParams.dwSize = sizeof(deviceSearchParams); deviceSearchParams.fReturnAuthenticated = aunt; deviceSearchParams.fReturnRemembered = remeber; deviceSearchParams.fReturnUnknown = uncknow; deviceSearchParams.fReturnConnected = connect; deviceSearchParams.hRadio = hRadio; HANDLE hDeviceFind = BluetoothFindFirstDevice(&deviceSearchParams, &deviceInfo); if (NULL != hDeviceFind) { do {TTreeNode*node;Form1->TreeView2->Items->Add(node,String(deviceInfo.szName)); BluetoothGetDeviceInfo(hRadio, &deviceInfo); GUID guidServices[10]; DWORD numServices = sizeof(guidServices); DWORD result = BluetoothEnumerateInstalledServices(hRadio, &deviceInfo, &numServices, guidServices); } while(BluetoothFindNextDevice(hDeviceFind, deviceInfo)); BluetoothFindDeviceClose(hDeviceFind); }else{Form1->ListBox1->Items->Add("No any remote device in working area"); SOCKET s; SOCKADDR_BTH sbth; memset(&sbth, 0, sizeof(sbth)); sbth.addressFamily = AF_BTH; sbth.btAddr = 0; sbth.port = BT_PORT_ANY; if (bind(s, (const sockaddr*)&sbth,sizeof(SOCKADDR_BTH))== SOCKET_ERROR) { Form1->ListBox1->Items->Add("All right we bind now!!!"); }else{Form1->ListBox1->Items->Add("Bind is failded. "); } } }

Расскажу главное. Первые три переменные, которые объявлены в функции, могут использоваться в установке следующих параметров поиска:

deviceSearchParams.fReturnAuthenticated = aunt;
deviceSearchParams.fReturnRemembered = remeber;
deviceSearchParams.fReturnUnknown = uncknow;
deviceSearchParams.fReturnConnected = connect;

aunt ,соответственно если true, то поиск возвращает только аудентифицированные устройства ,remeber –запомненные, uncknow– неопознанные, connect–подключенные.

Для чего нужно создавать сокет и ставить его на прослушку, я расскажу в 3-4 частах патча.

Спасибо:Михаилу Петриченко за его помощь.

С уважением,

Шишкин Владимир.

icq:338-341-861.

e-mail: Dkl@DklSoftWare.net

При разработке CMS S.Builder наша команда активно использовала AJAX. Теперь вот решили поделиться накопленным опытом. Начнем с этого хабратопика. Не буду здесь затрагивать различные фреймворки и библиотеки. Свой код всегда роднее. Для работы с AJAX-ом в S.Builder написана библиотека sbAJAX. Можете качать и пользоваться :). В этом файле есть функция sbEvalJS. Для тех, кто не знает, объясню. При подгрузке через AJAX и вставке на страницу HTML-кода, содержащего JavaScript, JavaScript выполняться не будет или полезут баги. Эта функция как раз решает поставленную задачу.

Обзор нового релиза самой мощной Ajax библ....

Хотя наш обзор немного запоздал, оригинальный Dojo 1.2 вышел в релизной версии ещё 6-го октября, но сейчас мы наверстаем упущенное. И так, Dojo Toolkit — это самая мощная и гибкая ajax-библиотека из всех, что есть на рынке, она активно развивается и имеет большое комьюнити. Кстати, это самое комьюнити, совместно с компанией Sitepen, имеет ещё несколько проектов, среди которых и Cometd и некоторые другие, не менее интересные, о которых мы скоро вам расскажем. Сегодня же все внимание на флагманский продукт — Dojo 1.2.

Если вы профессиональный веб-разработчик и постоянно имеете дело с разработкой и отладкой сложных AJAX приложений, то наверняка знаете и используете Firebug — плагин для браузера Firefox, предназначенный для отладки и исследования веб-приложений. Текущая его версия, 1.2х достаточно стабильная и функциональна, чтобы помочь в 99% проблем, которые могут возникнуть при разработке. Но и этот инструмент не лишён если не недостатков, то некоторых фич, которые могли бы облегчить работу. И даже идеальный инструмент можно сделать ещё более идеальным, как бы это не звучало.