Ada

Petit programme pour faire ses comptes ; C'est quoi ce gros bug

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 3 4 Page Suivante Page Précédente Bas de page
Auteur	Sujet : Petit programme pour faire ses comptes ; C'est quoi ce gros bug

Profil supprimé

Reprise du message précédent :
Up [:dawa_neowen]

Publicité

Profil supprimé

Bonjour,
J'ai fait mes test en connection full-duplex en local, j'aimerai bien fair des test sur le net.

Donc, j'ai overt une connection full-duplex entre client et serveur.
En fait, bien que l'architecture permete du full-duplex, en fait je m'en sert pour faire de la transimition automatique et j'ai à ce sujet un problème de mise à jour de l'information.

j'ai un paquetage P_Main ::=

Code :

Nombre_De_Connecte,
   Nombre_De_Root,
   Nombre_De_Forum,
   Nombre_De_Chat,
   Nombre_D_Ai,
   Nombre_D_inscrit: natural := 0;
   Root_Avaible : Boolean := false;
   function Root return String;

une tache exclave, dans un thread_serveur, Output , qui transmet l'information::=

Code :

task Output is
                                          entry Stop;
                                          entry set(Mode : T_Mode_Forum);
                                       end Output;
 
                                       task body Output is
                                          End_Of_Output : Boolean := False;
                                          Current_Mode : T_Mode_Forum := Auto;
                                       begin
                                          while not End_Of_Output Loop
                                             select
                                                accept set(Mode : T_Mode_Forum) do
                                                   Current_Mode := Mode;
                                                end set;
                                             or
                                                accept Stop do
                                                   End_Of_Output := True;
                                                end Stop;
                                             or
                                                delay 0.125;
                                                case Current_Mode is
                                                   when Auto =>
                                                      Boolean'Output(Channel_Out_root,P_Main.Root_Avaible);
                                                     if P_Main.Is_Avaible(P_Main.Root_Avaible) then
                                                        String'Output(Channel_Out_root,P_Main.root);
 
                                                        delay(5.0);
                                                        P_Main.Root_Avaible := False;
                                                     end if;
                                                   when others =>
                                                     null;
                                                end case;
                                             end select;
                                          end loop;
                                       end Output;

et le or delay() d'une tache client, qui receptionne l'information ::=

Code :

if Boolean'Input(Channel_In_root) then
                                     Free(Current_Root);
                                     Current_Root := new String' (String'Input(Channel_In_root));
                                  end if;

donc le serveur regarde dans P_Main si une information est disponible, si l'information est disponible je la transmet au client qui l'attend alors.

je fait des operations dans le thread_server sur le P_main du genre

P_Main.Nombre_De_forum := P_Main.Nombre_De_forum - 1;
P_Main.Root_Avaible := True;

P_Main.Nombre_De_chat := P_Main.Nombre_De_chat + 1;
P_Main.Root_Avaible := True;
P_Main.Chat_Avaible := True;

le problème c'est que l'information arrive au client un nombre grandissant de secondes apères modification des données de P_Main

Est-ce normal ? Quel est le problème exactement ... quelle(s) solution à ce retard grandissant du délais de transmition de l'information ?

Merci pour vos reponse :jap:

edit : les sources (pour linux) ::= client et serveur

Message édité par Profil supprimé le 15-01-2007 à 09:15:48

Profil supprimé

j'ai fat ça pour palier à certain problème
C'est le or delay de la tache Output du mode root

Code :

delay 0.035;
                                                case Current_Mode is
                                                   when Auto =>
                                                      if P_Main.Root_Avaible then
                                                         if not Servi then
                                                            Boolean'Output(Channel_Out_root,P_Main.Root_Avaible);
                                                            String'Output(Channel_Out_root, P_Main.root);
                                                           Servi := True;
                                                         else
                                                            Boolean'Output(Channel_Out_root,false);
                                                         end if;
                                                      else
                                                         Servi := False;
                                                         Boolean'Output(Channel_Out_root,false);
                                                      end if;
                                                   when others =>
                                                     null;
                                                end case;

Theoriquement ça doit avoir pour effet de ne transmettre l'information, le string'output, qu'une fois pas session de disponibilité de l'information ... ça à des inconveniant, j'y travail .... mais pour ce code, qui ne marche pas en fait, je voulais votre coup d'oeuil ... avant que je debug :whistle:

Profil supprimé

j'ai fait ça :=

Code :

delay 0.035;
                                                case Current_Mode is
                                                   when Auto =>
                                                      if P_Main.Root_Avaible then
                                                        if not Servi then
                                                            Boolean'Output(Channel_Out_root,P_Main.Root_Avaible);
                                                            String'Output(Channel_Out_root, P_Main.root);
                                                           Servi := True;
                                                           Expire := Clock+5.0;
                                                         else
                                                            Boolean'Output(Channel_Out_root,false);
                                                         end if;
                                                      else
                                                         if Clock > Expire then
                                                            Servi := False;
                                                         end if;
                                                         Boolean'Output(Channel_Out_root,false);
                                                      end if;
                                                   when others =>
                                                     null;
                                                end case;

Profil supprimé

Bon ça marchait pas quand même, alors j'ai changé de stratégie, ... je cherche, ... et j'ai simplement placé de if clock > expire dans le or delay du client ... mais la pour l'instant ça n'a pas l'air de fonctionner et en plus je me tape une erreur de segmentation, bref.

Profil supprimé

J'ai un gros problème, je reçois des message du passé,
Je fais un mise à jour toute les 5 secondes est je reçois des message qui s'incremente de quelque millieme,
Y a un truc louche.

Profil supprimé

Ca y est, j'ai trouvé ... enfait je croyais avoir compris que string'output et string'input etaient bloquant, qu'il s'attendaient l'un l'autre mais pas dutout, donc j'ai placé un delay de 5 secondes dans le or delay de la tache output et ça tourne ... si non le reseau fesait tampon en fait.

Profil supprimé

Bonjour, bonsoir,

j'ai un petit souci de Socket_Error encore.
Je n'arrete pas de prendre des "Address alredy in use" alors, que je n'en utilise pas.
De plus le prog a fonctionné, puis à present ça ne fonctionne plus.

Donc, c'est un client reseau, utilisant Gnat.Sockets qui offre 4 connections au serveur pour obtenir 5 connections.
Mais au premier bind côté client, je leve l'erreur susdite.

les sources ::= main.adb.html

Merci

Profil supprimé

Yep, désolé, pour l'absence des pages liées à ce topic, ... j'ai cassé le disque cible.

Merci de votre compréhension :whistle:

Publicité

Page : 1 2 3 4

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Programmation

Ada

Petit programme pour faire ses comptes ; C'est quoi ce gros bug

Sujets relatifs
Petite programme de calculatrice en C	[VB.NET] Creer une petit navigateur web [Résolu]
[help needed] gros problème avec flash	[réglé] Aide sur un petit script.
un petit script a essayer	News et tableau en array : un peu trop gros
Petit soucis pour téléchargement d'un fchier	Navigation par page 10*10, petit soucis
[EasyPhp] Gros problème de lenteur avec MySQL	Recherche algo ou programme pour détection de plan
Plus de sujets relatifs à : Petit programme pour faire ses comptes ; C'est quoi ce gros bug

Page générée en 0.078 secondes