J2ME - связь через последовательный порт Bluetooth между ПК и мобильным - PullRequest
Новая
       16

J2ME - связь через последовательный порт Bluetooth между ПК и мобильным

0 голосов
/ 07 февраля 2012

Я пытаюсь создать клиент-серверное приложение. Я собираюсь сделать это простым, чтобы базовое приложение чата.

Я прошел эти уроки:

Сторона сервера: VB.Net
Сторона клиента: J2ME

Работа моих приложений: мобильное и ПК приложение будет прослушивать сообщения (текст). Когда сообщение получено с мобильного на мой компьютер, оно будет отображено. Как и наоборот.

На моем компьютере установлена ​​программа Nokia PC Suite. У меня есть модели N70 и 5230. Поэтому, когда я включаю Bluetooth 5230, мой компьютер автоматически подключается (Nokia PC Suite показывает всплывающее окно с сообщением, что мой мобильный телефон подключен). У меня есть Bluetooth-ключ для ПК.

Когда я подключил свой мобильный и проверил порты, я обнаружил, что COM7 и COM8 доступны (COM7-COM10 для последовательной связи Bluetooth). Итак, если я использую один из этих портов для своего использования, будет ли он конфликтовать с Nokia PC Suite?

Я имею в виду, использует ли PC Suite те же порты (7 и 8) для связи с мобильными устройствами? Есть ли у меня проблемы с потерей контактов и сообщений, если я использую тот же порт, который используется в Nokia PC Suite?

1 Ответ

1 голос
/ 12 февраля 2012

Я рекомендую не использовать виртуальные COM-порты, за исключением случаев, когда это действительно необходимо, и вместо этого использовать Bluetooth API.Моя библиотека 32feet.NET предоставляет такой API, и, таким образом, можно использовать код сервера, как показано ниже.На мой взгляд, гораздо более надежный, чем попытка настроить и использовать COM-порты ... Мы даже предоставляем программу чата в samples . 

Class MyConsts
  Shared ReadOnly MyServiceUuid As Guid _
    = New Guid("{00112233-4455-6677-8899-aabbccddeeff}")
End Class

  ...
  Dim serviceClass As Guid
  serviceClass = BluetoothService.SerialPort
  ' - or - etc
  ' serviceClass = MyConsts.MyServiceUuid
  '
  Dim lsnr As New BluetoothListener(serviceClass)
  lsnr.Start()


  ' Now accept new connections, perhaps using the thread pool to handle each
  Dim conn As New BluetoothClient = lsnr.AcceptBluetoothClient()
  Dim peerStream As Stream = conn.GetStream()
  ...

  ' etc
  conn As New BluetoothClient = lsnr.AcceptBluetoothClient()
  peerStream As Stream = conn.GetStream()
  ...
...