TTetheringManager EIdSocketError

[Евгений Корепов]

Delphi XE8, Android.

 

Не могу перехватить исключение при попытке активировать TTetheringManager, при отладке появляется EIdSocketError "Socket Error #101 Network is unreachable". Если игнорировать или запускать приложение отдельно - глухой висяк. Код простой:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    TM.Enabled:=True;
  except
    on E : EIdSocketError do
      ShowMessage(E.Message) ;
  end;
  if TM.Enabled then
    TAP.Enabled:=True;
end;

Исключение не перехватывается. Возникает судя по всему уже в отдельном потоке и приводит к неработоспособности приложения при попытке запустить с выключенным wifi или интернетом.

Конечно можно обвесить каждое телодвижение внешними проверками на наличие связи, но подозреваю есть путь проще. Буду благодарен за помощь

[Равиль Зарипов (ZuBy)]

  if TM.Enabled then
    TAP.Enabled:=True;

что он должен делать? что за компоненты?

Изменено 20 мая, 2015 пользователем ZuBy

[Евгений Корепов]

  if TM.Enabled then
    TAP.Enabled:=True;

что он должен делать? что за компоненты?

 

Название темы это объясняет.

[Равиль Зарипов (ZuBy)]

 

  if TM.Enabled then
    TAP.Enabled:=True;

что он должен делать? что за компоненты?

 

Название темы это объясняет.

TM - TTetheringManager

TAP - ???

ну в принципе, если вам не нужно, то и другим тоже

[Евгений Корепов]

Вот полный код приложения:

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.Tether.Manager,
  System.Tether.AppProfile, IPPeerClient, IPPeerServer,
  FMX.Controls.Presentation, FMX.StdCtrls, IdStack;
type
  TForm1 = class(TForm)
    TM: TTetheringManager;
    TAP: TTetheringAppProfile;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var Form1: TForm1;

implementation
{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    TM.Enabled:=True;
  except
    on E : EIdSocketError do
      ShowMessage(E.Message) ;
  end;
  if TM.Enabled then
    TAP.Enabled:=True;
end;

end.

Пробовал перехватывать с помощью Application.OnException, но тоже безрезультатно. Судя по исходникам, авторы компонентов не посчитали нужным обрабатывать сетевые ошибки Добавил свои проверки на доступность Wi-Fi и мобильного интернета...

[Евгений Корепов]

Обнаружил еще одну странность TTetheringManager - не хочет работать через мобильный интернет. 

procedure TForm1.Button2Click(Sender: TObject);
Var DiscoverTimeOut : Integer;
    ATargetList: TTetheringTargetHosts;
begin
  SetLength(ATargetList,3);
  ATargetList[0]:='195.22.104.70';
  ATargetList[1]:='195.22.104.71';
  ATargetList[2]:='195.22.104.72';
  DiscoverTimeOut:=5000;
  TM.DiscoverManagers(10000,ATargetList);
end;

Этот код не имеет никакого эффекта. 

[#WAMACO]

Обнаружил еще одну странность TTetheringManager - не хочет работать через мобильный интернет. 

procedure TForm1.Button2Click(Sender: TObject);
Var DiscoverTimeOut : Integer;
    ATargetList: TTetheringTargetHosts;
begin
  SetLength(ATargetList,3);
  ATargetList[0]:='195.22.104.70';
  ATargetList[1]:='195.22.104.71';
  ATargetList[2]:='195.22.104.72';
  DiscoverTimeOut:=5000;
  TM.DiscoverManagers(10000,ATargetList);
end;

Этот код не имеет никакого эффекта. 

так и не будет иметь! через мобильный интернет Tethering не работает в принципе!