Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Вниз

Сервис после запуска сразу останавливается   Найти похожие ветки 

 
Russ   (2006-03-15 12:52) [0]

Подскажите пожалуйста, есть Service Application, основной код взят из работающего приложения но после запуска он сразу завершается.  как сделать чтобы этого не происходило?


 
Сергей М. ©   (2006-03-15 13:03) [1]


> после запуска


Как запускаешь-то ?


 
Сергей М. ©   (2006-03-15 14:07) [2]


> основной код взят из работающего приложения


Поди из GUI-приложения ?
И влуплен тот код был тобой безо всяких сомнений и переделок в обработчик одного из событий OnStart/OnStop/OnExecute ? Я угадал ?


 
Eraser ©   (2006-03-15 14:11) [3]


> Russ   (15.03.06 12:52)

в OnExecute объекта наследника TService должен выполняться код сервиса... чаще всего в цикле.

Что требуется от сервиса?


 
Eraser ©   (2006-03-15 14:13) [4]


> Russ   (15.03.06 12:52)

и ещё hint:
если Сергей М. ©   (15.03.06 14:07) [2] прав, то создавать, по крайней мере, главное окно надо так
SvcMgr.Application.CreateForm(TfmMain, fmMain);, а не
Forms.Application.CreateForm(TfmMain, fmMain);


 
Eraser ©   (2006-03-15 14:26) [5]

да и ещё! на сколько помню надо опеределить обработчики

constructor TMainService.CreateNew(AOwner: TComponent; Dummy: Integer);
begin
 inherited CreateNew(AOwner, Dummy);
 AllowPause := False;
 Interactive := True;
 DisplayName := SApplicationName;
 Name := SServiceName;
 OnStart := Start;
 OnStop := Stop;
end;

procedure TMainService.Start(Sender: TService; var Started: Boolean);
begin
 Started := True;
end;

procedure TMainService.Stop(Sender: TService; var Stopped: Boolean);
begin
 //PostMessage(fmMain.Handle, WM_QUIT, 0, 0);
 Stopped := True;
end;

и ещё! в этом случае OnExecute должен быть не определён!
хороший пример сервиса ищи в
C:\Program Files\Borland\Delphi7\Source\Vcl\ScktSrvr.dpr



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

Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.037 c
15-1142228476
Ega23
2006-03-13 08:41
2006.04.02
С Днём рождения! 13 марта


1-1141135536
Kacnep
2006-02-28 17:05
2006.04.02
Отследить запуск DLL


15-1141746878
Pazitron_Brain
2006-03-07 18:54
2006.04.02
В чем проблема?


2-1142601378
nap<>
2006-03-17 16:16
2006.04.02
Такой вопрос


11-1123414583
EVILDeath
2005-08-07 15:36
2006.04.02
Опять proxies =(





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский