网络共享问题-Delphi

Question

good evening! I am trying to make a connection with Tethering, following the explanations of Malcon Groves ( http://www.malcolmgroves.com/blog/?p=1854 ), however I am having the following problem:

When you click Connect, App1 apparently connects, but does not display the App2 handle.

App2 happens the same thing .... ....

I inserted the tetheringappprofile and tetheringmanager components and made the settings indicated ....

The codes are:

//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;

Thanks!

Answer 1

When you use AutoConnect to discover other apps, the TetheringAppProfile.Group property in both apps has to be same.

Malcolm Groves has indeed great series of articles about App Tethering. I also attended presentation from Jens Fudge about the subject. Otherwise very hard to master. Thank you guys!

Delphi ships itself with number of useful samples about App Tethering. They are located in directory: ..\\Samples\\Object Pascal\\RTL\\Tethering\\

@Dave: connection through IPv6 should be possible. Did you try AllowedAdapters property? http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.Tether.Manager.TTetheringManager.AllowedAdapters