VPF::Результат выполнения команды SSH

mfn9

Дата 18.9.2008, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 29.6.2007

Репутация: нет
Всего: нет

Добрый день!
Интересует вопрос как можно уведеть результат выполнения команды
Делаю так:

Код


     pSend := TTelnetSend.Create;
     pSend.SSHLogin;
     pSend.Send('command');
     pSend.WaitFor('answer command');
     s:=pSend.RecvString;
     s:=pSend.SessionLog;
     ShowMessage(s);

но при выполнении команды WaitFor - зависает вся программа-это не подходит
поставил таймер

Код


     
     pSend := TTelnetSend.Create;
     pSend.SSHLogin;
     pSend.Send('command');
     Timer1.Enabled:=True;

procedure Timer1Timer(Sender: TObject);
begin
     s:=pSend.RecvString;
     s:=pSend.SessionLog;
     if  Pos('answer command',s)<>0 then
                answ:='OK'
     else Timer1.Enabled:=True;    
end;

когда срабатывает таймер а команда еще не отработалась,я запускаю повтор таймера
но во второй раз срабатывания таймера мне не приходит ответ
(хотя реально команда отработала!)

то есть ответ можно увидеть только при первом срабатывании таймера
сделать таймер больше не подходит(время выполнения команд всегда разное)
Заранее спасибо!)

Snowy

Дата 18.9.2008, 14:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

А с какой стати таймер должен срабатывать, если главный тред висит?
Брось на форму антифриз, или работай в отдельном треде.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »