Cita:
Empezado por koalasoft
Estimados, he decidido aumentar mas mi sistema en cuanto a procesos, para esto manualmente me conecto en una terminal via Telnet para ejecutar unos comando para dar de alta a equipos, en la aplicación que hice, genero los códigos necesarios para que cuando me conecte via telnet a ese equipo solo copie de la aplicación esos códigos y los pegue en la terminal de telnet. Pero dije, bueno por que no hacerlo desde la aplicación mejor .. y me puse a investigar ... estoy en pruebas ...
Los enlaces que pusieron muy bueno y en eso me base !! .
Puedo con ese ejemplo conectarme perfectamente .. pero todo lo hago manual nuevamente pues seria una terminal propia... lo que busco es que una vez que me conecte a la terminal via telnet pueda enviar comandos a ese equipo via telnet ...
Al conectarme por ese emplo me pide en el servidor donde me conecto la clave y contraseña ... puse 2 Edit1 (el usuario) y Edit2 (contraseña) ... o que ahora intento es tratar de que esos datos sean enviados vía telnet desde la aplicación para poder estar logeado..
Para conectarme tengo esto ..
Código PHP:
procedure TForm1.Button1Click(Sender: TObject);
begin
Telnet.Host := IPServidor.Text;
Telnet.Port := StrToInt( Puerto.Text );
Telnet.Connect;
Log.SetFocus;
end;
En el evento OnConnect:
Código PHP:
procedure TForm1.TelnetConnect(Sender: TObject);
begin
Log.Lines.Add( 'Conectando con ' + Telnet.Host + '.' );
Log.Lines.Add( '' );
Telnet.WriteLn(Trim(Edit1.Text)+#13);
Telnet.WriteLn(Trim(Edit2.Text)+#13);
end;
y Aqui es donde envío los datos hacia la terminal ... pero veo que cuando lo hago de esta forma me toma solo el edit2 (clave) y deberia poner primero el usuario (edit) y después la contraseña ..
Alguna idea de que puede ser o que otra solución podria darse ? ..
Uso Delphi7 (si todavía)... |
Buenas tardes, se ve muy interesante lo que tratas de hacer, aunque no mencionas que componentes estas usando para usar Telnet dentro de tu aplicacion, te podria mencionar que Telnet no es mas que una aplicacion
Socket (ServerSocket-ClientSocket) por terminal que se conecta usando el puerto 23 por defecto; eso implica que podriamos tranquilamente implementarnos un Cliente Socket y conectarnos al servidor Telnet atravez del puerto 23 y hacerles consultas(mandandole comandos), en Delphi tengo entendido que se usan los componentes Indy para aplicaciones Sockets, por lo que veo sería el componente TIdTCPClient, aunque personamente solo he hecho clientes para Telnet en java usando la clase "Socket", eso no implica que no se pueda hacer algo similar en Delphi, supongo que si.
Saludos...