encore tserversocket :'(....

Question

j'ai bien suivi les conseil mais :

var con: integer;

procedure TForm1.serveurAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
serveur.Socket.Accept(con);
end;

procedure TForm1.serveurClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
inc(con);
socket.Data:=pointer(con);
end;

procedure TForm1.serveurClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var uy: integer;
begin
uy:=integer(socket.data);
memo1.Text:=memo1.text+'ID : '+inttostr(uy)+#13#10;
socket.Data:=pointer(uy)
end;

chaque client ne peut menvoyer qu'une seul chaine de caractere par exmple :
si il menvoi 'salut' une foi et 'coment sa va' apres, je recevré que 'salut', sa doi etre un pb de reinitialisation.
HELP ME PLEASE !

cs_Nono40 · Answer

Le problème n'est pas lié au code que tu présentes, comment lis-tu les chaines envoyées par les clients ? Comment envoies-tu les chaines avec les clients ?

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

le truc c'est que je li pas ce que le server recoi je fait juste que si il recoi quelque chose, il marker l'ID de la conection qui envoi, pour lenvoi je fait :

procedure TForm1.FormCreate(Sender: TObject);
begin
client.open
end;

procedure TForm1.clientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
edit1.text:='conecter'
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
client.socket.Sendtext('salut')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
client.socket.Sendtext('comment sa va')
end;

cs_Nono40 · Answer

Si tu ne lis pas le texte envoyé par le client, c'est normal. Même si tu ne l'utilises pas il vaut mieux lire les données réçus. Sinon se sera toujours les même données en début car les autres se mettent en fin de buffer.

--- :sleepy)  Nono du Moulin  :sleepy) ---

Encore tserversocket :'(....

3 réponses

Votre réponse

Discussions similaires