Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #3  
Старый 03.08.2012, 16:09
mkoretskiy mkoretskiy вне форума
Прохожий
 
Регистрация: 03.08.2012
Сообщения: 4
Репутация: 10
По умолчанию

Проблема решена. нюансы телнета. здесь я не спец.

может кому то пригодится.
во первых логин и пароль надо отсылать посимвольно.
для логина надо ждать ответа . ответ - отосланая буква.
для пароля надо ждать ответа *
плюс перед отсылкой логина надо ждать определенный набор символов, а не только то что видно визуально. расковырял wiresharkom

после "UserName:" еще идет набор символов , заканчивается комбинацией FF FE 27.

работающий код

Код:
    TN.WaitFor('UserName:');
    TN.WaitFor(#255#254#39);
    for i:=1 to Length(SwitchLogin) do begin
      TN.Send(SwitchLogin[i]);
      TN.WaitFor(SwitchLogin[i]);
    end;
    TN.Send(CRLF);
    TN.WaitFor('PassWord:');
    for i:=1 to Length(SwitchPassword) do begin
      TN.Send(SwitchPassword[i]);
      TN.WaitFor('*');
    end;
    TN.Send(CRLF);
    TN.WaitFor(waitfor); 

пока это всплыло только для длинка. с другими моделями таких траблов не возникало.

возможно это решается проще. если есть рецепт - буду благодарен
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:19.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025