TCP Login et executer des commandes.

Version imprimable

Bonjour,

Je suis vraiment débutant et completement neuf ici au forum.

J´ai un probléme avec une connection TCP.

Je dois me connecter a un TCP port, puis envoyer une séquence pour le login, d´aprés que le login est ok je recoit un string de retour.
Jusque la tout fonctionne.

Mais maintenant mon probléme, je dois rester connecté avec mon login et mot de passe, est dans cette session je dois continuer an envoyer des sequences par ex. port1on ou port1off.

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
 
procedure TForm4.Button1Click(Sender: TObject);
Var
  Result, Login, port1on, port1off: string;
 
begin
  // IdTCPClient1.Host := 'localhost';
  // IdTCPClient1.Port := 6354;
  // IdTCPClient1.ConnectTimeout := 2000;
 
  Login := #$01#$02#$55#$53#$45#$52#$3a#$61#$64#$6d#$69#$6e#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$50#$57#$44#$3a#$61#$64#$6d#$69#$6e#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$01#$00;
  port1on :=
    #$04#$01#$02#$2#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
  port1off :=
    #$04#$01#$02#$2#$3c#$00#$0a#$01#$00#$00#$00#$00#$00#$00#$00#$00#$fe;
 
  if IdTCPClient1.Connected = False then
    IdTCPClient1.Connect
  else
  begin
    try
 
      IdTCPClient1.IOHandler.Write(Login);
      repeat
      until not IdTCPClient1.IOHandler.CheckForDataOnSource(5000);
 
      // return whatever was actually read
      Result := IdTCPClient1.IOHandler.InputBufferAsString;
      Memo1.Lines.Add(Result);
    finally
      IdTCPClient1.Disconnect;
    end;
  end;
end;

21/07/2015, 15h22
Paul TOTH

il suffit de séparer la connexion, la lecture/écriture et la déconnexion

Button1 -> IdTCPClient1.Connect + envoi du Login
Button2 -> envoi port1on ou off
Button3 -> IdTCPClient1.Disconnect;

tout cela avec une gestion d'erreur pour gérer l'état Enabled des boutons

Citation:

Envoyé par Paul TOTH

il suffit de séparer la connexion, la lecture/écriture et la déconnexion

Button1 -> IdTCPClient1.Connect + envoi du Login
Button2 -> envoi port1on ou off
Button3 -> IdTCPClient1.Disconnect;

tout cela avec une gestion d'erreur pour gérer l'état Enabled des boutons

Tout d´abort merci pour la réponse.

Puuh, savez-vous ou je peut trouver un example, pour séparer tout cela?
Bon j´ai essayé mais...
La connection fonctionne, le login aussi,
La lecture "semble" fonctionner séparément avec un timer. Mais a l´envoi du "port1on" rien ne bouge, la tramme n´est méme pas envoyé.

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
56
57
58
59
60
61
62
63
64
65
66
 
procedure TForm4.LoginClick(Sender: TObject);
 
begin
  // IdTCPClient1.Host := 'localhost';
  // IdTCPClient1.Port := 6354;
  // IdTCPClient1.ConnectTimeout := 2000;
 
  Login1 := #$01#$02#$55#$53#$45#$52#$3a#$61#$64#$6d#$69#$6e#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$50#$57#$44#$3a#$61#$64#$6d#$69#$6e#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$20#$01#$00;
  IdTCPClient1.IOHandler.Write(Login1);
  Timer1.Enabled := True;
 end;
 
procedure TForm4.Timer1Timer(Sender: TObject);
Begin
  Try
     repeat
       until not IdTCPClient1.IOHandler.CheckForDataOnSource(500);
       // return whatever was actually read
      Result := IdTCPClient1.IOHandler.InputBufferAsString;
      Memo1.Lines.Add(Result);
     finally
 
   end;
end;
 
procedure TForm4.Button1Click(Sender: TObject);
begin
 
   port1on :=
    #$04#$01#$02#$2#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
 
   //if IdTCPClient1.Connected = False then
   // IdTCPClient1.Connect
   //   else
      IdTCPClient1.IOHandler.Write(port1on);
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
port1off := #$04#$01#$02#$2#$3c#$00#$0a#$01#$00#$00#$00#$00#$00#$00#$00#$00#$fe;
 
  // if IdTCPClient1.Connected = False then
  //  IdTCPClient1.Connect
  //else
 
      IdTCPClient1.IOHandler.Write(port1off);
 
end;
 
procedure TForm4.ConnectClick(Sender: TObject);
begin
     IdTCPClient1.Host := 'localhost';
     IdTCPClient1.Port := 55006;
     IdTCPClient1.ConnectTimeout := 2000;
 
     IdTCPClient1.Connect;
     Memo1.lines.add(Format('Connexion au serveur TCP : %s/%d (TimeOut : %d)',[IdTCPClient1.Host, IdTCPClient1.Port, IdTCPClient1.ConnectTimeout]));
