Discussion :

[Luciefer]

Bonjour,

Je travaille sur une application TK. Je souhaiterai que cette application ne soit accessible qu'à une personne à la fois (pas de multi-session).
Comment je peux procéder pour vérouiller l'ouverture de l'application si une autre personne l'a déjà ouverte?

Merci,
Lucie

[Arioch]

Bonjour,

Je travaille sur une application TK. Je souhaiterai que cette application ne soit accessible qu'à une personne à la fois (pas de multi-session).
Comment je peux procéder pour vérouiller l'ouverture de l'application si une autre personne l'a déjà ouverte?

Merci,
Lucie

Sans faire un truc un poil compliqué, tu pourrais gérer les ouvertures de l'appli Tk via un fichier de conf (ou de log) dans lequel la dernière ligne du fichier contiendrait soit "DEMARRE", soit "NON UTILISE".

Quand ton appli Tk démarre, elle écrirait "DEMARRE" dans ce fichier et tant que l'utilisateur n'aurait pas fermé l'appli, rien ne viendrait mettre à jour ce fichier en y écrivant "NON UTILISE".

C'est une méthode barbare, je le reconnais mais j'ignore si en passant par les PID de ta machine on soit capable de reconnaître des processus différents autour du même script Perl. Tu peux évidemment récupérer tous les process faisant appel à perl.exe mais les différencier en fonction des programmes qu'ils lancent, ça je ne suis pas persuadé que ce soit faisable.

[Luciefer]

Bonjour,

C barbare mais ça fonctionne nickel, adopté :o)

Merci,
Lucie

[Arioch]

Bonjour,

C barbare mais ça fonctionne nickel, adopté :o)

Merci,
Lucie

Oui mais attention : as-tu un bouton fermant l'appli Tk ?

Il te faudrait un bouton "fermer" qui, en plus de quitter l'appli, écrirait dans le fichier log.

Et si c'est faisable, enlève la barre de titre de ton appli dans laquelle se trouvent les mini-icones pour réduire/agrandir/fermer la fenêtre.

Si jamais un de tes users clique sur la petite croix en haut à droite de ton appli, la fonction associée à ton bouton "Fermer" ou "Quitter" ne fera pas son taf et ton programme refusera de se lancer en prétextant que quelqu'un l'utilise toujours.

Par contre, pour l'avoir déjà fait, retirer la barre de titre donne une fenetre toute moche

[Luciefer]

J'ai fait mieux, j'ai géré la croix de l'appli comme ceci :

Code :

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

1
2
3
4
5
6
7
 
my $application=new MainWindow();
$application->protocol('WM_DELETE_WINDOW',\&Quitter_application);
 
sub Quitter_application(){
    #Tous les traitements à effectuer lorsque je quitte l'application....
}

Voilà voilà :o)
Merci
Lucie

[Arioch]

Impec alors