关于使用Service Application生成的服务程序的问题。请朋友们进来看看，谢谢

[aiyu33]

我的操作系统是xp，我做了一个很简单的服务程序。（代码如下）
服务注册后，服务能正常启动，但每当我想停止或暂停服务时却总停不下来，
报如下的错误。
在本地计算机无法中止本服务程序。
服务并未返回错误，这可能是一个windos内部错误或服务内部错误。如果问题持续存在，请与您的系统管理员联系。

[aiyu33]

TTimerThread * pTimerThread = NULL;
bool TerminateFlag = true;
//---------------------------------------------------------------------------
__fastcall TTransmitDataService::TTransmitDataService(TComponent* Owner)
: TService(Owner)
{
}

TServiceController __fastcall TTransmitDataService::GetServiceController(void)
{
return (TServiceController) ServiceController;
}

void __stdcall ServiceController(unsigned CtrlCode)
{
TransmitDataService->Controller(CtrlCode);
}
//---------------------------------------------------------------------------
void __fastcall TTransmitDataService::ServiceStart(TService *Sender,
bool &Started)
{
//线程只是读循环读时间，做一个定时器功能而已
pTimerThread = new TTimerThread(false);
Started = true;
TerminateFlag = true;
}
//---------------------------------------------------------------------------
void __fastcall TTransmitDataService::ServicePause(TService *Sender,
bool &Paused)
{
pTimerThread->Suspend();
Paused = true;
TerminateFlag = false;
}
//---------------------------------------------------------------------------
void __fastcall TTransmitDataService::ServiceContinue(TService *Sender,
bool &Continued)
{
pTimerThread->Resume();
Continued = true;
TerminateFlag = true;
}
//---------------------------------------------------------------------------
void __fastcall TTransmitDataService::ServiceStop(TService *Sender,
bool &Stopped)
{
pTimerThread->Terminate();
delete pTimerThread;
pTimerThread = NULL;
Stopped = true;
TerminateFlag = false;

}
//---------------------------------------------------------------------------
void __fastcall TTransmitDataService::ServiceExecute(TService *Sender)
{
while(TerminateFlag)
{
Sleep(6000);
}
}
//------

[aiyu33]

多谢大家关注这个问题了？

[zihan]

请问你的线程是怎么运行的?是不是里面有什么阻塞模式的东西,导致就算你调用了
pTimerThread->Terminate();
它也不会立即停止线程,你试试用
TerminateThread();或者修改你的线程.

[childman]

赞同楼上的，可以的话贴出线程代码。

[aiyu33]

我将线程程序屏蔽掉还是有这个问题，难道是我创建服务程序时的问题？

[aiyu33]

我是使用-install命令来安装的

[zihan]

while(TerminateFlag)
{
Sleep(6000);
}
刚刚没有看到.你这个是干什么的?好像就是一个死循环了,sleep是阻塞的,你又没有释放cpu资源,当然其他的就不能够执行TerminateFlag就永远为真.

[zihan]

建议你删除这段代码.

[aiyu33]

那段代码我是想让服务主线程一直跑下去不结束退出，但怕太占用系统资源才使用sleep函数

[aiyu33]

那有什么好方法让服务一直跑下去不结束等待另外的命令？

[seeafter]

用信号灯