|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Помогите разобраться с Telnet-ом (библиотека Synapse)
Добрый день всем
тут такая проблема с телнет-ом не получается подключиться к хосту после подключения ничего не происходит Код:
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 - значит программа дальше не идет - в чем проблема почему? Нет ничего не возможного. Вопрос только во времени... |