Tethering问题 - Delphi

Question

晚上好！ 我正在尝试与Tethering建立联系，遵循Malcon Groves（http://www.malcolmgroves.com/blog/?p=1854）的解释，但是我遇到了以下问题：

单击“连接”时，App1显然已连接，但未显示App2句柄。

App2发生了同样的事情.... ....

我插入了tetheringappprofile和tetheringmanager组件并进行了指示....

代码是：

//App1
procedure TForm1.ConnectClick(Sender: TObject);
begin
 TetheringManager1.AutoConnect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := Format('App1 : %s',[tetheringmanager1.Identifier]);
end;

procedure TForm1.TetheringManager1PairedToRemote(const Sender: TObject;
  const AManagerInfo: TTetheringManagerInfo);
begin
  Label1.Text := Format('Connected  : %s %s', [AManagerInfo.ManagerIdentifier, 
AManagerInfo.ManagerName]);
end;

procedure TForm1.TetheringManager1RequestManagerPassword(const Sender: TObject;
  const ARemoteIdentifier: string; var Password: string);
begin
  Password := '1234';
end;

//App2



procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := Format('App2 : %s', [tetheringmanager1.Identifier]);
end;

procedure TForm1.TetheringManager1PairedFromLocal(const Sender: TObject;
  const AManagerInfo: TTetheringManagerInfo);
begin
  Label1.Text := Format('Connected : %s %s',[AManagerInfo.ManagerIdentifier,
 AManagerInfo.ManagerName]);
end;

谢谢！

Answer 1

当您使用AutoConnect发现其他应用时，两个应用中的TetheringAppProfile.Group属性必须相同。

Malcolm Groves确实有很多关于App Tethering的文章。我还参加了Jens Fudge关于这个主题的演讲。否则很难掌握。谢谢你们！

Delphi附带了许多关于App Tethering的有用示例。它们位于以下目录中：.. \ Samples \ Object Pascal \ RTL \ Tethering \

@Dave：应该可以通过IPv6连接。你试过AllowedAdapters财产吗？ http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Tether.Manager.TTetheringManager.AllowedAdapters