Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Un ejemplo para hacer un Telnet (https://www.clubdelphi.com/foros/showthread.php?t=33736)

Rafael Reina 15-07-2006 12:40:49

Un ejemplo para hacer un Telnet
 
Estoy aterrizando en Delphi7 y necesito comunicarme con un micro que yo he construido.
Ya me conunico por el puerto serie y ahora necesido hacerlo por Telnet. (Telnet <-> RS232).
Me he instalado los indy. Si alguien me puede enviar un ejemplo sencillo que funcione, ya me busco la vida. Me duelen los ojos buscando por la red.

Gracias

Rafael Reina 17-07-2006 13:17:14

Bueno, pues como nadie me ha contestado aún, yo mismo respondo. Asi, si alguien está en mi caso, le puede servir para empezar.
Realmente era muy sencillo. Bastaba con insertar el componente idTelnet de IndyClient, como IdTelnet1. Antes hay que establecer la direccion y el Port:

IdTelnet1.Host:='172.26.0.56';
IdTelnet1.Port:= StrToInt(Edit2.Text);
IdTelnet1.Connect(1000);

Para enviar los caracteres, según los estemos tecleando:

IdTelnet1.SendCh(Key);

Para enviar un texto completo ya introducido:

IdTelnet1.WriteLn(Edit3.Text+#13);

Y, por último, para terminar:

IdTelnet1.Disconnect();

Por cierto, esta ultima sentencia produce siempre una exepcion en modo Debuger, pero funciona correctamente desde el ejecutable.

Tengo otras preguntas por si alguien se anima:

En un ejemplo que me he bajado Titulado Cliente Telnet con los Indy, (y que no he logrado hacerlo funcionar) utiliza el componente IdTCPClient, en lugar de IdTelnet. :confused:

Si esto es así, no se puede utilizar el Internet -> TCPClient que viene con Delphi7 ? sin tener que cargar los Indy ?

Gracias


La franja horaria es GMT +2. Ahora son las 09:38:13.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi