TCP Login et executer des commandes.

**jeng37** · 21/07/2015, 14h50

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 :

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
 
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;

**Paul TOTH** · 21/07/2015, 15h22

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

**jeng37** · 21/07/2015, 15h38

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 :

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
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;

**jeng37** · 22/07/2015, 13h02

Hmm, personne peut m´aider?

**Paul TOTH** · 22/07/2015, 15h28

sujet largement abordé déjà

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

**jeng37** · 22/07/2015, 16h39

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!

**jeng37** · 31/07/2015, 09h11

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: Nom : screen-1.jpg
Affichages : 468
Taille : 278,7 Ko

Nom : screen-1.jpg
Affichages : 468
Taille : 278,7 Ko

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.

**alheuredudejeuner** · 31/07/2015, 17h05

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

**jeng37** · 01/08/2015, 09h25

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

**jeng37** · 20/08/2015, 12h45

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

Avec le compo. socket ca fonctionne!

Code :

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

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 :

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

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 :

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
 
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...

**SergioMaster** · 21/08/2015, 07h37

Bonjour,

j'ai juste lu en diagonale mais pour l'essai 1 : port1on ne devrait pas être plutôt un AnsiString ?

**Paul TOTH** · 21/08/2015, 09h24

c'est pas plutôt idTCPClient.WriteBuffer ou une fonction similaire ?

**jeng37** · 25/08/2015, 19h32

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!

TCP Login et executer des commandes.

Web & réseau Delphi

Discussions similaires

Partager

Partager