Работа с Bluetooth в Delphi

Содержание материала

Страница 26 из 26

Далее вызываем функцию listen, для того чтобы сервер начал прослушивать сокет на предмет подключения клиентов и функцию accept для приема входящего подключения:

Code:

function listen(s: TSocket; backlog: Integer): Integer; stdcall;

function accept(s: TSocket; addr: PSockAddr; addrlen: PINT): TSocket; stdcall;

Делается это вот так:

Code:

var

AClientSocket: TSocket;

begin

if listen(ASocket, 10) <> 0 then

RaiseLastOSError;

AClientSocket = accept(ASocket, nil, nil);

После подключения клиента можно работать с AClientSocket – передавать и принимать данные.

Если вы не желаете больше принимать входящие подключения, закройте слушающий сокет.

Что осталось за кадром

Как и обещал, я коротко описал процедуры, необходимые для построения простого клиента и сервера, которые будут работать с Bluetooth через WinSock. Однако, здесь я не рассматривал вопросы регистрации сервисов и протоколы верхнего уровня.

Приведенной здесь информации достаточно для того, что бы вы могли создать приложение "клиент", которое соединится с ваши телефоном по Bluetooth и сможет выполнять AT-команды.

Более полную информацию и рабочие примеры можно найти здесь: https://www.btframework.com. Там же приведено решение по установке драйверов от Microsoft.

Всегда буду рад ответить на ваши вопросы: Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.

Новые статьи

Библиотека для работы с BlueTooth

Работа с Bluetooth в Delphi