Discussion :

[Papy214]

Bonjour

Je pensais pouvoir utiliser les composants Tethering de Berlin sur le même poste.
Le but est de générer un fichier avec l'application A, puis d'envoyer le contenu du fichier à l'application B par tethering.

Problème: Le "receveur" B se lance mais mais quand je lance l'émetteur A , j'ai le message d'erreur indiquant que le port est déjà utilisé.

Est-ce que je peux régler une option pour que ça passe quand même ou est-ce peine perdue ?

Papy !

[Thierry Laborde]

Bonjour,

En fait c'est normal. Le Tethering va chercher un port disponible entre 2020 et 2040. Mais du coup quand on est sur la même machine la 1ère application va prendre le premier port, et la 2ème va forcement déclencher une exception sur le 1er port car il est utilisé par la 1ère application. Il suffit de continuer après l'exception et cela fonctionnera.
Des liens intéressants :

http://www.malcolmgroves.com/blog/?p=1842
http://www.malcolmgroves.com/blog/?p=1854

[Thierry Laborde]

J'ai oublié d'autres liens :

http://www.malcolmgroves.com/blog/?p=1891
http://www.malcolmgroves.com/blog/?p=1935
http://www.malcolmgroves.com/blog/?p=1964
http://www.malcolmgroves.com/blog/?p=1989

[Papy214]

Ok, donc je vois l'exception uniquement quand je suis dans l'IDE et si je ne m'en occupe pas, ça va rouler.
Je teste ça tout de suite.

Merci

J'avais vu il y a quelques temps les liens que tu indiques mais pas lus en détails par manque de temps. Merci aussi pour ce rappel.


J'avais aussi trouvé celui-là:

http://otapi.com/2014/11/07/app-teth...omous-pairing/

[Papy214]

Bon, décidément, ce tethering m'échappe vraiment ...

Je lance la commande DiscoverManagers du TetheringManager.

Dans le EndManagersDiscovery, je fais un PairManager(ARemoteManagers[I]) pour chaque manager "distant" trouvé. Dans mon cas, un seul, ça tombe bien.

Dans le PairedToRemote, Je fais un ShowMessage de RemoteProfiles.Count de mon manager, et il m'affiche 0.

Pourtant, mon manager distant a bien un profile lié.

J'ai mis le même nom de groupe des 2 côtés.

Soit je suis une grosse buse, soit y'a un truc qui déconne dans le processus !

Je n'utilise pas le password. Est-ce une obligation ?

Pourquoi ce manager ne se link pas avec le profile distant ??

[Thierry Laborde]

Bon, décidément, ce tethering m'échappe vraiment ...

Je lance la commande DiscoverManagers du TetheringManager.

Dans le EndManagersDiscovery, je fais un PairManager(ARemoteManagers[I]) pour chaque manager "distant" trouvé. Dans mon cas, un seul, ça tombe bien.

Dans le PairedToRemote, Je fais un ShowMessage de RemoteProfiles.Count de mon manager, et il m'affiche 0.

Pourtant, mon manager distant a bien un profile lié.

J'ai mis le même nom de groupe des 2 côtés.

Soit je suis une grosse buse, soit y'a un truc qui déconne dans le processus !

Je n'utilise pas le password. Est-ce une obligation ?

Pourquoi ce manager ne se link pas avec le profile distant ??

Sur chaque application 1 TetheringManager lié avec 1 TetheringAppProfile. La propriété Group avec la même valeur sur chaque TetheringAppProfile.
Ensuite tu appelles DiscoverManagers sur le TetheringManager. L’événement OnEndManagersDiscovery est déclenché. Tu fais un PairManager sur le RemoteManager concerné.
L’événement OnEndProfilesDiscovery est déclenché. Tu fais un Connect du RemoteProfile concerné.

Sinon tu as aussi la propriété AutoConnect.

[Papy214]

La propriété AutoConnect ne fonctionne pas chez moi. Pourquoi ? Mystère ! Enfin, elle fonctionne mais elleme bloque l'appli. Impossible de la fermer , obligé d'utiliser Ctrl F2

J'ai fais l'enchainement que tu indiques et maintenant j'obtiens:

---------------------------
Notification des exceptions du débogueur
---------------------------
Le projet Projet1.exe a déclenché la classe d'exception ETetheringException avec le message 'Pas de connexions disponibles à EMPTYTOKEN$2022'.
---------------------------
Arrêter Continuer Aide
---------------------------

Rien trouvé sur google sur le sujet :-(

[Papy214]

Bien ... après reboot Delphi, j'obtiens bien

DiscoverManagers
EndManagersDiscovery
RequestManagerPassword
EndProfilesDiscovery
SendXML

Mon fichier ne semble pas arriver à destination mais au moins, la première partie fonctionne.

Merci de m'aider à ne pas m'arracher les cheveux ... (même si j'en ai de reste, faut pas gâcher)

[Papy214]

Oufff .......

C'est bon !

Un grand merci à toi !