Discussion :

[Tleconte]

Bonjour,

Je sollicite votre aide sur le point suivant.
Je souhaite communiquer en TCP avec deux équipements utilisant le même port (4007).
En première partie j'utilisais un seul équipement et les échanges étaient corrects.
Pour ce faire sous delphi XE7 j'utilise le composant TipwIPPort (IP*WORK V9).
Le problème est avec la mise en place du 2e équipement avec un 2e composant IPPort.
La réception des trames se mélange entre les deux, certainement par l'utilisation du même port le 4007.
Y a-t-il une solution pour gérer cette situation, les ports ne sont pas modifiables sur les équipements ?

Merci d'avance.

[Paul TOTH]

si je comprend bien tu as un PC client qui se connecte à deux équipements distants offrant un service TCP sur le port 4007

tu as donc deux connexions distinctes vers deux adresses différentes utilisant le même port...dans ce cas tu as localement deux ports (différents de 4007, et différentes entre eux) sur lesquelles dialogues les équipements distants et il ne peut pas y avoir de confusion...l'erreur est dans ton code.

[Tleconte]

Merci Paul
Je confirme utiliser deux composant avec deux adresse Ip différentes le Local port à 0 donc attribué.
Je vais regarder mon code de nouveau, j'utilise l'évènement OnDataIn et parfois celui de la connexion 1 est déclenché par l'arrivé de data de la connexion 2.
Si une autre idée sur le sujet.
Merci

[ShaiLeTroll]

Tu n'aurais pas branché les mêmes gestionnaires d'évènement sur les deux TipwIPPort et pas gérer le Sender ?
C'est l'avantage d'un mode blocking avec des TThread où l'on isole naturellement la lecture
tu dois être en mode asynchrone et tu reçois tout dans le même gestionnaire d'évènement de OnDataIn
Il n'y a rien de plus simple que des gérer un aiguillage des messages selon l'origine
Tu dois avoir deux buffers, tu alimentes chacun selon l'origine
Attention, si tu as de gros paquets de données, tu peux recevoir un message de tes appareils fractionnées en plusieurs morceaux ou alors inversement plusieurs trames collées les unes aux autres.

[Tleconte]

Merci pour cette nouvelle réponse.

J'ai bien deux évènements OnDataIn distinct.
Pour la taille des paquets c'est au maxi 40 octets et j'avais remarqué que les trames courte sont parfois regroupées.
A quoi sert le Sender et comment le gère t'on?
Pour l'aiguillage comment connaitre la source du message?
Merci encore.

[Paul TOTH]

Merci pour cette nouvelle réponse.

J'ai bien deux évènements OnDataIn distinct.
Pour la taille des paquets c'est au maxi 40 octets et j'avais remarqué que les trames courte sont parfois regroupées.
A quoi sert le Sender et comment le gère t'on?
Pour l'aiguillage comment connaitre la source du message?
Merci encore.

Shai a supposé que les deux composants partageaient le même événement de lecture, et dans ce cas le paramètre Sender permet de savoir qui déclenche le traitement...mais si tu as deux codes distincts ça n'a pas d'importance.

que fais-tu des données lues ? tu as bien deux conteneurs distincts, un pour chaque composant ?

en fait ça un peu de code de ton application, on ne peux que faire des suppositions sans pouvoir te répondre plus clairement.

[Tleconte]

Les données reçue sont décomposées et rangées dans deux structures.
Ci-dessous le code des deux évènements OnDataIn.
Merci.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
procedure TForm1.ipwIPPort_InDataIn(Sender: TObject; Text: string; EOL: Boolean);
begin
 
  // Chargement trame reçue
  Rfid[Lect_In].Trame_Rx_Tcp := Text;
  // Conversion trame dans structure
  conv_trame_rx_Tcp(Lect_In);
 
  // Compteur Rx
  Rfid[Lect_In].Ctp_Rx := Rfid[Lect_In].Ctp_Rx +1;
  Label_Cpt_Rx_In_Stock.Caption := 'Cpt RX: '+inttostr(Rfid[Lect_In].Ctp_Rx);
  // Affichage trame reçue en hexa
  Edit_Rx_In_Stock.Text := Rfid[Lect_In].Trame_Rx_Aff;
  // Affichage Tag reçu et informations de lecture
  Edit_Nr_Tag_In_Stock.Text := inttostr(Rfid[Lect_In].Nr_Tag);
  Label_Status_lecture_Tag_In_Stock.Caption := 'ID: '+ Rfid[Lect_In].ID+'    CG: '+ Rfid[Lect_In].CG+'    EF: '+ Rfid[Lect_In].EF+'    Cpt Vue: '+ inttostr(Rfid[Lect_In].Nbr_Vue);
 
  // Trace trame reçue dans memo
  if Ckb_Trace_In_Stock.Checked
    then
      begin
        Memo_In_Stock.Items.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss', Now )+'  Tag: '+ inttostr(Rfid[Lect_In].Nr_Tag)+'  Trame: '+Rfid[Lect_in].Trame_Rx_Aff);
      end;
 
end;
 
// Réception data sur ip port
procedure TForm1.ipwIPPort_OutDataIn(Sender: TObject; Text: string;
  EOL: Boolean);
begin
 
  // Chargement trame reçue
  Rfid[Lect_Out].Trame_Rx_Tcp := Text;
  // Conversion trame dans structure
  conv_trame_rx_Tcp(Lect_Out);
 
  // Compteur Rx
  Rfid[Lect_Out].Ctp_Rx := Rfid[Lect_Out].Ctp_Rx +1;
  Label_Cpt_Rx_out_Stock.Caption := 'Cpt RX: '+inttostr(Rfid[Lect_Out].Ctp_Rx);
  // Affichage trame reçue en hexa
  Edit_Rx_Out_Stock.Text := Rfid[Lect_Out].Trame_Rx_Aff;
  // Affichage Tag reçu et informations de lecture
  Edit_Nr_Tag_Out_Stock.Text := inttostr(Rfid[Lect_Out].Nr_Tag);
  Label_Status_lecture_Tag_Out_Stock.Caption := 'ID: '+ Rfid[Lect_Out].ID+'    CG: '+ Rfid[Lect_Out].CG+'    EF: '+ Rfid[Lect_Out].EF+'    Cpt Vue: '+ inttostr(Rfid[Lect_Out].Nbr_Vue);
  // Trace trame reçue dans memo
  if Ckb_Trace_Out_Stock.Checked
    then
      begin
        Memo_Out_Stock.Items.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss', Now )+'  Tag: '+ inttostr(Rfid[Lect_Out].Nr_Tag)+'  Trame: '+Rfid[Lect_Out].Trame_Rx_Aff);
      end;
 
end;

[Paul TOTH]

je ne vois rien de particulier...si ce n'est que je m'étonne de la désignation "In" et "Out", le code semble bien séparer les choses.

[Tleconte]

Les désignations In et Out représentent les deux équipements en question.
Pour l'instant j'ai contourné le problème en lançant deux instances du programme avec des paramètres différents (adresse IP et paramètre client Modbus) et du coup un seul TipwIPPort.
Shai parle de TThread est-ce une autre solution?
Je ne suis pas très aguerri à ceci.