Есть код перезапускающий службу и занимающий время.


Во время перезапука я хочу в отдельном потоке вывести доп.окно с компонентом Animate и индикатором на нем.
Опыта в этом маловато. Начинаю так:


Теперь функция потока:


Как правильно оформить ThreadFunc? Чтобы во время перезапука службы отобразилось окно с Animate, а по окончании перезапука оно закрылось? 

Без потока индикатор у Animate замирает:




Это сообщение отредактировал(а) Лена - 11.10.2007, 12:51

Через CreateThread лучше не делать, CRT его не инициализирует правильно (нельзя будет использовать ф-яя CRT). Можно либо взять TThread из VCL (в главном меню New->ThreadUnit, будет создан шаблон - куда можно писать свой код), либо делать это через _beginthread. Если чисто по логике, то лучше вынести в поток перезапуск службы, с формами и компонентами всё-же лучше работать из основного потока.

Тогда может так упростить?
Form4->Show();
ThreadFunc();





Это сообщение отредактировал(а) Лена - 11.10.2007, 13:37

Что-то вроде этого, только вместо вызова ф-ии нужно запустить поток. 

Так?

и где тут отдельный поток? ты просто вынесла кусок кода в процедуру.

примерная схема действий:
File - New - Other... Thread Object, потом помещаешь свои S.Stop,S.Start в метод Execute.
ULenaThread.h

ULenaThread.cpp


а в основном коде:


ps. покажи на всякий случай заголовочный файл от класса управляющего сервисом(S).
pss. кстати, тема пережевывалась уже раз сто - в поиске, думаю, все забито решениями этой проблемы... 

Для создания потока в главном меню нужно выбрать File->New->Other
в появившемся окне выбрать Thread Object
потом появится окошко в котором нужно указать имя объекта (по которому к потоку можно обращаться в программе)
и имя потока (можно не указывать) в системе.
Builder создаст шаблон модуля
unit1.h


unit1.cpp
------------------------------------------------------------------
В метод Execute нужно добавить свой код

В конструктор нужно добавить
FreeOnTerminate = true;
потом запускать поток
new ServiceRestartThread(false);
после того как поток закончит работу он будет удален автоматически.

Lazin, 
а вот это, насколько я понял, Лене не нужно, так как ей надо "приостановить" программу на время работы потока и четко отловить его завершение...

dumb и Lazin, спасибо за помощь. Я пол года назад делала поток, блин за это время все забыла.  

Как все таки правльно проверить условие завершения? 

while (!thr->Terminated()) //?
[C++ Error] main.cpp(1701): E2109 Not an allowed type

ой. это ж пропертя... while (!thr->Terminated)

[C++ Error] main.cpp(1701): E2247 'TThread::Terminated' is not accessible

Все таки вроде должно быть while (!thr->Terminated()) , что ему не нравиться?

Может проверку надо как-то поставить в метод Execute() ?

этот Terminated крайне ограниченным оказался... 

Может использовать событие:



Добавлено через 2 минуты и 44 секунды
Млин, не знал что есть свойство TThread::Handle, тогда так как dumb написал конечно лучше.

Ух, спасибо вроде ожило.  

Я вот такой вариант пробовала:
bool potok=true; //глобальная


В коде:


Сначала показалось, что работает, а один раз выскочило исключение вызов чисто виртуальной функции.  

Сейчас почитаю, о параметрах WaitForSingleObject, а то не понятно.  

У меня служба не устнаовлена. Для проверки кода от dumb, я не много меняю метод:


Вижу что мой Animate работает. Правильно ли я имитирую перезапукс службы?

Может для надежности сделать два потока? Один останавливает, другой запускает...

Это сообщение отредактировал(а) Лена - 11.10.2007, 16:30

распространенная ошибка при неверной работе с потоками.
как это было: в Execute переменной potok присвоилось false и сразу после этого выполнение треда было приостановлено(менеджером потоков) и управление пришло в основной поток, там ты поймала изменение potok, вышла из цикла и грохнула объект. через какое-то время(это все в течение миллисекунд происходит, не подумай, что долго) управление вернулось в твой поток, происходит выход из метода Execute и далее(в TThread) должны происходить завершающие действия с объектом потока(выставление разных свойств, вызов метода OnTerminate, если назначен, итд). но объект уже удален. опаньки.

  довольно часто встречающееся явление - запукс службы  

Добавлено через 1 минуту и 41 секунду
хм. а каким образом это может прибавить надежности? не надо. вот паузу между стоп, старт можно какую-нибудь небольшую(пару секунд) воткнуть.

Поставила службу. Обнаружилось не приятность, если строки:
 S.Stop();
 S.Start();
В методе Execute, то служба останавливается и не стратует.
А если эти строки поставить в основной код, то все нормально и останавливается и запускается.

Добавлено @ 16:42


Вот так?
void __fastcall SOSThread::Execute()
{
  S.Stop();
  Sleep(1000);
  S.Start();
}


Это сообщение отредактировал(а) Лена - 11.10.2007, 16:51

реализация этого sos95gw полностью от вендора или таки "самописная"?

Не знаю.   

После добавления sleep заработало.   

ну вот и славненько. можно со спокойной совестью громогласно объявить по экстренной связи "все на перекур нах!" 

если от вендора, то все ок. а если еще сами "наворачивали" оболочку, то надо убедиться, что там нет никаких обращений к формам итд(VCL).