Habe mir jetzt erst mal so beholfen, dass ich beiden Objekte TetheringManager und TetheringAppProfile nicht als Objekte zur DesignTime aufs Formular lege, sondern zur Laufzeit neu erzeuge und bei Reconnect komplett verwerfe und erstelle. Damit "vergisst" der TetheringManager dann auch den bisherigen ManagerIdentifier und verbindet die ResourceReceived-Methode mit dem neuen ManagerIdentifier.
Delphi-Quellcode:
procedure TmyForm.CreateTethering;
begin
TetheringManager1 := TTetheringManager.Create(self);
with TetheringManager1 do
begin
OnPairedToRemote := TetheringManager1PairedToRemote;
Text := 'TetheringManager1';
AllowedAdapters := 'Network';
end;
TetheringAppProfile1 := TTetheringAppProfile.Create(self);
with TetheringAppProfile1 do
begin
Manager := TetheringManager1;
Text := 'TetheringAppProfile1';
Group := 'myGroup';
OnResourceReceived := TetheringAppProfile1ResourceReceived;
end;
end;
procedure TmyForm.FreeTethering;
begin
if TetheringManager1 <> nil then
TetheringManager1.Free;
if TetheringAppProfile1 <> nil then
TetheringAppProfile1.Free;
end;
Dann kann ich beliebig die Android-App beenden und von der Desktop-Applikation die Verbindung neu aufbauen.
Das geht vielleicht auch einfacher / besser (??), aber so funktioniert es erst mal.
Siggi