Discussion :

[bradley vier]

Bonjour à tous,

Je cherche à afficher en temps réel des données dans une page web .

Voila actuellement le fonctionnement du dispositif :
Un script CGI s'occupe de lancer un programme en C qui réalise une acquisition et effectue certains calculs. Le programme en C traite ces données et fournit chaque seconde des résultats. J'essaie de trouver un moyen de les afficher via la page web créée par un script CGI. Les résultats transitent entre le programme d'acquisition et le script via une FIFO.

Je rencontre quelques problèmes pour réaliser l'affichage en temps réel de données acquises. J'ai réalisé deux scripts CGI de test afin d'illustrer le problème:

Voici le premier :

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
 
#!/usr/bin/perl -w
 
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param :standard);
 
#
# Récupération des données
#
$parametres{"duree_acq"}=param("duree_acq");
$parametres{"nom_projet"}=param("nom_projet");
$parametres{"device"}=param("device");
 
#
# Création de la page internet
#
 
print header();
print start_html("Test affichage temps réel");
 
for($i=0;$i<$parametres{duree_acq}*3;$i++)
{
        sleep 1; # simule un processus
        print "<script langage=\"JavaScript\">
        alert(\"$i\"); </script>";
}

problème de ce premier script : les pop-up ne s'affichent pas en temps réel mais apparaissent toutes en même temps à la fin du script.

Voila le deuxième script :

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
35
36
37
38
39
 
#!/usr/bin/perl -w
 
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(param :standard);
 
#
# Récupération des données
#
$parametres{"duree_acq"}=param("duree_acq");
$parametres{"nom_projet"}=param("nom_projet");
$parametres{"device"}=param("device");
 
#
# Création de la page internet
#
 
print header();
print start_html("Test affichage temps réel");
 
for($i=0;$i<$parametres{duree_acq}*3;$i++)
{
        if(!defined($child_pid=fork()))
        {
                die "cannot fork :$!";
        }
        elsif($child_pid)
        {
                # Père
                waitpid($child_pid,0);
        }
        else
        {
                # Fils
                sleep 1; # simule un processus
                print "<script langage=\"JavaScript\">
                alert(\"$i\"); </script>";
        }
}

Avec ce second script, les pop-up apparaissent bien toutes les secondes mais le problème ici est qu'ils continuent à apparaître indéfiniment!

Visiblement je m'y prends mal mais je ne vois pas comment procéder autrement. Quelle est la méthode classique (si elle existe) pour traiter ce genre de problème ?

Merci d'avance.

BV

[Jedai]

Ecrire au fur et à mesure comme tu essaies de le faire pose pratiquement toujours des problèmes de compatibilités entre browser, certains attendront pour faire l'affichage, il y a des moyens pour éviter ça, mais pas universels.

Je te conseillerais bien d'utiliser Ajax avec CGI::Ajax par exemple pour gérer ça.

Si tu ne veux pas te lancer là-dedans (mais ça t'ouvrira pas mal de possibilités en général), essaie déjà de mettre "$|++;" sur une ligne au début de ton premier script et de voir ce que ça donne sur quelques navigateurs.

--
Jedaï

[bradley vier]

Bonjour,

Merci beaucoup pour la réponse , j'ai utilisé la solution consistant à ajouter "$|++;" et cela fonctionne bien avec Iceweasel et Konqueror.

@+

BV