DelphiでBluetooth(1)

目的

Arduino（＋ HC-05）とWindowsPCの間で、Bluetooth使って無線通信したい。（PCでBluetoothラジコン用のコントローラー作りたい）

手段

PC側は無料で利用できるDelphi 10.3.3 Community Editionを使う。Delphiのコントロールに　TBluetooth　というのがあるので、これを使ってみる。

公式の記事

クラシック Bluetooth の使用 - RAD Studio

この中の「リモート デバイスの検出とそれらとのペア設定」の部分に沿ってやってみる。

手順メモ

（※見出しは上のリンク先公式記事に沿ったもの）
※アプリケーションへの TBluetooth コンポーネントの追加
・Delphiフォームに Bluetoothのコントロール(TBluetooth)貼った。（済）
・ボタン(TButton)とメモ枠（TMemo）も追加。

※リモート デバイスの検出とそれらとのペア設定
※※デバイスを検出可能にする・・今検出したい対象は、HC-05のモジュールなので、アプリが走るPC側は検出可能にするとか考える必要はないはず。たぶん読み飛ばしてＯＫ。
※※リモート デバイスを検出する
TBluetooth.DiscoverDevices を呼んで、タイムアウト時間まで待つ。タイムアウト時間になると、TBluetooth.OnDiscoveryEndイベントが呼ばれる。
TBluetooth.LastDiscoveredDevicesで、検出されたデバイスのリストが得られるそうで。

試行錯誤の記録

今回、「デバイスリスト」を得るところまでは試したい。

まず、ボタンクリックしたときにBluetoothのスキャン５秒する。

procedure TForm1.Button1Click(Sender: TObject);
begin
 //五秒スキャンする
 Bluetooth1.DiscoverDevices(5000);
end;

五秒経過して、終わると、OnDiscoveryEndイベントが呼ばれるはず。

procedure TForm1.Bluetooth1DiscoveryEnd(const Sender: TObject;
 const ADeviceList: TBluetoothDeviceList);
begin

end;

OnDiscoveryEndイベントが呼ばれていることを確認しようと・・

procedure TForm1.Button1Click(Sender: TObject);
begin
 //五秒スキャンする
 Memo1.Lines.Clear;
 Memo1.Lines.Add('スキャンするよ');
 Bluetooth1.DiscoverDevices(5000);
end;

procedure TForm1.Bluetooth1DiscoveryEnd(const Sender: TObject;
 const ADeviceList: TBluetoothDeviceList);
begin
 Memo1.Lines.Add('5秒たったよ');
end;

こんなふうにしてまず試そうと思った。

・・のだけど、Button1クリックして5秒経っても、Memoになにも追加されない。OnDiscoveryEndイベントが呼ばれていないみたい。おかしいなぁと結構悩んじゃいました。

困ったときのサンプルコード。インストールしたフォルダの、次の場所にClassic Bluetooth Basic appのサンプルコードがあるんで

Embarcadero\Studio\20.0\Samples\Object Pascal\Multi-Device Samples\Device Sensors and Services\Bluetooth\Classic Bluetooth Basic app

走らせてみたら、うむ、あっさり、HC-05を発見してペアリングもできましたよ。ただこのサンプルは、TBluetoothのコントロールを直接使っていないようなんですね。

自分のテストのコードに戻ってきてにらめっこ。

あーっ。分かってみればつまらない話。コードの問題じゃなかった。Bluetooth1のEnabledプロパティがFalseだったという(笑)。　Trueに設定。

procedure TForm1.Button1Click(Sender: TObject);
begin
 //五秒スキャンする
 Memo1.Lines.Clear;
 Memo1.Lines.Add('スキャンするよ');
 Bluetooth1.DiscoverDevices(5000);
end;

procedure TForm1.Bluetooth1DiscoveryEnd(const Sender: TObject;
 const ADeviceList: TBluetoothDeviceList);
 var DeviceCount : Integer;
begin
 Memo1.Lines.Add('5秒たったよ');
 Memo1.Lines.Add(IntToStr(ADeviceList.Count));
end;

でまた問題が発生。何度やっても得られるCountがゼロで、デバイスを見つけてくれないようなんです(´;ω;｀)

・・これもわかってみればつまらない話。公式のサンプルClassic Bluetooth Basic appで、

＞あっさり、HC-05を発見してペアリングもできました

とした後だったので見つけられなかったようです。サンプルコード「Classic Bluetooth Basic app」で、Unpairしてから自分のテストコードに戻る。

やった、検出できた（Countが1になった）。うれしい。

ここまでくれば今回のゴールも見えてきた気がする。

ソース

unit Unit1;

interface

uses
 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
 System.Bluetooth, FMX.Controls.Presentation, FMX.StdCtrls,
 System.Bluetooth.Components, FMX.Layouts, FMX.ListBox, FMX.ScrollBox, FMX.Memo;

type
 TForm1 = class(TForm)
   Bluetooth1: TBluetooth;
   Button1: TButton;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
   procedure Bluetooth1DiscoveryEnd(const Sender: TObject;
     const ADeviceList: TBluetoothDeviceList);
 private
   { private  }
 public
   { public  }
 end;

var
 Form1: TForm1;

implementation

{$R *.fmx}


procedure TForm1.Button1Click(Sender: TObject);
begin
 //五秒スキャンする
 Memo1.Lines.Clear;
 Memo1.Lines.Add('スキャンするよ');
 Bluetooth1.DiscoverDevices(5000);
end;

procedure TForm1.Bluetooth1DiscoveryEnd(const Sender: TObject;
 const ADeviceList: TBluetoothDeviceList);
 var DeviceCount : Integer;
 I: Integer;
 dname : String;
begin
 Memo1.Lines.Add('5秒たったよ');
 DeviceCount :=  ADeviceList.Count;
 Memo1.Lines.Add('見つかった件数'+IntToStr(DeviceCount)+'件');
 if DeviceCount > 0 then begin
   for I := 0 to DeviceCount-1 do begin
     dname := ADeviceList[I].DeviceName;
     Memo1.Lines.Add('DeviceName:'+dname);
   end;
 end;

end;

end.

実行結果

やった、見つかりました。"APW"というのは、HC-05の一つにつけてある名前です。複数使い分けるので、あらかじめATコマンド使い、AT+NAME=APW　と設定してあります。それを検出できたわけです。

まとめ

「Arduino（＋ HC-05）とWindowsPCの間で、Bluetooth使って無線通信」
（PCでBluetoothラジコン用のコントローラー作る）ことを今後の目標に

今回は、準備として、無料で利用できるDelphiのCommunity Editionで使える Bluetoothコントロール使って、ArduinoにつないだBluetoothモジュール、HC-05を検出するところまでを試しました。