[Sockets/Sendbuf]Logiciel de chat

Donc pour résumer là ou j'en suis... j'ai compris comment marchait les sockets Tserver et Tclient. Les procédures pour envoyer et recevoir du texte aussi. Cependant je veux envoyer plus que du texte, donc je me suis tourné vers les routines (je crois que ça s'appelle comme ça) SendBuf et ReceiveBuf. J'envoie un tableau pour l'instant uniquement du coté serveur qui contient le message envoyé par le serveur en Tab[1] et le pseudo en Tab[2]. L'envoi "semble" être un succès puisque le programme serveur ne plante pas. Mais sur le programme client il ya un probleme puisque je demande d'afficher le message dans un mémo et le pseudo dans un autre. Seul une ligne blanche s'affiche dans le mémo du client. Je vais rajouter le code partiel pour ceux qui me trouvent incompréhensible 8O

Le code ci dessous est présent dans les 2 programmes (juste après l'implementation):

Code:

---

1 2 3 4 5 6 7

Type T_Tab=Array[1..3] of String;   Var Tab:T_Tab; Form1: TForm1;

---

Coté Serveur:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); Begin If Key = #13 Then If Edit2.Text <> '' Then Begin Tab[2]:= 'Admin'; Tab[1]:= Edit2.Text; If Serveur.Socket.ActiveConnections <> 0 Then Begin Serveur.Socket.Connections[0].SendBuf(Tab,SizeOf(Tab)); Edit2.Text := ''; End; End;

---

Coté Client:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); Begin Recus := Socket.ReceiveLength; If Recus <> SizeOf(Tab) then Exit; Socket.ReceiveBuf(Tab,Sizeof(Tab)); If Tab[1] <> '' Then Memo2.Lines.Add(Tab[1]); If Tab[2] <> '' Then Memo3.Lines.Add(Tab[2]); end;

---

merci d'avoir lu.

Bonjour,

Le problème vient du fait qu'en transférant le tableau TAB, on ne passe que 12 bytes : les 3 pointeurs vers les chaines et non leur contenu.

Il faut revoir le code fin de transmettre la longueur du buffer, puis son contenu (pour transmission de texte, on pourrait aussi utiliser une technique dans laquelle le buffer est compris entre STX et ETX sans indication de longueur).

Suggestion : à la place d'un tableau de string, utiliser une tstringlist TAB (TAB.length donne la longueur, TAB.text, TAB[i] la ligne i).

C'est presque ça !;)


Déjà, une première remarques, prends l'habitude de coder l'indice de tes tableaux, de 0 à n-1. Tu t'y retrouveras tout autant, surtout qu'il faut savoir que lorsque tu transmet un tableau (dynamique ou non) à une procédure, un tableau[3..8] par exemple sera récupéré dans la procédure avec des indices allant de 0 à 6 !

Autre remarque qui va expliquer beaucoup de choses pour la suite :
autant lorsque tu déclare une chaîne de caractère comme ceci :

Code:

---

var s:string[10];

---

tu peux envoyer ta chaîne de caractère via un buffer comme ceci :

Code:

---

SendBuf(s,SizeOf(s));

---

parce que ta chaîne est assimilée à un variable tableau d'octets

que si tu la déclares comme ceci :

Code:

---

var s:string;

---

tu ne peux plus, parce que dans ce cas, si les chaînes longues sont activés dans les options de compilation (chaîne >255 caractères), s est un pointeur !
Donc SizeOf(s)= 4 !
Tu comprendras alors que si tu transmets s à SendBuf, tu n'envoies que le pointeur, et non pas ce qui est pointé !
Par contre, celà fonctionne toujours :

Code:

---

SendBuf(s[1],length(s));

---

tu lui demandes ici de copier à partir de l'emplacement mémoire du premier caractère de la chaîne, tous les caractères

Je ferme ici cette parenthèse

Sinon pour ce qui t'intéresse directement, il faudrait que, coté Serveur, tu prépares d'abord l'envoi de tes chaînes de caractères en les regrouppant dans un buffer un peu plus global.

Imaginons que tu veuilles envoyer :
Tab[0]='TrucMuche'
Tab[1]='Bonjour'
Tab[2]='Salut'

Il faudrait que tu les places tout d'abord dans un buffer (un tableau d'octets en fait) qui ait cette structure :

Code:

---

1 2 3

+--+--+--+--+--+--+--+ |LT|L0|C0|L1|C1|L2|C2| +--+--+--+--+--+--+--+

