Чем заменить конструкцию использующую Application

← →
stas © (2009-11-13 16:08) [0]

Нужно дождаться пока объект сменит статус:

while smtpclient.State <>smtpReady do Application.ProcessMessages;

у меня нет Application.

Заранее благодарен.

← →
Bel © (2009-11-13 16:12) [1]

Sleep поможет?

← →
stas © (2009-11-13 16:17) [2]

не, со Sleep вешается приложение.

← →
Юрий Зотов © (2009-11-13 16:20) [3]

Подробности нужны. Что за приложение, есть в нем цикл выборки сообщений, кто его крутит и.т.п.

← →
stas © (2009-11-13 16:29) [4]

Юрий Зотов © (13.11.09 16:20) [3]
Есть процедура отправки почты. В ней вызываются по очереди необходимые команды
SmtpClient.Connect;
Между этими командами нужно дождаться пока объект SmtpClient примет определенный статус, для этого я выполняю
while smtpclient.State <>smtpReady do Application.ProcessMessages;
SmtpClient.Helo;
Но процедура может использоваться как в приложении с формами так и без, а включать туда модуль forms и утяжелять в 3 раза нехочется.

← →
stas © (2009-11-13 16:35) [5]

Вобще вопрос вырос отсюда:
http://delphimaster.net/view/6-1258114919/

Спасибо за помощь, нашел MultiThread объект, слип помог.

и в чем бы был смысл процессамесаджей?
аппликейшона нет. значит нет модуля формз.
значит консоль.
и в чем смысл в консоли делать processmessages?

Чем заменить конструкцию использующую Application Найти похожие ветки