Probleme socket avec Indy sur Raspberry

Bonjour,
Sur mon Raspberry PI, j'ai un petit serveur très simple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.FormCreate(Sender: TObject); begin IdTcpServer.DefaultPort:= 5678; IdTcpServer.Active:= True; end;   procedure TForm1.IdTCPServerConnect(AContext: TIdContext); begin AContext.Connection.IoHandler.WriteLn('Hello. Connecté au PI'); end;   procedure TForm1.IdTCPServerExecute(AContext: TIdContext); begin IdTcpServer.Active:= True; end;

---

Quand je lance le programme j'ai une erreur:
Socket Error # 98
Address already in use.

Si je change le port 5678, pour autre chose, c'est toujours pareil!
Je patine là.
Merci

tu peux vérifier si le port est utilisé avec

netstat -a | grep 5678

Bonjour,
Le port est bien libre au lancement du programme.
J'ai trouvé une solution remplacer:

Code:

---

IdTcpServer.DefaultPort:= 5678

---

par

Code:

---

IdTcpServer.Bindings.Add.Port := 5678;

---

Maintenant cela marche, sauf que si le client se déconnecte, le serveur sur le Raspberry plante avec un message de SIGPIPE :-((((
Grrrrr!!
Michel

Même comportement "Address already in use" observé sur Indy (FTP qui hérite du TCP) sur windows, même approche par Bindings.Add() mais en plus avec une IP neutre '0.0.0.0', on a trouvé ça dans la Doc de mémoire

Je suis totalement rouillé en Indy, j'en suis resté à la version 9 pour TCP Server avec des threads

Mais Ceci est TRES etrange puisque le OnExecute se produit quand il y a des données et donc lorsque le serveur est déjà actif

Code:

---

1 2 3 4

procedure TForm1.IdTCPServerExecute(AContext: TIdContext); begin IdTcpServer.Active:= True; end;

---

Cela devrait être

Code:

---

1 2 3 4 5 6

procedure TForm1.IdTCPServerExecute(AContext: TIdContext); begin Truc := AContext.Connection.IOHandler.ReadLn; Machin := Traiter(Truc); AContext.Connection.IOHandler.WriteLn(Machin); end;

---

Oui c'était juste du test, voila le code actuel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.IdTCPServerExecute(AContext: TIdContext); begin if PremiereConnexion then begin PremiereConnexion:=false; AContext.Connection.IoHandler.WriteLn('Hello. Connecté au PI'); end else begin AContext.Connection.IoHandler.WriteLn('La suite....'); end; end;

---

as tu essayé à tout hasard, de ne pas passer par le code, mais directement depuis les propriétés du composant ? tu choisis le port, puis mets active à true

ensuite es tu sûr que ton client est toujours connecté au serveur ? si ça se trouve, il se connecte et il perd aussitôt la connexion ? laisse le onConnect tranquille, après quelques seconde avec un bouton par ex, fait un test pour savoir si le client est toujours connecté