BlueTooth не удаётся обуздать уже несколькими способами.

← →
Pashka.cool (2010-05-07 17:22) [0]

Уважаемые знатоки, вот уже третий день борюсь за право обуздать BlueTooth устройства и работу с ними, но ничего не выходит. А именно ни с исправленной библиотекой btapi и примерами под неё, ни с компонентами линейки BlueTooth Frimework 5.1.1 и примерами на них. Все примеры не определяют ни одного устройства, хотя Винда (ХР SP3) их нормально отображает. Кто то может подсказать, в чём проблемка или обсудить эту тему?

← →
Германн © (2010-05-08 03:21) [1]

И почему этот топик до сих про в WinAPI?
Автор не привел ни одного примера своего кода!
Так какой ответ он ждёт? Дайте код?

← →
Pashka.cool (2010-05-09 23:19) [2]

Сорри, что неверно выбрал раздел для данного вопроса. Вот предоставлю сразу короткий фрагмент кода, который якобы должен работать по заверению автора, но у меня строка вызова первого устройства возвращает нулевое значение и сообщение об ошибке указывает, что просто нет таких устройств:
var
RootNode: TTreeNode;
hFind: HBLUETOOTH_RADIO_FIND;
hDevFind: HBLUETOOTH_DEVICE_FIND;
FindParams: BLUETOOTH_FIND_RADIO_PARAMS;
SearchParams: BLUETOOTH_DEVICE_SEARCH_PARAMS;
SearchParamsSize: dword;
DevInfo: ^PBLUETOOTH_DEVICE_INFO;
DevInfoSize: dword;
hRadio: THandle;
RadioInfo: PBLUETOOTH_RADIO_INFO;
RadioInfoSize: dword;
RadioNode: TTreeNode;
Loop: integer;
DevNode: TTreeNode;
begin
with TreeView.Items do begin
BeginUpdate;

// Очищаем дерево
for Loop := 0 to Count - 1 do begin
if TreeView.Items[Loop].ImageIndex > 0 then
CloseHandle(TreeView.Items[Loop].ImageIndex);
if Assigned(TreeView.Items[Loop].Data) then
Dispose(TreeView.Items[Loop].Data);
end;
Clear;

// Корневая ватвь в дереве
RootNode := Add(nil, "Bluetooth Radios");
with RootNode do begin
Data := nil;
ImageIndex := -1;
end;

// Начинаем поиск локальных модулей Bluetooth
FindParams.dwSize := SizeOf(BLUETOOTH_FIND_RADIO_PARAMS);
hFind := BluetoothFindFirstRadio(@FindParams, hRadio);
if hFind <> 0 then begin
repeat
// Получить информацию о радиомодуле
....
end;

EndUpdate;
end;

with TreeView do begin
Selected := RootNode;
Items[0].Expand(True);
end;
end;
Т.е. этот метод был предложен автором, но строка
"hFind := BluetoothFindFirstRadio(@FindParams, hRadio);" всё же возвращает нулевое значение.
Так же и компоненты не находят БТ устройства по той же причине. Но Винда всё же их видит без всяких закавык. Что может быть? Методы, которые вызываются - это из "btapi.dll".

← →
Германн © (2010-05-10 03:32) [3]

> Pashka.cool (09.05.10 23:19) [2]
>
> Сорри, что неверно выбрал раздел для данного вопроса. Вот
> предоставлю сразу короткий фрагмент кода, который якобы
> должен работать по заверению автора

Выбрал то ты верно. Но спросил не то и не там. Имхо.

Так у автора примера и спрашивай.

← →
Германн © (2010-05-10 03:44) [4]

> Pashka.cool (09.05.10 23:19) [2]

В том, что ты привёл, нет ничего, что помогло бы найти ошибку.

← →
Pashka.cool (2010-05-10 21:55) [5]

У автора спрашивать сложно, т.к. последние сообщения на тех форумах, где статьи выложены - 2008-го года. Я просто надеялся, что хоть кто то вообще обуздал работу с БТ устройствами и как. Более всего интересует передача данных.

> Я просто надеялся, что хоть кто то вообще обуздал работу
> с БТ устройствами и как.

Судя по всему твой SDK должен поддерживать все Framework. А живёт он до сих пор и весьма неплохо : http://www.btframework.com/download.htm

← →
Pashka.cool (2010-06-09 19:02) [7]

Всё, разобрался малость, но из-за недостатка времени выполнил всю работу по передаче файлов при помощи готовой проги, которую своей программой просто "заставил" выполнять нужные мне действия автоматом. Это уже как костыль из костылей, но для этого мне хватило несколько часов. Уже позже создам свой механизм работы с БТ используя библиотеку. Всем спасибо за ответы.

← →
dr_creigan (2010-06-19 03:38) [8]

а насчет исправленной библиотечки BlueTooth Framework - не мог бы ты ее куда-нить залить? а то требуют все по 150 у.е.

BlueTooth не удаётся обуздать уже несколькими способами. Найти похожие ветки