VB.NET Bluetoothデバイスにデータ送信する

32feet.NETを使用して、Bluetoothデバイスにデータ送信する方法を記載します。

例として、送信するデバイスはモバイルプリンタにデータ送信します。

Bluetoothデバイスにデータ送信する

Imports InTheHand.Net.Bluetooth
Imports InTheHand.Net.Sockets

Dim client = New BluetoothClient()

Dim device = client.DiscoverDevices().Where(Function(d) d.DeviceName = "BLM-80").FirstOrDefault()
If device IsNot Nothing Then
    client.SetPin("0000")
    client.Connect(device.DeviceAddress, BluetoothService.SerialPort)

    Dim bluetoothStream = client.GetStream()
    If bluetoothStream.CanWrite Then
        Dim buffer = New Byte() {&H30, &H31, &H32, &H33, &H34, &H35, &HD, &HA}
        bluetoothStream.Write(buffer, 0, buffer.Length)
    End If
End If

・device変数に、モバイルプリンタ(BLM-80)を選択しています。

・SetPin(“0000”)は、パスコードをセットします。パスコードは機器によって異なりますが、”0000″、”1234″が多いようです。詳細はデバイスのマニュアルを参照ください。

・CanWriteメソッドで、出力デバイスかの確認をしています。

・Writeメソッドで、プリンタに”012345″の印刷をしています。

※接続は、Windowsで接続済み、ペアリング済み、ペアリングされていないものでも接続できます。