Discussion :

[jeanver]

bon voila je me lance,

cela fait déjà plusieurs semaines que je cherche sur différents forum une solution à mon problème.

Mon application est un ClientSocket (Delphi) qui ce connecte a un ServerSocket (C/C++) pas de souci pour la connection.

- J'arrive à recevoir par le biais de "ClientSocket1.Socket.ReceiveText" et à l'afficher là ou il faut donc pas de souci.
- J'ai voulu utiliser la fonction "ClientSocket1.Socket.ReceiveBuf()" pour recevoir une "structure" et la sa part dans tout les sens.

voici la structure que je suis censé recevoir

Code :

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

1
2
3
char nom_serveur [50]
int nbr_connecte
char liste_connecte[50][50]

pour ça j'ai créer un type record de cette forme la:

Code :

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

1
2
3
4
5
Treception: record
       NomServeur: String[50];
       NbConnecte: Integer;
       ListeConnecte: Tstringlist;
  end;

la procédure OnRead: (Soyez indulgent je ne suis que débutant )

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
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
Var
Reception: Treception;
indx: Integer;
begin
ClientSocket1.Socket.ReceiveBuf(Reception, 
seizof(Treception));// reception des données
 
Label1.Caption:=IntToStr(reception.NbConnecte);// Affichage du nb de connectés
If Reception.ListeConnecte.Count > 0 then              //   Remplissage de la
 for indx: 0 To Reception.ListeConnecte.Count -1 for   //  ListeBox1 par la
  ListBox1.Items.Add(Reception.ListeConnecte[indx])   //  Liste des connectés
end;
end.

au cours des différentes manipulations et teste j'ai reçu plusieurs fois des données notamment le nom du serveur troncé de la première lettre:
au lieu de "Toto" (NomServeur) je recevais "otoxxxxxxxx" (xxxxxx sont des caractères aléatoire)
au lieu de "2" (NbConnecte) je recevais un nombre aléatoire.
au lieu de "Toto1, Toto2" (ListeConnecte) je recevais "'','','','','','','',''"

j'en conclus 2 choses:
1°) Pour le probleme du "oto" au lieu de "toto" je pense que ca vient du fait que le 1er caractère est la "taille" de ta chaine en delphi (si je ne me trompe pas) or ce n'est pas le cas en C/C++ il me semble.
2°) que le code de la procédure OnRead n'est pas bon.

c'est pour ça que je viens demander vos lumières

[ShaiLeTroll]

tu l'as compris, tu ne peux pas mélanger les types Delphi et C n'importe comment, il faut utiliser des types compatibles, tu mélanges un string[] qui est un type TRES particulier de delphi, avec la longueur effectivement

Tu utilises un objet TStringList qui n'a évidemment aucun sens pour du C++, vu qu'un objet n'est qu'une référence te ne transfert que 4 octets ...

Code :

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

1
2
3
char nom_serveur [50]
int nbr_connecte
char liste_connecte[50][50]

donne en Delphi

Code :

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

1
2
3
4
5
Treception: record // ou packed record
       NomServeur: Array[0..49] of Char;
       NbConnecte: Integer;
       ListeConnecte: Array[0..49, 0..49] of Char;
  end;

pour la suite,
il faudra voir si unpacked est nécessaire au record pour changer l'alignement sur les doubles mots à un mode sans alignement

[edam]

Code :

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

1
2
3
4
5
Treception: record // ou packed record
       NomServeur: Array[0..49] of Char;
       NbConnecte: Integer;
       ListeConnecte: Array[0..49, 0..49] of Char;
  end;

pour la suite,
il faudra voir si unpacked est nécessaire au record pour changer l'alignement sur les doubles mots à un mode sans alignement

début par l'intégér sera mieux, et pour ne pas avoir de packed donne des tail divisible par 4 , ou:

Code :

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

1
2
3
4
5
Treception= record
              TailStructur:integer;//comme dans les API de windows :)
              NbConnecte: Integer;
              mot: Array[0..0] of Char;       
  end;

TailStructur et la lengure total de donnée envoyé "mot", bien sûr à la réception tu doit par exemple réceptionnée la TailStructur+NbConnecte en premiè (8 octe) et après tu réserve "TailStructur oct" de mémoir,pour recevoir "mot"
avec mot contient le nom du serveur et la liste des connecté séparé par des virgule, par example
bon dev

[jeanver]

Déjà merci à vous d'avoir pris le temps de me lire et encore mieux de me répondre....

Alors j'ai choisi de suivre la correction de mon record par ShaiLeTroll car beaucoup plus facile à comprendre par mon pauvre petit cerveau.
Ensuite après avoir discuté avec celui qui fait le ServeurSocket en C/C++ il s'avaire qu'il avait un petit problème de la forme des données envoyées (longueur de sa chaine de caractère (char nom_serveur [25] au lieu de char nom_serveur [50]) mais avec la correction du record et sa modif ça marche a merveille.
Voici ce que ça donne maintenant:

Mon record:

Code :

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

1
2
3
4
5
Treception= record
       NomUtilisateur: Array[0..49] of Char;
       NbUtilisateur: Integer;
       ListeUtilisateur: Array[0..49, 0..49] of Char;
end;

et ma procédure:

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
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
Reception : Treception;
Gala: String;
indx: cardinal;
begin
//réception des données
ClientSocket1.Socket.ReceiveBuf(Reception, sizeof(Treception));
//Affichage du nombre de connectés
Label5.Caption:=IntToStr(Reception.NbUtilisateur);
//Modification du titre de la fenètre
Caption:='Conversation avec : '+ Reception.NomUtilisateur;
Listbox1.Clear;
//Remplissage de la liste des connectés
for indx := 0 to Reception.NbUtilisateur-1 do
  Listbox1.Items.Add(Reception.ListeUtilisateur[indx]);
end;

Mon problème est donc résolut encore merci à vous pour votre aide