ClientSocket problème de comunication avec un ServerSocket C/C++

Version imprimable

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:

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:

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 :oops: )
Code:

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

06/01/2010, 15h16
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:

1 2 3 char nom_serveur [50] int nbr_connecte char liste_connecte[50][50]
donne en Delphi
Code:

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
06/01/2010, 22h06
edam
Citation:
Envoyé par ShaiLeTroll

Code:

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:

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

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

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:

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:

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 :ccool: