Discussion :

[OkamiRyuu]

Bonjour.

Je réalise actuellement un programme devant communiquer à travers le réseau avec une autre application (codée en C++ / Qt).

Ne connaissant pas trop Borland, j'ai cherché à apprendre comment communiquer en réseau. Je suis parti sur TServerSocket / TClientSocket. N'arrivant pas à lire correctement les données reçues, j'ai cherché un exemple sur le web et je suis tombé là dessus : http://cpp.developpez.com/telecharge...-un-petit-chat

Mais je me retrouve avec le même problème, ce que le serveur lit n'a rien à voir avec ce qui est écrit par le client.

Voici le code de la réception de donnée :

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
29
30
31
32
33
34
35
36
37
38
39
 
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  AnsiString  DataRecue = "",
              Temp = "",
              ChaineNom = "<Nom>";
  ItVecClients VecIterator;
  int HandleClient = 0;
 
  //Recevoir les données envoyées par un client
  DataRecue = Socket->ReceiveText();
 
  //Si c'est un client qui déclare son nom, alors le rajouter dans la liste
  if(DataRecue.Pos(ChaineNom) != 0)
  {
    Temp = DataRecue.SubString(ChaineNom.Length() + 1, DataRecue.Length());
 
    VecIterator = vecClients.begin();
    while(VecIterator != vecClients.end())
    {
      HandleClient = (*VecIterator).second;
 
      if(Socket->SocketHandle == HandleClient)
      {
        ListBox1->Items->Delete(ListBox1->Items->IndexOf((*VecIterator).first));
        ListBox1->Items->Add(Temp);
        (*VecIterator).first = Temp;
        break;
      }
 
      VecIterator++;
    }
  }
  else
  {
    MemoData->Lines->Add(DataRecue);
  }
}

Quand je tape "azerty", je me retrouve avec "????" en sortie.
Auriez vous une idée du problème ?

Merci d'avance pour votre aide !

OkamiRyuu

[ShaiLeTroll]

Tu utilise le TServerSocket, C++Builder 6 ou XE2
Ton problème de "????" c'est typique d'un problème Unicode ou de problème de CharSet !

TServerSocket est un vieux composant, il est souvent remplacé par TTCPServer ou TIdTCPServer, personnellement pour l'avoir massivement utilisé, je n'ai jamais eu de problème en D5 et D6 !

Utilise Telnet comme client pour débugguer !

Si DelphiXE2, ReceiveText utilise le type AnsiString, j'ignore c'est très prudent, ils auraient dû plutôt utiliser RawByteString

Par précaution, je l'utiliserais ReceiveBuf au lieu de ReceiveText avec un tableau de Byte et non des Char\AnsiChar\WideChar !

[OkamiRyuu]

Bonjour ShaiLeTroll, et merci de ta réponse.

J'utilise Borland C++ Builder 2009.

J'ai testé avec ReceiveBuf, mais le résultat semble le même . Tant qu'a TTCPServer ou TIdTCPServer, j'ai bien pensé à les utiliser, vu que TServeurSocket n'est plus très conseillé, mais je n'est trouvé que peu de chose sur le web les concernant.

Comment Telnet, je viens de faire le test et le résultat est le même . Je vais remettre ReceiveBuf et faire le test ...

[ShaiLeTroll]

Tu peux me montrer ton code avec ReceiveBuf ?

il est claire que tu as une conversion Unicode (2009 étant la première version Unicode de C++Builder)
On dirait qu'il prend ta chaine Temp comme une donnée brute qu'il ne convertit pas en Unicode lors du Items->Add !

Que donne, après Temp = DataRecue.SubString...

Code :

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

MessageBoxA(NULL, Temp.c_str(), "Debug", MB_OK + MB_ICONINFORMATION);

Code :

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

ShowMessage(IntToStr(StringCodePage(Temp)));

[OkamiRyuu]

Et ben mince alors ! En fait avec ... ça marche maintenant ! Je devais avoir plusieurs erreurs en même temps.

Du coup, j'ai pu lire une chaine de caractère. Et j'ai aussi pu lire un entier sur 16bits. Seulement ... Dès que je souhaite lire les 2 dans une même trame, ça ne marche plus

Voici le code du serveur :

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
 
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  AnsiString  DataRecue = "",
			  Temp = "",
			  ChaineNom = "<Nom>";
  ItVecClients VecIterator;
  int HandleClient = 0;
  DataRecue.SetLength(Socket->ReceiveLength());
 
  //Recevoir les données envoyées par un client
  __int16 toto;
  char* buf;
 
  Socket->ReceiveBuf(&toto, 2);
  Socket->ReceiveBuf(buf, 3);
 
  // ...
}

Et voici le code du client:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::ButtonEnvoyerClick(TObject *Sender)
{
    __int16 toto = 15;  
  //Envoyer des données au serveur
  if(ClientSocket1->Active == true)
  {
     ClientSocket1->Socket->SendBuf(&toto, 2); //sizeof(__int16) = 2
     char* var = new char[3];
     var = "aze";
     ClientSocket1->Socket->SendBuf(var, 3);
  }
}

Pourtant, l'ordre de lecture / écriture est bonne. Mais je récupère une erreur "classe d’exception ESocketError quand j'envoie un message. Une idée ?

Encore merci pour votre aide !

[ShaiLeTroll]

Tu n'oublie pas d'allouer buf dans ServerSocket1ClientRead ?
Et dans ButtonEnvoyerClick, tu n'as pas libérer var !