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