---

Où :
LT=Longueur Totale des données dans le buffer (1 integer=4 octets)
L0=Longueur de la chaîne n°0 (1 integer=4 octets)
C0=caractères de la Chaine n°0 (chaque caractère=1 octet)
etc...

d'où
C0='T'|'r'|'u'|'c'|'M'|'u'|'c'|'h'|'e'
L0=9 (stocké sur 4 octets)
...
L1=7 (stocké sur 4 octets)
L2=5 (stocké sur 4 octets)
LT=L0+L1+L2+3*4+1*4 (3 fois 4 octets pour comptabiliser les entiers L0,L1,L2 et 1 fois 4 octets pour lui-même

Autrement dit : dans ton code, celà devrait donner :

Code:

---

1 2 3 4 5 6 7

Type T_Tab=Array[0..2] of String;   Var Tab:T_Tab; TonBuffer:array of byte; Form1: TForm1;

---

Coté Serveur:

Code:

---

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

Procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); var i,Li,LTOT,L0,L1,L2,position:integer; s:string; Begin If Key = #13 Then If Edit2.Text <> '' Then Begin Tab[2]:= 'Admin'; Tab[1]:= Edit2.Text;   //Initialisation du buffer L0:=Length(Tab[0]); L1:=Length(Tab[1]); L2:=Length(Tab[2]); LTOT:=L0+L1+L2+4*SizeOf(integer); SetLength(TonBuffer,LTOT); //ecriture dans le buffer position:=0; Move(LTOT,TonBuffer[position],SizeOf(LTOT)); inc(position,SizeOf(LTOT)); for i:=0 to 2 do begin s:=Tab[i]; Li:=Length(s); Move(Li,TonBuffer[position],SizeOf(Li)); inc(position,SizeOf(Li)); if Li>0 then Move(s[1],TonBuffer[position],Li); inc(position,Li); end;   //envoi des données If Serveur.Socket.ActiveConnections <> 0 Then Begin Serveur.Socket.Connections[0].SendBuf(TonBuffer[0],LTOT); Edit2.Text := ''; End; End;

---

Coté Client:

Code:

---

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

Procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var i,Li,LTOT,L0,L1,L2,position,Recus:integer; s:string; Begin Recus := Socket.ReceiveLength; //si la longueur reçue est inférieure aux 4 entiers LTOT,L0,L1 et L2 on sort (erreur) If Recus<4*SizeOf(integer) then exit;   //sinon on initialise le tableau Setlength(TonBuffer,Recus); Socket.ReceiveBuf(TonBuffer[0],Recus);   //décodage du buffer position:=0; Move(TonBuffer[position],LTOT,SizeOf(LTOT)); inc(position,,SizeOf(LTOT)); //si la longueur reçue est identique LTOT, les données ont l'air d'être //correcte sinon --> erreur if LTOT<>recus then exit; for i:=0 to 2 do begin Move(TonBuffer[position],Li,SizeOf(Li)); inc(position,,SizeOf(Li)); //on vérifie que Li ne nous renvoie pas une longueur supérieure à //ce qu'on a (reçu- les 4 entier indiquant des longueurs) // sinon il y a erreur de réception if (position+Li)>(recus-4*SizeOf(integer)) then exit; s:=''; SetLength(s,Li); Move(TonBuffer[position],s[1],Li); inc(position,Li); Tab[i]:=s; end;   If Tab[1] <> '' Then Memo2.Lines.Add(Tab[1]); If Tab[2] <> '' Then Memo3.Lines.Add(Tab[2]); end;

---

Je crois que ça devrait marcher ;)

Merci à tous les 2 vais relire lentement le post de waskol et à tête reposé sinon vais rien retenir :)

Ptite remarque: je croyais que la cellule 0 n'existait pas dans les tableaux sous pascal donc j'ai cru que c'était pareil dans delphi 8O

Citation:

---

Envoyé par LeFlou

Merci à tous les 2 vais relire lentement le post de waskol et à tête reposé sinon vais rien retenir :)

---

:mouarf:

Citation:

---

Envoyé par LeFlou

Ptite remarque: je croyais que la cellule 0 n'existait pas dans les tableaux sous pascal donc j'ai cru que c'était pareil dans delphi 8O

---

Si, même en pascal !
même que tu peux avoir des indices négatifs :

Code:

---

1 2	var Tab:array[-5..7] of integer; Tab2:array[-5..-1] of boolean;

