Problème socket server/client

Version imprimable

20/11/2010, 09h50
yazidou27

Problème socket server/client
bonjour;
je suis sous delphi 7 ,
jai une aplication de partger des donneés en connectent avec winsock
server/client , mon probleme c'est que les donnée partager sont envoyer a tous les client connecter le temp que moi je veux que lorsque un client demande une doneé il resoit la repence seule pas tous les clients, voici un petit chema
Code:

1 2 3 clien1-->server--->client1 client2-->sever--->client2 et non client1--->server--->client1+client2
jai cherhcer dans pas mal de source mai tous étulise le 2eme methode
jetulise tserversocket et tclientsocket ;
desole pour lortographe et merci pour votre aide
21/11/2010, 07h27
Paul TOTH

cool tu as inventé une alternative au multicast :)

ce comportement n'a lieu qu'avec un réseau multicast ou si ton serveur envoie la réponse à chaque client...
21/11/2010, 12h35
yazidou27

Citation:

Envoyé par Paul TOTH

cool tu as inventé une alternative au multicast :)

ce comportement n'a lieu qu'avec un réseau multicast ou si ton serveur envoie la réponse à chaque client...

merci pour la repence;
cest ca le serveur envoie la repence a chaque client un par un dans un intervale de mili seconds suposent que en a 4 clients chez mon serveur
la procedure ce fait :
client1 envoi une demande --serveur repend client1
client3 envoi un autre demande --serveure repend client 3
22/11/2010, 05h50
Paul TOTH

si le serveur envoie une réponse sur le socket de client1, client2 ne peux pas la recevoir !
22/11/2010, 21h23
yazidou27

Citation:

Envoyé par Paul TOTH

si le serveur envoie une réponse sur le socket de client1, client2 ne peux pas la recevoir !

oui cet ca la repence doit etre envoi a ce qui a envoyer la demande
02/12/2010, 05h13
Coussati

tu as réglé ton problème ? j'aimerais bien t'aider, mais je n'ai pas trop compris ce que tu cherches à faire et sur quoi tu bloques ...
08/12/2010, 13h59
yazidou27

Citation:

Envoyé par Coussati

tu as réglé ton problème ? j'aimerais bien t'aider, mais je n'ai pas trop compris ce que tu cherches à faire et sur quoi tu bloques ...

merci cher ami ,
non jen ai pas encor regler mon probleme , jai essai pas mal de truc mai ca fonctionne toujour pas,
jai essai avec un index de client mai le probleme c'est que lindex retourne le dernier client connecter et ne pas le dernier client qui a envoyer le demande.
:?

voici mon code,
Code:

1 2 3 4 5 6 7 8 if (server.Socket.ActiveConnections > 0) then begin for i := 0 to server.Socket.ActiveConnections-1 do begin server.Socket.Connections[i].sendtext(data); end;
le probleme ici c'est que [i] index le deriner client connecter et non le dernier client qui a envoyer une donnée.

08/12/2010, 16h48
Paul TOTH
Citation:
Envoyé par yazidou27

voici mon code,

Code:

1 2 3 4 5 6 7 8 if (server.Socket.ActiveConnections > 0) then begin for i := 0 to server.Socket.ActiveConnections-1 do begin server.Socket.Connections[i].sendtext(data); end;

le probleme ici c'est que [i] index le deriner client connecter et non le dernier client qui a envoyer une donnée.
non ton code envoie exactement data à TOUS les clients !

c'est une boucle sur la liste des connections actives :aie:
10/12/2010, 04h47
Coussati

je n'ai toujours pas bien compris ce que tu veux faire, mais si c'est envoyé un message au client qui sollicite le serveur, tu dois utiliser la méthode suivante :

pour chaque client connecté, une constante (unique) est généré

je ne l'a connais pas bien pour ces compo, mais essais : Socket.LocalPort, Socket.RemotePort ou au pire l'adresse ip du client (elle est censé être unique :mrgreen: )

et lorsque tu fais ta boucle, tu places la condition de répondre le client dont la constante est égale à la constante des clients que ta boucle parcours ;)

j'espère t'avoir aidé
12/12/2010, 00h22
yazidou27

Citation:

pour chaque client connecté, une constante (unique) est généré

essais : Socket.LocalPort, Socket.RemotePort ou au pire l'adresse ip du client (elle est censé être unique :mrgreen: )

et lorsque tu fais ta boucle, tu places la condition de répondre le client dont la constante est égale à la constante des clients que ta boucle parcours ;)

j'espère t'avoir aidé

merci boucoup cher ami, mai le probleme que je pose c'est que activeconnection index le dernier client qui conect alor meme si je mit la condition elle sera toujour vré mai le serveur repend que a le client qui conecte le dernier et non qui a envoyer la derniere demande de traitment.

mon source

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
var
  Form1: TForm1;
  client:integer;
  index:integer;
implementation
 
{$R *.dfm}
 
   function StringtoHex(Data: string): string;
var
  i, i2: Integer;
  s: string;
begin
  i2 := 1;
  for i := 1 to Length(Data) do
  begin
    Inc(i2);
    if i2 = 2 then
    begin
      s  := s + ' ';
      i2 := 1;
    end;
    s := s + IntToHex(Ord(Data[i]), 2);
  end;
  Result := s;
