wperl et messageBox

Version imprimable

16/10/2006, 14h51
SYL666

wperl et messageBox
Bonjour,
J'utilise ActivePerl 5.8 sur differents Windows (XP et 2000).

J'ai fait un magnifique petit programme perl qui fait du traitement en background pour de l'administration.

le probleme vient de cette console, que mes utilisateur ont la facheuse habitude te tuer sans le faire expres, mettant bien entendu en peril les traitements... c'est plutot rageant.

Bref, qu'a cela ne tienne, je passe par wperl.exe et pof, plus de soucis... enfin presque : l'utilisateur doit etre alerte d'un disfonctionnement quelconque (et il peut y en avoir).... mais sans console, die n'affiche plus rien.

Comment creer un message d'erreurs Windows (ou tout autre moyen de prevenir l'utilisateur) ?
- J'ai bien entendu ete voir le module TK, mais il oblige a creer un widget parent et un mainloop, ce qui n'est pas vraiment dans l'optique de mon script.
- Les modules Wx et GTK ne paraissent pas plus simple
- Le module Win32 ne m'a rien apporte...
Une idee?
16/10/2006, 14h59
Arioch

Citation:

Envoyé par SYL666

Une idee?

Oui : le module Win32 :mouarf:

En cherchant sur le net avec les mots magiques "msgbox" et "perl" dans Google, le premier lien m'a apporté la soluce directe à ton problème ;)

http://www.le-berre.com/perl/perlxtd.htm

Avec la fonction MsgBox( ), tu pourras avoir des fenêtres qui s'affichent avec tous les boutons que tu veux (boutons fonctionnels, tiens-je à préciser)

Voili voilou :D
16/10/2006, 14h59
pospos

tous les GUI te demanderont de faire un mainloop, mais à la limite tu peux faire ce mainloop à l'interieur de traitement d'erreur. En gros tu reste sur ton fonctionnement sequentiel normal et en cas d'erreur tu charge Tk, tu affiche ta boite, et tu rentre dans le mainloop.
Tu peux aussi faire un appel system avec start, et lancer un petit batch qui affichera le message avec une pause...
16/10/2006, 15h01
pospos

ha ben si la solution à l'arioch marche c'est encore plus simple
16/10/2006, 15h02
Arioch

Citation:

Envoyé par pospos

tous les GUI te demanderont de faire un mainloop, mais à la limite tu peux faire ce mainloop à l'interieur de traitement d'erreur. En gros tu reste sur ton fonctionnement sequentiel normal et en cas d'erreur tu charge Tk, tu affiche ta boite, et tu rentre dans le mainloop.
Tu peux aussi faire un appel system avec start, et lancer un petit batch qui affichera le message avec une pause...

La fonction MsgBox du module Win32 n'a pas besoin d'exiger de la part du développeur le moindre mainloop. La seule chose cependant, c'est la manière dont doit se comporter le programme après avoir affiché la message box sur l'écran de l'utilisateur.

Mais c'est possible de fournir une liste d'options à la fonction MsgBox et de gérer le comportement du programme en fonction du bouton cliqué par l'opérateur.

Petit exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use strict;
use Win32;
 
my $bouton_clic;
 
# message box avec boutons OK et Quitter + gestion du bouton cliqué
$bouton_clic = Win32::MsgBox('Bug détecté !!!',1);
 
if ($bouton_clic == 1)
{
    # bouton Ok cliqué
}
elsif ($bouton_clic == 2)
{
    # bouton quitter ou annuler cliqué
}
etc etc

16/10/2006, 15h14
SYL666

oula... oui,
Je me suis rendu compte de mon erreur juste apres avoir poste : j'ai regarder tout les objets de win32... mais pas win32 en lui-meme.
:oops:
...
:aie:
bref, code corrige, probleme regle... Merci!