Discussion :

[Papy214]

Bonjour,

Le code suivant est utilisé et fonctionnel sous XE7. Quand je dis fonctionnel, ça veut dire que je peux lancer l'application sur deux machines différentes et que chaque évènement est bien lancé quand il faut.
Sous XE10, ça ne fonctionne plus du tout. Autoconnect par exemple ne déclenche absolument rien. En fait, j'ai juste copié et recompilé le projet dans le nouvel IDE.

XE10 nécessiterait-il un paramétrage supplémentaire pour que le fonctionnement soit correct ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
procedure TForm7.FormShow(Sender: TObject);
begin
  TetheringManager1.AutoConnect(2000);
end;
 
procedure TForm7.TetheringManager1EndAutoConnect(Sender: TObject);
begin
  Memo1.Lines.Add('TetheringManager1EndAutoConnect');
end;
 
procedure TForm7.TetheringManager1PairedFromLocal(const Sender: TObject;
  const AManagerInfo: TTetheringManagerInfo);
begin
  Memo1.Lines.Add('PairedFromLocal ' + AManagerInfo.ManagerIdentifier);
end;
 
procedure TForm7.TetheringManager1PairedToRemote(const Sender: TObject;
  const AManagerInfo: TTetheringManagerInfo);
begin
  Memo1.Lines.Add('PairedToRemote ' + AManagerInfo.ManagerIdentifier);
end;
 
procedure TForm7.TetheringManager1RemoteManagerShutdown(const Sender: TObject;
  const AManagerIdentifier: string);
begin
  Memo1.Lines.Add('RemoteManagerShutdown ' + AManagerIdentifier);
end;
 
procedure TForm7.TetheringManager1RequestManagerPassword(const Sender: TObject;
  const ARemoteIdentifier: string; var Password: string);
begin
  Password := 'toto';
end;

[Thierry Laborde]

Salut Jean-Luc,

Il y a eu des modifications sur le Tethering dans Seattle :

http://docwiki.embarcadero.com/RADSt...p_dans_Seattle

Mais cela ne semble pas concerner ce que tu utilises. J'avoue ne pas avoir eu le temps de tester

[Papy214]

Je viens de refaire un test en déplaçant mon exe sur le bureau, donc, à un emplacement différent de mon premier test.
Je mets le même exe sur une VM où je ne l'ai jamais utilisé.
Les 2 sont lancés et ça fonctionne très bien.

Je ferme les 2 exe puis je refais le test.
Et là, plus rien ! J'avais rajouté le OnNewManager qui lui, fonctionne bien. Mais le reste ne fonctionne plus.

On a l'impression que quelque chose est resté en mémoire quelquepart.
Comme si le soft pensait être toujours lié à son "copain" distant.

Donc, le symptome c'est que ça fonctionne une première fois correctement et que ça "plante" après.

Demain, je redémarre le pc et la vm et je refais le test