Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

dr_creigan (2010-06-19 03:38:00) [1]
а насчет исправленной библиотечки BlueTooth Framework - не мог бы ты ее куда-нить залить? а то требуют все по 150 у.е.

Pashka.cool (2010-06-09 19:02:00) [2]
Всё, разобрался малость, но из-за недостатка времени выполнил всю работу по передаче файлов при помощи готовой проги, которую своей программой просто "заставил" выполнять нужные мне действия автоматом. Это уже как костыль из костылей, но для этого мне хватило несколько часов. Уже позже создам свой механизм работы с БТ используя библиотеку. Всем спасибо за ответы.

tesseract (2010-05-12 17:32:00) [3]

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

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

Pashka.cool (2010-05-10 21:55:00) [4]
У автора спрашивать сложно, т.к. последние сообщения на тех форумах, где статьи выложены - 2008-го года. Я просто надеялся, что хоть кто то вообще обуздал работу с БТ устройствами и как. Более всего интересует передача данных.

Германн (2010-05-10 03:44:00) [5]

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

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

Германн (2010-05-10 03:32:00) [6]

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

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

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

Pashka.cool (2010-05-09 23:19:00) [7]
Сорри, что неверно выбрал раздел для данного вопроса. Вот предоставлю сразу короткий фрагмент кода, который якобы должен работать по заверению автора, но у меня строка вызова первого устройства возвращает нулевое значение и сообщение об ошибке указывает, что просто нет таких устройств:
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-08 03:21:00) [8]
И почему этот топик до сих про в WinAPI?
Автор не привел ни одного примера своего кода!
Так какой ответ он ждёт? Дайте код?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »