Discussion :

[michastro]

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

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
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

[Paul TOTH]

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

netstat -a | grep 5678

[michastro]

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

Code :

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

  IdTcpServer.DefaultPort:= 5678

par

Code :

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

  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

[ShaiLeTroll]

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 :

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

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

Cela devrait être

Code :

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

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;

[michastro]

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

Code :

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

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;

[Coussati]

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é