Bluetooth Connection Sample (PC)

このサンプルは、Bluetooth通信を使ってNetduinoに1バイトのバイナリデータを送信するためのサンプルコードです。 本サンプルはUWPアプリとして作成しており、UWP対応のプラットフォームであれば稼働可能です。

 
 
 
 
 
(0)
1,629 times
Add to favorites
9/14/2015
E-mail Twitter del.icio.us Digg Facebook
Sign in to ask a question


  • Bluetooth Connection Sample (PC)に関して
    2 Posts | Last post June 30, 2016
    • OS:Windows 10 Mobile
      Printer:brother RJ-4030
      
      Bluetoothでつながったプリンターにサンプルをもとに「button_Click」に以下の内容でコーディング
              Dim deviceService As RfcommDeviceService
              Dim servicesInfos = Await DeviceInformation.FindAllAsync(RfcommDeviceService.GetDeviceSelector(RfcommServiceId.SerialPort))
              For Each serviceInfo In servicesInfos
                  If serviceInfo.Name = "RJ-40303767" Then
                      deviceService = Await RfcommDeviceService.FromIdAsync(serviceInfo.Id)
                      Exit For
                  End If
              Next
              '
              Dim btSocket = New StreamSocket
              Await btSocket.ConnectAsync(deviceService.ConnectionHostName, deviceService.ConnectionServiceName, SocketProtectionLevel.BluetoothEncryptionAllowNullAuthentication)
              Dim DataWriter = New DataWriter(btSocket.OutputStream)
      
      bufの内容は「ESC/P」で記述したコマンドです。
      
              DataWriter.WriteBytes(buf)
              Dim sendResult = Await DataWriter.StoreAsync()
      
      サンプルに「buf」の内容を送ると正しく印刷されるが、
      上記内容では「deviceService = Await RfcommDeviceService.FromIdAsync(serviceInfo.Id)」で
      Device情報がセットされないために「btSocket.ConnectAsync」で失敗します。
      
      「deviceService.ConnectionHostName」等がNullで失敗しているのは解ったのですが、
      「deviceService = …」をどうすれば、問題が解決できるのかわかりません。
      
      解決方法を教えていただくメールしました。
      
      以上、よろしくお願いいたします
    • 自己解決しました。
      
      マニフェストに「Capabilities」の追加で解決
      
      以上です。