---

J'ai un nouveau souci: les strings contenus dans les cellules du Tab ne sont pas affichables 8O ... pourtant ce ne sont pas des cellules vides d'apres les tests que je viens d'effectuer. Impossible de les afficher dans un TEdit ou dans un TMemo... J'ai manqué quelque chose ? (J'ai essayé de bidouiller ton code pour le modifier ainsi que la copie pure du code en vain...)

Je me demandais en fait... le plus simple pour intégrer un systeme de pseudonymes/liste de pseudos contenue dans le prog serveur et consultable par les clients n'est-il pas de construire une base de données ? (je n'y connais rien dans les bases de données)

Merci pour vos réponses.

Bonsoir, j'ai repris depuis quelques temps la motivation de comprendre et de maitriser les sockets sous delphi
(envoi de msg serveur vers client et vice-versa). J'ai repris les codes écrits precedemment mais il semble que c'est l'envoi qui foire et non la réception.

Citation:

---

Procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var i,Li,LTOT,L0,L1,L2,position:integer;
s:string;
Begin
If Key = #13 Then
If Edit2.Text <> '' Then
Begin
Tab[0]:= Edit2.Text;
Tab[1]:= 'Admin';
Tab[2]:= 'test';

//Initialisation du buffer
L0:=Length(Tab[0]); //on prend la taille du contenu de Tab[0]
L1:=Length(Tab[1]);
L2:=Length(Tab[2]);
LTOT:=L0+L1+L2+4*SizeOf(integer);
SetLength(Buffer,LTOT); // à quoi sert le +4 ?
//ecriture dans le buffer
position := 0;
Move(LTOT,Buffer[position],SizeOf(LTOT)); // ?
inc(position,SizeOf(LTOT)); // ?

For i:=0 to 2 do
Begin
s:=Tab[i];
Li:=Length(s);
Move(Li,Buffer[position],SizeOf(Li)); // ?
inc(position,SizeOf(Li)); // ?
if Li>0 then Move(s[1],Buffer[position],Li); // ?
inc(position,Li); // ?
End;

//envoi des données
If Serveur.Socket.ActiveConnections <> 0 Then
Begin
Serveur.Socket.Connections[0].SendBuf(Buffer[0],LTOT);
Edit2.Text := '';
End;
End;
End;

---

Voici la partie client je ne crois pas qu'il y ait de problemes de ce coté (il marque, à chaque envoi de msg depuis le serveur, sur le prog client Pas d'erreur à signaler...):

Citation:

---

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var i,Li,LTOT,L0,L1,L2,position,Recus:integer;
s:string;
Begin
Recus := Socket.ReceiveLength;
//si la longueur reçue est inférieure aux 4 entiers LTOT,L0,L1 et L2 on sort (erreur)
If (Recus < (4*SizeOf(integer))) then
Begin
Memo2.Lines.Add('Erreur lvl1');
exit;
End;

//sinon on initialise le tableau
Setlength(Buffer,Recus);
Socket.ReceiveBuf(Buffer[0],Recus);

//décodage du buffer
position := 0;
Move(Buffer[position],LTOT,SizeOf(LTOT));
inc(position,SizeOf(LTOT));

//si la longueur reçue est identique LTOT, les données ont l'air d'être
//correcte sinon --> erreur
if LTOT<>recus then
Begin
Memo2.Lines.Add('Erreur lvl2');
exit;
End;

For i:=0 to 2 do
Begin
Move(Buffer[position],Li,SizeOf(Li));
inc(position,SizeOf(Li));

//on vérifie que Li ne nous renvoie pas une longueur supérieure à
//ce qu'on a (reçu- les 4 entier indiquant des longueurs)
// sinon il y a erreur de réception

If (position+Li)>(recus-4*SizeOf(integer)) then
Begin
Memo2.Lines.Add('Erreur lvl3');
exit;
End;

s:='';
SetLength(s,Li);
Move(Buffer[position],s[1],Li);
inc(position,Li);
Tab[i]:=s;
End;
Memo2.Lines.Add('Pas d''erreur à signaler');
End;

---

Et j'ai bien rajouté dans les 2 parties:

Citation:

---

Type
T_Tab=Array[0..2] of string;
Var
Tab:T_Tab;
Buffer:Array of byte;

---

Merci de bien vouloir m'expliquer les lacunes de ces bouts de programme

