Добрый день всем
тут такая проблема с телнет-ом не получается подключиться к хосту
после подключения ничего не происходит
Код:
var
TTelnet: TTelnetSend;
begin
TTelnet:=TTelnetSend.Create;
TTelnet.Timeout:=5000;
TTelnet.TargetHost:='192.168.1.1';
TTelnet.Login;
if TTelnet.Login then
begin
memo1.Clear;
memo1.Lines.Add('Connected');
if (TTelnet.WaitFor( 'Login:' )) then
begin
TTelnet.Send( CONST_USER + #13 );
memo1.Lines.Add('LOGIN: ADMIN');
if (TTelnet.WaitFor( 'Password:' )) then
begin
TTelnet.Send( CONST_PWD + #13 );
memo1.Lines.Add('PASWD: ADMIN');
if ( TTelnet.WaitFor( '#' )) or ( TTelnet.WaitFor( '>' )) then
begin
TTelnet.Logout;
memo1.Lines.Add('DISCONNECTED!');
end;
..
..
..
На Мемо вижу только Connected - значит программа дальше не идет - в чем проблема почему?