NTSvc.ocx won't process shutdown event

the service IS the app. Basically it opens network connections to a server. Whenever the machine reboots, some connections are left open and these cause problems when the service starts again after the reboot.

Restarting the service is fine, since I can tidy up the open connections but shutdown is not. I don't get a chance to tidy up and the connection fails on restart.

I don't need to run timed tasks, this is built into the service.

Also, it is very difficult to predict the time of the next shutdown ;-)

Hi,
You should look in the MSDN for following function: RegisterServiceCtrlHandlerEx


Private Declare Function RegisterServiceCtrlHandlerEx Lib "ADVAPI32.dll" ( _
       ByVal lpServiceName As String, _
       ByRef lpHandlerProc As LPHANDLER_FUNCTION_EX, _
       lpContext As Any) As Long

You can use it anywhere in your poject.
BUT, the CallBack function should be used Public and in a module:
One of the events that CallBack function will receive is:
"SERVICE_CONTROL_SHUTDOWN - Notifies a service that the system is shutting down so the service can perform cleanup tasks."

I don't have time right now to test if is working in VB or not.

I hope this will help you a litle bit.
Teodor

Hi,
You should look in the MSDN for following function: RegisterServiceCtrlHandlerEx


Private Declare Function RegisterServiceCtrlHandlerEx Lib "ADVAPI32.dll" ( _
       ByVal lpServiceName As String, _
       ByRef lpHandlerProc As LPHANDLER_FUNCTION_EX, _
       lpContext As Any) As Long

You can use it anywhere in your poject.
BUT, the CallBack function should be used Public and in a module:
One of the events that CallBack function will receive is:
"SERVICE_CONTROL_SHUTDOWN - Notifies a service that the system is shutting down so the service can perform cleanup tasks."

I don't have time right now to test if is working in VB or not.

I hope this will help you a litle bit.
Teodor

Thanks Teodor but I believe that this is the function that is encapsulated in the OCX as the .ControlsAccepted property and the NTService1_Control event. I'm not convinced that the program will be able to register with the service handler to get this event.

BTW for those who want to take the code for a spin, the sample I used is available for download here: http://www.vbwire.com/advanced/howto/ntsrvocx.exe You can also download the compiled OCX from them: http://www.vbwire.com/advanced/howto/ntsrvocx.zip

Hi Bart,
Ntsvc.ocx has some bugs. Have a look and at these links:

NT Service (Updated!) : http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=6478&lngWId=1
NTService 1.1 : http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=15039&lngWId=1

I have to develop a similar project like yours: an exe that should act as a server for a few clients and it should run as a service.

Teodor

This NTSvc fires a shutdown event doesn't it? Isn't NTSsvc an old MS ole VB sample program?

Biffo, feel free to compile the sample for the ocx and see for yourself ;-)
It is supposed to handle the shutdown event but I can't seem to execute any code.

Well hell, if I am gonna recompile NTSvc I could easily fix the problem since to my understanding the problem is that it is missing this in CNtSvcCtrl::OnHandler:

case SERVICE_CONTROL_SHUTDOWN: // 5
  pService->FireControl(svcCtrlShutdown);
  SetStatus (SERVICE_STOPPED);
  break;


Add that, compile and problem *should* be solved.

Thanks Biffo,

Very interesting suggestion. I inserted the code in the CNtSvcCtrl::OnHandler in NtsvcCtl.cpp but I got an "error C2065: 'svcCtrlShutdown' : undeclared identifier" when compiling.

My C++ is fairly poor so I'm not sure how to fix this. I really don't care to run any different code on shutdown as I would on service stop, so I have pasted the code from //1 into the //5 case like so:

case SERVICE_CONTROL_SHUTDOWN: // 5
  m_pThis->StopService();
  break;

In the hope that this will execute the NTService1_Stop handler in my VB code on shutdown. I will test with both that and the 1.1 release over the weekend.

Do you think that it is easy to fix the //5 case to fire a separate event as per the documentation? It would be nice for other people who use this code in future to have a properly functioning svcCtrlShutdown handler but I'm more interested in a working service for now.

I'm not having much luck using the recompiled version of ntsvc.ocx.

I've added the code to the shutdown case statement as above, and it compiles with 0 errors and 3 warnings:
MIDL2039 : interface does not conform to [oleautomation] attribute : [ Parameter 'Success' of Procedure 'Continue' ( Dispinterface '_DNtsvcEvents' ) ]
The same warning is displayed for procedures 'Pause' and 'Start'

When I try and incorporate the updated ocx in my setup script, it comes back with "Component 'NTSVC.ocx' or one of its dependencies not correctly registered: a file is missing or invalid"

Yet, in the dependency walker both files are showing the same dll's (mfc42, msvcrt, kernel32, user32, gdi32, advapi32 and oleauth32) and the new ocx will register correctly from regsvr32.

Is this related to the 1.1 project being set to German? Is it possible to modify the original MS distributed code? According to most related websites, the code was meant to be compiled in VC++ 4.0 and I'm on 6.0 SP5.

Any pointers on how to recompile and use the ocx?

The error "Component 'NTSVC.ocx' or one of its dependencies not correctly registered: a file is missing or invalid" also comes up when I run ntservice1 -install by hand, so it is independent of the install script.

mmm hmmm all expected.  Ok, you are using the quirky MSVS to comply with: do you get a working .ocx if compiled without any mods to the source? The undeclared identifier is no big deal with MSVS, I used to get those right from left, like when I was using _FUNCTION_ which VS didn't recognize <g> Will have to declare svcCtrlShutdown. When I get time I'll d/l the source and go over it instead of blindly commenting.

Try to compile the project that you'll found at this link:
NTService 1.1 : http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=15039&lngWId=1

Biffo, the 1.1 source that Teodor pointed me to compiles with or without the mod for shutdown, but neither OCX will work. I haven't been able to compile the original MS source, since I don't know how to open the project in VC++ 6.0 without a .dsw or .dsp project file.

Teodor, I tried to compile the second link you sent me, but it fails on the dependencies.

I'm sure that I'll have this fixed in no time if only I can compile a good OCX from source.

OK, then try this one:
http://www.teodorsportfolio.go.ro/for_bart.zip
You'll find have .dsw and .dsp files of the project and let us know if it woked or not.

Thanks Guys,

Your help has been outstanding.

After some minor error messages, the OCX compiled fine from Teodor's project with Biffo's source edit. It now processes the stop event on shutdown flawlessly.

Biffo, I've posted a question with your points here: http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20688829.html

It was a pleasure working with you both.

Bart...

Hi Bart,
Thank you for your appreciation.
Teodor

Hi Bart,

I am having the same problem as you were here with the NTSVC.OCX, it won't process my shutdown events either.  I don't have any way to re-compile this OCX as described here, is there any way you or someone else could please e-mail (paullong@cox.net) me the fixed version? or post it somewhere so that i can down load it.

Thank You!

Paul