Delphi Desktop-Applikation und Android-APP reconnect

[Siggi]

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