Salut,
de passage vite fait voci ce que je te propose (j'ai testé) :
C'est coté du client que celà merdouille en fait, au niveau de cette ligne :

Code:

---

If (position+Li)>(recus-4*SizeOf(integer)) then

---

En bricolant vite fait, si tu écris ça, ça va marcher du premier coup :

Code:

---

If (position+Li)>recus then

---

Sinon, dans l'absolu et dans le code que je t'avais donnée, il manquait deux trois petites lignes pour parfaire le tout :

Au lieu de :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

For i:=0 to 2 do Begin Move(Buffer[position],Li,SizeOf(Li)); inc(position,SizeOf(Li));   //on vérifie que Li ne nous renvoie pas une longueur supérieure à //ce qu'on a (reçu- les 4 entier indiquant des longueurs) // sinon il y a erreur de réception   If (position+Li)>(recus-4*SizeOf(integer)) then Begin Memo2.Lines.Add('Erreur lvl3'); exit; End;

---

Il aurait fallu rajouter une variable pour décompter la taille des Li bien recus, et je ne sait pas trop comment l'appeler, donc je l'appelle compteur (integer) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Compteur:=SizeOf(LTOT); For i:=0 to 2 do Begin Move(Buffer[position],Li,SizeOf(Li)); inc(position,SizeOf(Li)); inc(Compteur,SizeOf(Li)); //on vérifie que Li ne nous renvoie pas une longueur supérieure à //ce qu'on a (reçu- les 4 entier indiquant des longueurs) // sinon il y a erreur de réception   If (position+Li)>(recus-4*SizeOf(integer)+Compteur) then Begin Memo2.Lines.Add('Erreur lvl3'); exit; End;

---

[/CODE]

Et là ça devrait enfin marcher.

Sinon, pour comprendre comment le code fonctionne, le mieux
c'est que tu mette un TClientSocket et un TServerSocket sur une même fiche, avec même numéro de port, le client ayant Host=127.0.0.1, et les deux composants mis sur actif.
Tu rajoutes un memo (pour la partie cliente) et un TEdit (pour la partie serveur) et tu traces le code en pas à pas en observant ce qui se passe dans la variable appelée Buffer.

Sinon, Move est une routine standard de Delphi qui permet de copier un certain nombre d'octets d'une variable (tableau ou non) à une autre, quelque soit le type de variable : jettes un oeil dans l'aide de ton Delphi, elle explique ça très bien.

Merci beaucoup jvais regarder tout ça. Je met en résolu dès que c'est bon.

J'essaye à présent d'intégrer une liste des gens connectés (sur le programme serveur dans un premier temps puis sur les clients ensuite...)

Je pars du principe que la communication entre client/serveur se base sur un tableau de 3 cases contenant des "string". Ainsi, la premiere case (Tab[0]) correspond au pseudonyme, la deuxieme au message (eventuel...) et la derniere au mode (ex: online/offline,envoi pseudo etc...)

Lorsque le client appuie sur le bouton connecter (on suppose qu'il réussit à établir la connexion avec le serveur) il communique le tableau suivant:
Tab[0] := 'Invité' Tab[1]:= ''; Tab[2]:= '2';

Ainsi on peut anticiper les codages formatés en aval -> Si le serveur reçoit un tableau dont la 3ème case contient 2 (mode envoi pseudo) alors il l'ajoute à la listbox.

Pour l'instant le chat est établi uniquement entre serveur/client et non client/client. Pour parler à un client spécifique (coté serveur), il suffit de cliquer sur le pseudo dans la listbox et d'envoyer le msg. J'essaie donc de garder une relation logique entre la listbox qui répertorie les arrivants du plus vieux (tout en haut) au plus récent (tout en bas) et les Serveur.Socket.Connections
(On admet que le serveur est aussi un client donc il est ajouté dans la listbox)
ainsi le premier élément (indice 0) est 'Serveur' lorsque l'on clique sur l'indice 1
(si il y a) on enverra à l"Activeconnections[0]" le premier arrivé donc.

Ceci marche très bien mais je n'ai aucune idée de procéder autrement si il ya des méthodes plus efficaces moins lourdes merci de me les indiquer. En outre, il pose 2 problèmes à résoudre:
1- Lorsqu'un client se déco il faut virer le pseudo de la listbox et garder la relation logique avec les "Activeconnections".
2- Si 2 clients se connectent successivement avec le même pseudo il faut renommer le second.

Si quelqun a des idées... je suis preneur.

Merci d'avoir lu !