Delphi Tethering Errors - PullRequest
Новая
       6

Delphi Tethering Errors

0 голосов
/ 14 сентября 2018

My Delphi 10.2.3 приложение привязки отображает эти сообщения об ошибках при вызове SendString (), когда сопутствующее приложение больше не привязано.

Блокировка объекта не принадлежит

Профиль {ID профиля здесь} не подключен.

Я пытаюсь предотвратить вызов SendString (), если профиль сопутствующего приложения не готов с этим кодом: 

  if (TetheringManager.RemoteProfiles.Count = 0)
    then Exit;

  if (TetheringAppProfile.ConnectedProfiles.Count = 0)
    then Exit;

theResult := TetheringAppProfile.SendString(TetheringManager.RemoteProfiles.First,
                                                  'myNumberInformation',
                                                  MyNumber.ToString);

Есть ли лучший способ выяснить, готово ли сопутствующее приложение для SendString ()?

В противном случае, есть ли способ подавления сообщений об ошибках?

...