Discussion :

[nesquik]

Bonjour, j essaie de mettre en place un client serveur udp
alors voici mon serveuir

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
procedure TForm1.ServeurStatus(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
 
 
begin
   serveur.Bindings.Add;
   serveur.Binding.Port:=9999;
 
end;
 
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  serveur.Active:=true;
  serveur.Binding.IP:='127.0.0.1';
  serveur.Send('127.0.0.1',9999,'salut');
  serveur.Active:=false;
end;

mon client :

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
 
procedure TForm1.Button1Click(Sender: TObject);
 
  var
  test : string;
  begin
client.Host:='127.0.0.1';
client.Port:=9999;
client.Active:=true;
 TRY
 
memo1.Text:=client.ReceiveString();
showmessage(Client.ReceiveString());
 
 EXCEPT 
 
 client.Active:=false;
 EXIT;
end;
end;

avec ce magnifique code j arrive a tout faire planter
Logiquement cela devrait marcher sachant aue receive doit etre bloquant ( si ca fonctionne comme en c )
Si quelqu un voit le probleme, hesitez pas
Merci d avance

[MD Software]

C'est normal que tu fasses 2 ReceiveString alors que tu ne fait qu'un seul Send ?

[nesquik]

Non desole c une erreur de ma part. G du mal ac delphi je ne vois pas comment creer concretement une socket, la "binder" etc . c oblige y a un truc qui colle pas,meme le serveur plante tt seul

[nesquik]

Je vois a present comment faire.
Mon souci etait que je voulais faire jouer au client un role de serveur et inversement, en adaptant correctement les choses tout marche.
Merci pour votre lecture