Tethering的问题- Delphi

Question

晚上好!按照Malcon Groves (http://www.malcolmgroves.com/blog/?p=1854)的解释，我正在尝试建立与Tethering的连接，但是我遇到了以下问题：

当您单击“连接”时，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 property？http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Tether.Manager.TTetheringManager.AllowedAdapters