Delphi Desktop-Applikation und Android-APP reconnect

[TurboMagic]

Weiß ich leider auch nicht, es wäre aber interessant, da ich das in einem Projekt evtl. auch nutzen will.
Noch was: die von dir im Profil angegebene Delphi Version kann eher nicht sein, da gab's das noch nicht

[Siggi]

Turbomagic: Danke für den Hinweis auf's veraltete Profil, gerade zum Jahreswechsel umgestellt und jetzt auch hier angepasst.

[Siggi]

Habe jetzt noch mal ein paar Tests gemacht.
Problem scheint auf der Seite der Android-App zu liegen. Die Dekstop-App kann ich beenden, starten, per Button die Verbindung trennen und neu aufbauen und es klappt alles.
Beende ich die Android-App (Application.Terminate und dann per Android-Task-Manager die App schließen oder "alle schließen") und starte nur die Android-App neu, kommt zwar die Verbindung zustande, aber die Events werden nicht ausgelöst.

Einen Schritt weiter (Ursache aber noch keine Lösung) hat mich folgende Test-Ausgabe gebracht:

Delphi-Quellcode:

  
  ShowMessage('AManagerInfo.ManagerIdentifier:'+AManagerInfo.ManagerIdentifier);

Beende ich die Desktop-App oder beende von dort die Verbindung und baue sie neu auf, erhalte ich immer die gleichen Daten.
Beende ich aber die Android-App, wird nach deren Neustart ein andere Wert für AManagerInfo.ManagerIdentifier zurückgeliefert. Demnach müsste ich "nur" einen Weg finden, entweder unter Android immer den gleichen ManagerIdentifier zu verwenden oder in der Desktop-App bei geändertem ManagerIdentifier auf den geänderten ManagerIdentifier zu reagieren. Vermutlich muss nur etwas mehr "aufgeräumt" werden beim Reconnect, damit dann der neue ManagerIdentifier für die Events greift - aber wie?

vielleicht hat mit dieser Zusatzinfo jemand einen Tipp für mich...

VG
Siggi

[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

[TurboMagic]

Schön, dass du eine Lösung gefunden hast.
Gibt's keine Möglichkeit die vergebene ID anderweitig zu resetten?

Falls hier nichts mehr kommt wäre es evtl. auch gut deinen Fall als Bugreport in
https://quality.embarcadero.com/ zu
beschreiben damit, falls es nicht doch eine andere Lösung gibt, das grundelegende
Problem angegangen wird. Weil dein Szenario wird ja ganz bestimmt in der Praxis
auftreten...