end;
 
procedure TForm1.opcomClick(Sender: TObject);
 
begin
comport1.Port:=com.Text;
comport1.Connected:=not comport1.Connected;
comport1.Connected:=true;
 
 
end;
 
procedure TForm1.ComPort1AfterOpen(Sender: TObject);
begin
opcom.Enabled:=false
end;
 
procedure TForm1.ComPort1AfterClose(Sender: TObject);
begin
opcom.Enabled:=true;
end;
 
procedure TForm1.opserverClick(Sender: TObject);
begin
 
server.Port:=strtoint(port.Text);
server.Open;
etat.caption:='server open';
etat.font.Color:=clgreen;
 
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
comport1.Close;
end;
 
procedure TForm1.serverAccept(Sender: TObject; Socket: TCustomWinSocket);
begin
 
   list.Lines.Add('accept:'+socket.RemoteAddress) ;
   client:=client+1;
   num.Caption:=inttostr(client);
 
 
end;
 
procedure TForm1.serverClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  list.Lines.Add('close:'+socket.RemoteAddress);
  client:=client-1;
  num.Caption:=inttostr(client);
end;
 ////////////
 
 
 
procedure TForm1.serverClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var  recudata:string;
begin
 
 if (server.Socket.ActiveConnections > 0) then
begin
index :=  (server.Socket.ActiveConnections-1) ;
begin
recudata:=server.Socket.Connections[index].ReceiveText;
 
end;
comport1.WriteStr(recudata) ;
 
 
end;
 
end;
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var  data, chaine:string;// le traitment de la demande se fait ici dans un dongle conectet via portCom
begin
   comport1.ReadStr(chaine,count);
    data:=chaine;
 
   if (server.Socket.ActiveConnections > 0) then
begin
index := (server.Socket.ActiveConnections-1 );
 
server.Socket.Connections[index].sendtext(data);
 
end;
end ;

12/12/2010, 08h36
Paul TOTH

pourquoi prends-tu "server.Socket.ActiveConnections-1" qui est le dernier client connecté et pas forcément celui qui envoie des données

le paramètre Socket de la fonction n'est-il pas tout simplement le socket client concerné ?!

Citation:

Envoyé par Paul TOTH

pourquoi prends-tu "server.Socket.ActiveConnections-1" qui est le dernier client connecté et pas forcément celui qui envoie des données

le paramètre Socket de la fonction n'est-il pas tout simplement le socket client concerné ?!

j'abondone jai trop chercher mai pas de soulution ,jai trouver une source de chat qui gere la repence priver mai ca fonctionne trj pas avec moi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure TMsgPerso.BitBtnEnvoyermsgPriveClick(Sender: TObject); var MessagePrive : string; i : integer; begin if LabeledEdit1.Text <> '' then begin if ServeurActif = TRUE then begin MessagePrive := 'MsgPrive'+'#DE#'+'Serveur'+'#POUR#'+TrouverNomLoginQuiRecoitMsg+'#CORPS#'+LabeledEdit1.Text+'#FIN#'; ChatRL.MemoActivite.Lines.Add('Message Privé du '+'Serveur'+' pour '+TrouverNomLoginQuiRecoitMsg+' >> '+LabeledEdit1.Text); for i:=0 to NumeroArriveConnexion-1 do begin ChatRL.ServerSocket.Socket.Connections[i].SendText(#13+MessagePrive); end; end;
Code:

1 2 3 4 5 6 7 procedure TChatRL.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket); begin //Showmessage('le client est connecté : '+Socket.RemoteHost); inc(NumeroArriveConnexion); TimerInformationsChateur.Enabled := TRUE; end;
jai fait le meme code mai sur mon apli le serveure envoi a le dernier connecter sur la liste.

15/12/2010, 06h37
Paul TOTH

forcément, le principe d'un chat c'est que tout le monde reçoit les messages de tout le monde :)

tu as la réponse à ton problème dans les messages précédents.
15/12/2010, 16h12
yazidou27

Citation:

Envoyé par Paul TOTH

forcément, le principe d'un chat c'est que tout le monde reçoit les messages de tout le monde :)

tu as la réponse à ton problème dans les messages précédents.

oui je cai mai mon code nest pour un chat ,
votre precedente repence donne une erreure .
22/12/2010, 19h04
yazidou27

thread

jai toujour pas resolu mon probleme ,
jai trouver quelque ideés mes je narrive pas a les traduire en code;
jai trouver que en peu étuliser les thred pour chaque client comme ca en fait les traitment separement ,
mai jarrive pas a codé cela dont je suis nul ; dans les composont tserversocket ya les evenement engetcleitThred , en StartThread, en endThred.. mai comment les etuliser??
23/12/2010, 06h06
Coussati

j'aimerais bien t'aider, mais pour être honette, j'ai essayé, et je ne comprends pas vraiment ce que tu veux faire :oops:
23/12/2010, 18h26
yazidou27

Citation:

Envoyé par Coussati

j'aimerais bien t'aider, mais pour être honette, j'ai essayé, et je ne comprends pas vraiment ce que tu veux faire :oops:

voila un chema
http://shup.com/Shup/450112/rs232.JPG