indy10 tcp connect

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

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

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

Citation:

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.

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

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:

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:cry: