Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 07.09.2019, 18:30   #1
niockasd
Форумчанин
 
Регистрация: 01.12.2015
Сообщений: 81
Репутация: 10
По умолчанию IdTCPClient1 принять сообщение.

Всем примет, я тут пытаюсь узнать о готовности к работе TOR.exe.
Запустил его присвоив управляющий порт, далее
Код:
IdTCPClient1.host:='127.0.0.1';
IdTCPClient1.port:=9051;

IdTCPClient1.ConnectTimeout := 10000; // 10.0 sec
IdTCPClient1.ReadTimeout := 10000; // 10.0 sec

 IdTCPClient1.Connect;
 IdTCPClient1.SendCmd ('AUTHENTICATE ""');

 if IdTCPClient1.LastCmdResult.Code='250' then
  begin
         IdTCPClient1.SendCmd('GETINFO status/bootstrap-phase');
         memo1.Lines.Add(IdTCPClient1.LastCmdResult.Text.Text);
   end;
на выходе получаю
Цитата:
status/bootstrap-phase=NOTICE BOOTSTRAP PROGRESS=100 TAG=done SUMMARY="Done"
OK
Можно ли как то сделать цикличное получение сообщений?

Или только в таймере постоянно делать коннект, запрос и выводить ответ..
niockasd вне форума   Ответить с цитированием
Старый 07.09.2019, 18:52   #2
niockasd
Форумчанин
 
Регистрация: 01.12.2015
Сообщений: 81
Репутация: 10
По умолчанию

Код:
      repeat
              IdTCPClient1.SendCmd('GETINFO status/bootstrap-phase');
              memo1.Lines.Add(IdTCPClient1.LastCmdResult.Text.Text);
        until Pos('100',IdTCPClient1.LastCmdResult.Text.Text )>=1;

  end;

)))) только такое на ум пришло, может что получше предложите ? )
niockasd вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA Outlook: сделать в инспекторе "Сообщение - Действия - Изменить сообщение" vamosss Фриланс 1 13.02.2017 15:02
Не получается принять сообщение (SendMessage) crazygoldbullet Win Api 3 08.08.2013 11:53
проблемы с idTCPClient1, передача данных Lorden Работа с сетью в Delphi 4 03.02.2011 17:37
Передача звука IdTCPClient1 и IdTCPServer1 SoftKoc Работа с сетью в Delphi 8 16.11.2010 02:38
Как принять сообщение (SendMessage) Crazyman Win Api 4 20.02.2008 05:42


19:17.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.