Ante de nada deciros que mi nivel de programador es mínimo (programo en defensa propia con ayuda de san google).
Estoy intentando realizar una conexión a diferentes equipos que tengo repartidos en una gran red.
estos equipos disponen la gran mayoría de servidor telnet.
el código que uso es.
el el evento DataAvailable del IdTelnet de Indy
Código Delphi
[-]
StrBuffer := bytestostring(Buffer);
if Ansipos(trim('login'),trim(StrBuffer))<>0 then
Begin
IdTelnet1.Socket.WriteLn(EdUser.Text);
Sleep(1000);
IdTelnet1.Socket.WriteLn(EdPass.Text);
Sleep(StrToInt(EdTimer.Text)*1000);
IdTelnet1.Socket.WriteLn(EdCommand.Text);
End;
Log.Text := Log.Text + bytestostring(Buffer);
Log.SelStart := Length( Log.Text );
Dentro de la red local esto me funciona correctamente pero cuando intento hacerlo a una ip fuera de la red local me encuentro con el problema de que realiza la conexión de usuario y contraseña pero no es capaz de ejecutar el comando (un simple Dir).
como veis el Sleep lo he puesto para poder aumentarlo pero en ninguno de los casos el comando se ejecuta.
alguien puede darme alguna pista.
Un saludo.