Вниз
Скачать: CL | DM;

Чем заменить конструкцию использующую 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/


← →
stas ©   (2009-11-13 16:42) [6]

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


← →
Медвежонок Пятачок ©   (2009-11-13 18:31) [7]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c
3-1232432122
pavel_guzhanov
2009-01-20 09:15
2010.01.03
Проблема с памятью


15-1257224234
MonoLife
2009-11-03 07:57
2010.01.03
Читабельность кода


2-1257856327
Nutz
2009-11-10 15:32
2010.01.03
Delphi + ZipForge (out of memory)


2-1257917183
Tornado
2009-11-11 08:26
2010.01.03
Как разрешить ввод только заглавных букв?


15-1257003526
stas
2009-10-31 18:38
2010.01.03
пустой exe определяется как троян




   Наверх