Discussion :

[SYL666]

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?

[Arioch]

Une idee?

Oui : le module Win32

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

[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...

[pospos]

ha ben si la solution à l'arioch marche c'est encore plus simple

[Arioch]

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.

[Arioch]

Petit exemple :

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
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

[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.

...

bref, code corrige, probleme regle... Merci!