RunAsService struggling
in [Visual Studio]
|
From: Schmidt on 11 Jun 2010 08:20 "Henning" <computer_hero(a)coldmail.com> schrieb im Newsbeitrag news:hut4se$lor$1(a)news.eternal-september.org... > Not really what I had in mind... Can only encourage you again, to not give up that fast on Sergeys code - it works well here, also in "Automatic-Mode". You can also take a look at my adapted version - which I use in my RPC-Demos. For that please download the RichClient-VB6-*Demo*- Package from www.thecommon.net/3.html (no need to download the Binaries). There's a subfolder in the Zip, called \RPC-Demos\. Below this Folder are additional ones... the two which are interesting for you are: \RPCServiceApp \RPCServiceControllerApp As said, the differences to Sergeys-Code are not that large (some renamed Constants IIRC) - and these Service- related modules are also "stripped of" to only the stuff which was really needed. What's additionally contained in my demo-code is an advanced "LogEvent"-Function for system-logging. So you have the whole, original skeleton - as well as a "specifically adapted version" which contains not that many lines of code anymore in the "NTService..."- Helpermodules. One thing I remember yet from my own "working in-phase": You should always doublecheck the naming (and content) of the different Keyword-Constants as ServiceName, ServiceExename etc. these need to match between the modules which are in the Controller-App - as well as in the real ServiceApp. Also ensure, that the internal ServiceExename-Constant is matching with the "realworld" ExeName. Olaf
From: C. Kevin Provance on 11 Jun 2010 12:31 "Henning" <computer_hero(a)coldmail.com> wrote in message news:hut4se$lor$1(a)news.eternal-september.org... : Not really what I had in mind...SKr3,774 SKr3,774 ? -- Customer Hatred Knows No Bounds at MSFT Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc Bawwk! Paulie want a dingleball, bawwk!
From: Helmut Meukel on 11 Jun 2010 14:46 "C. Kevin Provance" <*@*.*> schrieb im Newsbeitrag news:hutocs$293$1(a)news.eternal-september.org... > > "Henning" <computer_hero(a)coldmail.com> wrote in message > news:hut4se$lor$1(a)news.eternal-september.org... > : Not really what I had in mind...SKr3,774 > > SKr3,774 ? > Kevin, Henning is from Sweden and the price in Sweden is obviously 3,774 swedish crowns (Svenska Kronor). Helmut. BTW, I find it annoying to deal with three different currencies when traveling through skandinavia. All named crowns - danish, swedish, norvegian - but slightly different in value: 1 US-$ = 7.9481 SKr (SEK) 1 US-$ = 6.4893 NKr (NOK) 1 US-$ = 6.1619 DKr (DKK) Only the Finnish acted reasonably, they abandoned their (finnish) Mark to get the Euro. <g,d+r>
From: C. Kevin Provance on 11 Jun 2010 15:05 "Helmut Meukel" <NoSpam(a)NoProvider.invalid> wrote in message news:huu0b0$500$1(a)speranza.aioe.org... : Kevin, : : Henning is from Sweden and the price in Sweden : is obviously 3,774 swedish crowns (Svenska Kronor). That's why I asked. I had no idea what that series of numbers and letters meant. -- Customer Hatred Knows No Bounds at MSFT Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc Bawwk! Paulie want a dingleball, bawwk!
From: Henning on 11 Jun 2010 17:57 "Schmidt" <sss(a)online.de> skrev i meddelandet news:hut9j0$qsj$1(a)speranza.aioe.org... > > "Henning" <computer_hero(a)coldmail.com> schrieb im Newsbeitrag > news:hut4se$lor$1(a)news.eternal-september.org... > >> Not really what I had in mind... > > Can only encourage you again, to not give up that fast > on Sergeys code - it works well here, also in > "Automatic-Mode". > > You can also take a look at my adapted version - > which I use in my RPC-Demos. > > For that please download the RichClient-VB6-*Demo*- > Package from www.thecommon.net/3.html (no need to > download the Binaries). > > There's a subfolder in the Zip, called \RPC-Demos\. > Below this Folder are additional ones... the two which > are interesting for you are: > \RPCServiceApp > \RPCServiceControllerApp > > As said, the differences to Sergeys-Code are not that > large (some renamed Constants IIRC) - and these Service- > related modules are also "stripped of" to only the stuff > which was really needed. > What's additionally contained in my demo-code is an > advanced "LogEvent"-Function for system-logging. > > So you have the whole, original skeleton - as well > as a "specifically adapted version" which contains > not that many lines of code anymore in the "NTService..."- > Helpermodules. > > One thing I remember yet from my own "working in-phase": > > You should always doublecheck the naming (and content) > of the different Keyword-Constants as ServiceName, > ServiceExename etc. these need to match between the > modules which are in the Controller-App - as well as > in the real ServiceApp. Also ensure, that the internal > ServiceExename-Constant is matching with the > "realworld" ExeName. > > > Olaf > Got it running :) The app is checking a MySQL db for new alarms to send to a receiver. To always be able to break execution, alarm Id 0000 cleaned-up and did a dead-stop-end. Found it from the logbook, service has unexpectidly ended.. transl. from swedish. In the db was such a record entered by accident. Still don't know why it reverted from auto to manual, it only happened once. Yes, I have removed that code now when Start/Stop/Pause/Resume works ok..... It is amazingly simple code to make a VB6 standard exe running as a sevice, when some gene (Sergey) has coded it for you. Left is to include errorhandling everywhere, and from that keep the service running/restarting. Thx again, /Henning
First
|
Prev
|
Next
|
Last
Pages: 1 2 3 4 Prev: Implementing a togleable WordWrap feature for a textbox Next: Runtime and Extra ocxs |