Discussion :

[seb_parfait]

bonjour

Voila j'ai creé un petit jeu qui peut se jouer a deux en reseau
J'y ai integré un petit chat pour pouvoir se parler

J'ai créé un type bacteria qui rassemble toutes les données à transferer :

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
Type
  Tbacteria = Record
        annuler_proposition:boolean;
        accepter:integer;
        proposition:boolean;
        demande_ami_nouvelle_partie:integer;
        nouveau_pseudo :boolean ;
        initialisation:integer;
        af_message:boolean;
        compose:boolean;
        ef_compose:boolean;
        fin_connexion:boolean;
        pseudo:string[13];
        joueur:integer;
        depart:integer;
        messages:string[255];
        couleur:integer;
        cases:tableau;
        joueur_ki_commence:integer;
        serveur_a_gauche:integer;
        p1,p2,p3,p4:integer;
        joue:boolean;
        version:string[5];
        new_couleur_favorite:boolean;
        couleur_favorite:string[20];
   End;
var
  donnees :Tbacteria;

et je l'envoi avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 if form1.host then Serveur.Socket.Connections[0].SendBuf(donnees,SizeOf(donnees))
    else Client.Socket.SendBuf(donnees,SizeOf(donnees));

et le recoi avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Recus :=Socket.ReceiveLength;
  If Recus<>SizeOf(donnees) Then Exit;
  Socket.ReceiveBuf(donnees,SizeOf(donnees));

Et tout ca marche bien enfin presque vu que parfois, le client ou le serveur ne recoit plus rien alors qu'il peut quand meme envoyer
Donc ba le jeu s'arrete et le chat est a sens unique

J'ai essayé de faire :
- avec le serveur je flood volontairement jusqu'a ce que ca se fige (mais ca peut se figer sans flooder )
- le client fini par se figer
- le client peut envoyer les messages au serveur
- le serveur recoit bien le message
- mais quand j'envoi avec le serveur le client ne recoit rien

Pour vérifier que c'été le client qui ne recoit pas et non pas le serveur qui n'envoi pas, j'ai modifié le serveur pour qu'il puisse envoyer a deux clients en meme temps.

Et apres avoir figer le premier client
Je connecte le deuxieme client au serveur
Et la si j'envoi un message avec le serveur :
- le premier client ne recoit toujours rien
- mais le deuxieme client lui recoi correctement

Et aussi avec le debuger j'ai pu voir que une fois le client figé, jamais il n'allait dans la procedure "ClientRead"

Donc ba je ne comprends pas pourquoi le transfert ne se fait plus que dans un sens alors que la conexion est toujours active

J'ai bien pensé a faire un truk anti-flood mais ca peut aussi arriver sans flooder volontairement en tout cas.
Je me suis dit que peut etre, c'été une protection de windows pour empecher les attaques mais bon j'aimerais bien que ca marche quand meme lol

J'espere que certaines personnes auront deja rencontré ce probleme parce que je ne vois pas trop quoi faire :'(

Merci

[Graffito]

Bonjour,

L'unité Tsocket de Delphi7 corrige quelque problèmes (pas tous hélas) de celle de Delphi6.
On peut simplement recompiler le source pour l'intégrer à un projet Delphi6.

[seb_parfait]

re bonjour

merci d'avoir repondu, j'ai pas trop envie de changer de delphi lol
C'est quand meme bizarre comme bug, parce que ca couperait la connexion encore, mais ce n'est meme pas le cas pourtant

Il y a peut etre moyen d'utiliser le composant INDY9 pour faire l'equivalent de Tsocket.
Enfin je sais pas trop encore comment ca marche avec indy.
C'est possible que indy me fasse le meme bug ?

Et lors d'un chat si on flood quel sont cencé etre les conséquences sur le programme si il y en a ?
(c'est mon premier chat et je suis débutant)

merci

[Graffito]

Bonjour,

Il suffit juste de récupérer le source de Tsocket sans changer de version de Delphi et de l'utiliser en l'insérant dans le projet.

Mais Indy (que je ne connais pas) est peut-être une meilleure solution.

Attention, il y a un problème potentiel dans le code : les données peuvent être (théoriquement) reçues en plusieurs receivebuf.

[seb_parfait]

merci, euh mais ya des sites ou je peux trouver le source de Tsocket de delphi 7 ?

les données peuvent être (théoriquement) reçues en plusieurs receivebuf.

Je ne suis pas sur de comprendre ce que ca veut dire

[Graffito]

Bonjour,

Un p'tit exemple : supposons qu'on envoie un paquet de 500 ko par un seul sendbuf, il pourra être reçu en 10 receiveBuf (par paquets de 50ko).

[seb_parfait]

merci pour les reponses

Ba je sais pas faire autrement mais c'est sur que si c'est divisé ca ne doit pas etre tres bon.

Meme si ca ne doit pas etre a cause de ca que mon programme bug.

Demain je ne suis pas sur d'avoir beaucoup de temps libre.
Sinon apres demain je chercherais pour voir si je trouve le source de Tsocket de delphi 7 quelque part, et sinon je regarderais comment marche indy j'pense.

je tiendrais au courant +++

[seb_parfait]

bonjour

Je n'ai pas trouvé le source de Tsocket de delphi 7

Mais j'ai refait un chat basic, j'ai utilisé SendText au lieu de SendBuf pour voir.
Et là je peux flooder ca ne se bloque pas.
C'est bete je preferais utiliser sendbuf je trouve ca plus simple pour envoyer plusieur données de tout types.
Mais si j'ai pas le choix au pire ca me laisse une possibilité de resoudre mon probleme.

J'ai essayé avec indy mais je n'arrive a rien

Je n'arrive pas a établir de connexion et encore moins d'échanger un record
Pourtant j'ai cherché un peu partout, j'ai vu dans la faq :
"Comment envoyer des enregistrements (record) entre un client et un serveur ?"
Mais je ne comprends pas comment faire pour : entre un serveur et un client

Mais comme de toute facon je ne sais pas etablir de connexion mdrr ca ne sert a rien

Donc ba a moins que quelqu'un parvient a me faire comprendre l'utilisation de INDY pour échanger des records je pense que je vais devoir me résigner à utiliser des SendText.

+++