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

jovalise

Par l'anneau de l'i.a.

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

jovalise a écrit :

Bonjour, c'est pas tré clair, je suis désolé
j'ai un petit problème de connection reseau full-duplex en reseau local,
Normalement la configurartion ad'hoc pour le reseau Internet ne permet pas une connection en reseau local.

j'ai un client, un serveur, qui se comporte tout deux en client serveur reciproque (enfin presque), le client demande une connection au serveur dans un premier temps, puis lui accepte une connection à son tour que le serveur s'enpresse de li demander, j'aobtien une connection sur deux port sur les quelques chacun est le client/serveur de l'autre. Cette mesur n'est pas indispensable, elle est même peut-etre mal adapté, mais j'obitient tout de même deux canneaux de communication sur lmes quel je fait du full duplex. Cette architecture sur deux deux canneau est peut-etre normal, mais en fait, j'ai fait ce choix parce-que, a priori, les services proposé par le langage Ada ne permete pas d'envoyer et de recevoir des donnée si simultanément sur un même ports.

J'utilise sur le serveur, une function Get_Address, (stream : stream_access) return Sock_Addr_Type, que je converti en addresse Inet qui est effectivement l'addresse du client pour lui demander la connection full-duplex.
Mais sur mon reseau local, ça ne fonctionne pas, je me demande si c'est normale.

Deux solution à mon problème ...
1 : je configure un reseau avec deux sous réseaux avec deux machines si c'est possible ! ... j'en ai que deux
2: on fait des test avec vous sur le net

Je vous propose donc de repondre soit à la premiere question, soit de telecharger et de compilier les sources du ou des programmes client et serveur ecrit avec la langage Ada, et de tester le ou les programmes.

si il est possible de configurer deux sous reseau avec seulement deux machines+un modem-routeur en fait merci de me rappeler comment :jap:

sI vous demarer simplement le client, vous vous inscrivez avec la commande "inscription" puis vous tentez un connection full-duplex après réception de votre mots de passe à votre addresse email avec la commande "login denimes.net" qui est le serveur d'inscription (en dur pour le moment).

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

Publicité

jovalise

Par l'anneau de l'i.a.

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 jovalise le 15-01-2007 à 09:15:48

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

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:

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

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;

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

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.

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

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.

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

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.

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

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

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

jovalise

Par l'anneau de l'i.a.

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

Merci de votre compréhension :whistle:

---------------
Là où l'Homme ne pourra aller, Ada ira. Nouveau: Le net de jovalise

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.504 secondes