Discussion :

[ouiouioui]

bonjour, je me suis documenté, lu la faq d'ou j'ai tiré cet exemple:

Code pascal :

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
Procedure TfmMain.Button1Click(Sender: TObject);
Var
  sMsg:              String;
  IdTCPClient:       TIdTCPClient;
  IdIOHandlerSocket: TIdIOHandlerSocket;
Begin
  IdIOHandlerSocket := TIdIOHandlerSocket.Create(Self);
  IdTCPClient       := TIdTCPClient.Create(Self);
  Try
    With IdTCPClient Do
    Begin
      IOHandler := IdIOHandlerSocket;
      Host      := '178.32.100.25';
      Port      := 48904;
      Try
        Connect; //connecte 
        If Connected Then
        Begin
          Try
            IdTCPClient.IOHandler.WriteLn('serverinfo'); //envoie la ligne de commande
            sMsg := IdTCPClient.IOHandler.ReadLn;
            If sMsg <> 'OK' Then //attends la réponse. Si <> de OK, erreur :
              MessageDlg('Erreur msg: ' + sMsg, mtInformation, [mbOK], 0);
          Finally
            Disconnect; //dans tous les cas, se déconnecter
          End;
        End
        Else
          MessageDlg('Connexion echoué', mtInformation, [mbOK], 0);
      Except
        MessageDlg('Une erreur est survenue durant l''envoi de commandes', mtError, [mbOK], 0);
      End;
    End;
  Finally
    IdTCPClient.Free;
    IdIOHandlerSocket.Free;
  End;
End;

depuis la sortie de indy10 tcpclient n'a plus writeln je pensais utiliser IdIOHandlerSocket mais à l'exécution j'ai une erreur sur la ligne

Code pascal :

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

IdTCPClient.IOHandler.WriteLn('serverinfo'); //envoie la ligne de commande

Exception déclenchée à $7C812AFB. Classe d'exception EAbstractError avec message 'Erreur abstraite'. Processus test.exe (3120)

ce qui paraît bizarre aussi c'est que mon pare-feu ne me propose pas de laisser passer l'application, alors que d'habitude avec udp c'est le cas lors de .connect mais là j'ai fait une exécution pas à pas et ce n'est pas le cas.

Merci d'avance pour votre aide.

[SergioMaster]

tu es sur d'avoir lu toute la FAQ
http://delphi.developpez.com/faq/?pa...ndy10writeread

ce n'est pas un reproche je suis tombé dessus par hasard en cherchant autre chose

[ouiouioui]

oui je l'avais lu merci quand même, mais si je met IdIOHandlerSocket sa compile pas, et IdIOHandlerStream sa compile mais sa se connecte pas.

j'ai essayé ics twsocket

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
 
Procedure TForm2.Button1Click(Sender: TObject);
Var
  t: String;
Begin
  t := '';
  wsocket1.Connect;
//wsocket1.SendLine('serverinfo');
//wsocket1.ReadLine(2000, t);
//wsocket1.Close;
//showmessage(t);
End;
 
Procedure TForm2.WSocket1SessionAvailable(Sender: TObject; ErrCode: Word);
Begin
  ShowMessage('t');
End;

pareil sa se connecte pas pourtant l'ip port sont correct et d'autre logiciels s'y connecte