Discussion :

[dacid]

Bonjour à tous,

J'ai une connection TCP/IP indy avec TIdTCPServer et client.
Sur le serveur, je lance mon application: OK
Sur le client je lance mon application: OK
J'envoie quelques données: OK
Sur le client je déconnecte la communication: OK
Sur le client, je veux la relancer: Impossible !
Je veux fermer le programme coté Serveur: Violation d'adresse

Sur le serveur, il rentre dans l'evenement Disconnect() une fois que le client a déconnecté et ne veut plus faire de connect ensuite.

Voici mon code coté 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
21
22
23
24
25
 
procedure TfrmMain.ouvrirTCP;
begin
    fermerTCP;
    tcpCMain.Host := txtIp.Text;
    tcpCMain.Port := numPort;
    try
      tcpCMain.Connect;
    except
      SetInfo('Impossible d''ouvrir le port TCP');
    end;
  end;
end;
 
procedure TfrmMain.envoyerTCP(ligne: String);
begin
  if (tcpCMain.Connected) then 
    tcpCMain.Write(ligne);
end;
 
procedure TfrmMain.fermerTCP();
begin
  if (tcpCMain.Connected) then
    tcpCMain.Disconnect;
end;

Et coté Serveur:

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
21
22
 
procedure TfrmMain.tcpSMainConnect(AThread: TIdPeerThread);
begin
  mmoInfos.Lines.Add('Connecté au '+AThread.Connection.Socket.Binding.PeerIP);
  tcpSMain.Bindings.Clear;
  tcpSMain.Bindings.Add.IP := AThread.Connection.Socket.Binding.PeerIP; // IP de l'autre PC
end;
 
procedure TfrmMain.tcpSMainExecute(AThread: TIdPeerThread);
var
  Line: String;
begin
  While AThread.Connection.Connected do begin
    Line := AThread.Connection.Readln;
    mmoMain.Lines.Add(Line);
  end;
end;
 
procedure TfrmMain.tcpSMainDisconnect(AThread: TIdPeerThread);
begin
  mmoInfos.Lines.Add('Déconnecté');
end;

Qu'est ce qu'il se passe ?

[dacid]

Bon... J'ai trouvé:

Il ne faut pas mettre:

Code :

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

1
2
3
 
  tcpSMain.Bindings.Clear;
  tcpSMain.Bindings.Add.IP := AThread.Connection.Socket.Binding.PeerIP; // IP de l'autre PC

Je ne sais pas ou j'ai trouvé ça mais ça ne devait pas correpondre à mon cas !

Merci Dacid !

[DMO]

Salut,

• Côté client, il faut, pour être cohérent, utiliser WriteLn à la place de Write.
• Côté serveur, 3 problèmes :

1. Tu n'as pas à boucler toi même, c'est le serveur Indy qui s'en charge : il ne repassera plus dans Execute suite à la déconnexion du client.
2. Dans Execute (ainsi que dans les autres évènements), tu es dans le contexte d'un listenning thread. Tu comprends donc qu'il ne faut pas jouer directement avec l'IHM.
3. Ce que tu fais dans le Connect n'est pas utile.