Com TCP/IP Problème TClientSocket et Indy

Version imprimable

Bonjour à tous.

Je débute en com sur TCP/IP et je suis en cours de développement d'un client pour une liaison avec un automate Schneider (Serveur Carte ETY5103) en modbus IP.
Je sèche malgré diverses recherches et tests, je viens donc vous solliciter.

Mon ou mes problèmes se situent sur l'utilisation des composants socket.
J'ai donc testé deux méthodes avec pour chacune les soucis suivant:

Avec TClientSocket:
Les échanges fonctionnent mais lorsque le serveur est sur le réseau Ethernet local, la connexion et les échanges sont beaucoup plus lent qu'avec le serveur distant sur internet!!

Avec Indy TidTCPClient:
Les connexions sont rapide dans les deux cas (Local ou distant), mais je ne parviens pas à récupérer correctement la réponse du serveur dans la procédure ci-dessous, qui n'est pas toujours appelée!!
Code:

1 2 3 4 5 6 7 8 9 10 procedure TForm1.Client1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); var str: string; begin str := Client1.IOHandler.ReadLn; Trame_rx := str; conv_trame_rx; ListBox1.Items.Insert(0, 'RX '+Trame_rx_aff); end;
Merci d'avance de votre aide.

Thierry

Pour le TClientSocket, c'est étrange, je l'ai utilisée massivement, en réseau local ou via Tunnel SSH lorsque utilisé sur Internet, et évidemment, c'était nettement plus rapide en LAN qu'en WAN

TidTCPClient, c'est normal, ReadLn attend une fin de Trame (fin défini par ATerminator) donc tant que tu n'as pas de retour charriot par exemple, il continue à lire en boucle ... mais je pense que tu as cette fin de message, sinon tu aurais dit que cela bloquait ...
je préfère utilisé ce composant aussi en Thread, ... c'est plus efficace, je trouve que les Events (en fait les seuls bon composant Asynchrone c'est TClientSocket, les autres, c'est thread obligatoire, du moins avec les tests que j'ai fait ...)
Essaye un autre code, il est possible qu'après ton message, il y en ai un autre en fait, et que lorsque tu recçois un seul Event Work, tu as en fait plusieurs messages à lire ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 procedure TForm1.Client1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); var str: string; begin if AWorkMode = wmRead then begin SetLength(str, AWorkCount); Client1.ReadBuffer(str[1], AWorkCount); Trame_rx := str; conv_trame_rx; ListBox1.Items.Insert(0, 'RX '+Trame_rx_aff); end; end;
Tu as quel Delphi ? le 6 ?
Avec le 7, tu as aussi les TTCPClient (unité sockets), ils fonctionnent pas si mal (avec un thread, je n'ai pas trouvé le mode non bloquant du TClientSocket qui est pratique lorsque l'on a pas envie de faire de thread), je ne les ai utilisé qu'une seule fois

toujours pas de réception !!

Bonjour Shai

Merci de tes réponses

Je suis en D7 et D2006, j'ai testé dans les deux versions.

Pour les caractères de fin de Trame je doit oublier car je ne maitrise pas la terminaison de la trame de réponse.
En fait je captais quelque chose par ce que je ne contrôlais pas : if AWorkMode = wmRead then...

J'ai donc testé TTCPClient qui se connecte correctement dans les deux cas (local/Distant).
L'envoie de données est correcte avec la méthode :Tcpclient1.SendBuf(LBuffer,12,0);
Par contre je ne capte toujours pas les données reçues, toujours pas d'évènement OnReceive :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar; var DataLen: Integer); var Recept:string; begin Showmessage('on Receive') ; Recept := Buf[DataLen]; Trame_rx := Recept; conv_trame_rx; RichEdit1.Lines.Add('RX '+Trame_rx_aff); end;
J'ai testé en mode bloquant et non bloquant idem pour OnReceive par contre en mode non bloquant l'évènement OnConnect disparait. Est-ce normal?

Comment gère t'on le buffer de réception???

Quand à Indy j'obtiens encore moins de résultat..

Merci d'avance de ton aide

Thierry

Comme je l'ai dit, les modes non Bloquant (via Event) des nouveaux composants, sont semble-t-il moins efficace que ceux du TClientSocket, c'est que l'on ne doit pas bien les utiliser ...

sinon, moi j'ai écrit ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
class function TRISToPACS.Connexion(const Host, Port: string; const EndOfLine: string = Control_D; BlockingTime: Cardinal = 100; WaitOnTerminateTime: Cardinal = 10000): Boolean;
var
  TcpClientToPACS: TTcpClient;
begin
   if Assigned(_InternalThread) then
   begin
      Result := False;
      Exit;
   end;
 
   TcpClientToPACS := TTcpClient.Create(nil);
   TcpClientToPACS.RemoteHost := Host;
   TcpClientToPACS.RemotePort := Port;
 
   Result := TcpClientToPACS.Connect();
   if Result then
     _InternalThread := TTcpClientToPACSThread.Create(TcpClientToPACS, EndOfLine, BlockingTime, WaitOnTerminateTime)
   else
     TcpClientToPACS.Free();
end;

Code:

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
54
55
procedure TTcpClientToPACSThread.Execute();
var
   InText: string;
   OutArray: TStringDynArray;
   ioa: Integer;
   Work: TRISToPACSWork;
begin
   SocketState := ssNone;
 
   while not Terminated and FSocket.Connected do
   begin
      if PopWork(Work) then
      begin
         case Work.WorkType of
           wtFile : Read...WorkListFile(Work.Data, OutArray);
           wtMsg : begin
             setLength(OutArray, 1);
             OutArray[0] := Work.Data;
           end;
         end;
 
         for ioa := Low(OutArray) to High(OutArray) do
         begin
           if OutArray[ioa] <> '' then
           begin
             SocketState := ssWriting;
             try
               FSocket.Sendln(OutArray[ioa], FEndOfLine);
               TRISToPACS.WriteLog(FSocket.RemoteHost, FSocket.RemotePort, 'OUT', OutArray[ioa]);
             finally
               SocketState := ssNone;
             end;
             Sleep(1);
             SocketState := ssReading;
             try
               InText := FSocket.Receiveln(FEndOfLine);
               TRISToPACS.WriteLog(FSocket.RemoteHost, FSocket.RemotePort, 'IN', InText);
             finally
               SocketState := ssNone;
             end;
             Sleep(1);
             SocketState := ssReconnecting;
             try
               FSocket.Disconnect(); // j'ai eu un soucis, cela vient du serveur qui me chasse après une lecture ...
               FSocket.Connect();
             finally
               SocketState := ssNone;
             end;
           end;
        end;
      end;
 
      Sleep(FBlockingTime);
   end;
end;