end;
 
procedure TForm4.IdTCPClient1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: string);
 
begin
  Memo1.Lines.Add(AStatusText);
end;

22/07/2015, 13h02
jeng37

Hmm, personne peut m´aider?:calim2:
22/07/2015, 15h28
Paul TOTH

sujet largement abordé déjà

ici par exemple
http://www.developpez.net/forums/d10...t-idtcpclient/
22/07/2015, 16h39
jeng37

Citation:

Envoyé par Paul TOTH

sujet largement abordé déjà

ici par exemple
http://www.developpez.net/forums/d10...t-idtcpclient/

Hmm, ok merci pour l´info!
31/07/2015, 09h11
jeng37

2 pièce(s) jointe(s)

Bonjour a tous,

Je viens de tester avec un code demo de chat,
le login fonktionne, mais mon module n'aktionne pas.
J'ai une application (packetsender) avec la quelle j'arrive à actionner le module, mais seulement en persistent TCP mode.

Ici des screens:
Screen1:
Si je coche a droite "persistent TCP", et j'envoi la séquence TCP-Login2, il y a un popup qui s'ouvre. (screen-2)
Screen2:Pièce jointe 184381
La réponse de TCP-Login2 est "V056" qui me dis que je suis connecté.
Maintenant dans cette fenetre je lance la séquence TCP-EXO1-Port1-On, et mon module actionne port 1!

Si je sélectionne pas ce mode "persistent TCP" il me fait le login et je recoit aussi la réponse "V056" qui me dis que je sui connecté,
mais après ca il n'actionne pas le ou les ports.
31/07/2015, 17h05
alheuredudejeuner

peux-tu nous donner le lien du code démo

Bonjour

Je te recommande vivement la Faq sur Indy, en particulier http://delphi.developpez.com/faq/?pa...-sur-un-client

Si tu peux nous donner le lien de ta démo, je testerai.

Cordialement
01/08/2015, 09h25
jeng37

Citation:

Envoyé par alheuredudejeuner

Si tu peux nous donner le lien de ta démo, je testerai.

Cordialement

Tu as reçu du courrier;)

a+
Jeng

rebonjour,
j´ai fait quelques tests et voici ce que je ne comprends pas.

Avec le compo. socket ca fonctionne!

Code:

1
2
3
4
5
6
7
8
9
 
procedure TfrmMain.Button2Click(Sender: TObject);
  var
    Data: AnsiString;
begin
  Data := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe; // Nachricht zusammenbauen, z.B. schalten
  Memo1.Lines.Add('Send2: '+Str2Hex(Data));
  ClientSocket1.Socket.SendText(Data);
end;

mais avec TIdTCPClient ca fonntionne pas!

1er essai:

Code:

1
2
3
4
5
6
7
8
 
procedure TfrmMain.Button2Click(Sender: TObject);
Var
  port1on: string;
begin
  port1on := #$04#$01#$02#$23#$3c#$00#$0a#$01#$ff#$00#$00#$00#$00#$00#$00#$00#$fe;
  IdTCPClient1.IOHandler.Write(port1on);
end;

2e essai:

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
 
Procedure  TfrmMain.Button2Click(Sender: TObject);
Var
    buf: TidBytes;
 
begin
  SetLength(Buf, 17);
  FillBytes(Buf, 17, 0);
  Buf[0] := $04;
  Buf[1] := $01;
  Buf[2] := $02;
  Buf[3] := $23;
  Buf[4] := $3c; // para1; //Exo1
  Buf[5] := $00;
  Buf[6] := $0a;
  Buf[7] := $01;
  Buf[8] := $ff;//port1;
  Buf[9] := $00;//port2;
  Buf[10] := $00;//port3;
  Buf[11] := $00;//port4;
  Buf[12] := $00;//port5;
  Buf[13] := $00;//port6;
  Buf[14] := $00;//port7;
  Buf[15] := $00;//port8;
  Buf[16] := $fe;//para3;
 
  //IdTCPClient1.IOHandler.Write(Buf); <---- fonctionne pas
  IdTCPClient1.Socket.Write(buf); <---- fonctionne pas non plus

je sais plus mais... :mur:

21/08/2015, 07h37
SergioMaster

Bonjour,

j'ai juste lu en diagonale mais pour l'essai 1 : port1on ne devrait pas être plutôt un AnsiString ?
21/08/2015, 09h24
Paul TOTH

c'est pas plutôt idTCPClient.WriteBuffer ou une fonction similaire ?
25/08/2015, 19h32
jeng37

Je vous remercie tous pour votre support!
Mais j'ai du abandoner la solution Indy aprés plus de 4 semaines sans solution!
J´ai migré vers synapse, qui a fonctionné directement au premmier essai!