<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Will try that :)<br>
<div class="moz-signature">
<div class="Section1"><span style="color: rgb(255, 153, 0);"
lang="EN-NZ"><o:p></o:p></span> <br>
<p class="MsoNormal"><span style="" lang="EN-NZ"><o:p> </o:p></span></p>
</div>
</div>
<br>
<br>
Dave O'Brien wrote:
<blockquote
cite="mid:B7B55593E7459A4781B761838D99059C08D9E2@tsl-web.ICCS.CO.NZ"
type="cite">
<meta http-equiv="Content-Type" content="text/html; ">
<meta name="Generator" content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
pre
{mso-style-priority:99;
mso-style-link:"HTML Preformatted Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";
color:black;}
span.HTMLPreformattedChar
{mso-style-name:"HTML Preformatted Char";
mso-style-priority:99;
mso-style-link:"HTML Preformatted";
font-family:Consolas;
color:black;}
span.EmailStyle20
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
<div class="Section1">
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);">Whenever
I have tried to create a service I’ve always started
with similar problems. I seems to me that you need to use the Start,
Stop and
Execute methods, and assign Started and Stopped. So maybe move your
thread
creation code into the Execute method and loop while waiting for it to
terminate?<o:p></o:p></span></p>
<p class="MsoNormal"><span
style="font-size: 11pt; font-family: "Calibri","sans-serif"; color: rgb(31, 73, 125);"><o:p> </o:p></span></p>
<div>
<div
style="border-style: solid none none; border-color: rgb(181, 196, 223) -moz-use-text-color -moz-use-text-color; border-width: 1pt medium medium; padding: 3pt 0cm 0cm;">
<p class="MsoNormal"><b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US">From:</span></b><span
style="font-size: 10pt; font-family: "Tahoma","sans-serif"; color: windowtext;"
lang="EN-US">
<a class="moz-txt-link-abbreviated" href="mailto:delphi-bounces@delphi.org.nz">delphi-bounces@delphi.org.nz</a> [<a class="moz-txt-link-freetext" href="mailto:delphi-bounces@delphi.org.nz">mailto:delphi-bounces@delphi.org.nz</a>] <b>On
Behalf
Of </b>Robert martin<br>
<b>Sent:</b> Friday, 9 October 2009 11:00 a.m.<br>
<b>To:</b> NZ Borland Developers Group - Delphi List<br>
<b>Subject:</b> Re: [DUG] basic Service question<o:p></o:p></span></p>
</div>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
<p class="MsoNormal">Yeah :)<br>
<br>
<br>
My code isn't using the onExecute I am actually starting and stopping
my own
Tthread on the onStart event. However The actual (current) problem I
am
having is that even with no code whatsoever I cant register my service
(which I
need to do at some point and apparently need for debugging).<br>
<br>
Cheers<o:p></o:p></p>
<div>
<div>
<p class="MsoNormal" style=""><br>
<br>
<o:p></o:p></p>
</div>
</div>
<p class="MsoNormal"><br>
<br>
Dave O'Brien wrote: <o:p></o:p></p>
<pre>Something like this?<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>var<o:p></o:p></pre>
<pre> Stopped: Boolean = false ;<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>procedure TsvcSomeService.ServiceExecute(Sender: TService);<o:p></o:p></pre>
<pre>var<o:p></o:p></pre>
<pre> t: TDateTime ;<o:p></o:p></pre>
<pre>begin<o:p></o:p></pre>
<pre> try<o:p></o:p></pre>
<pre> t := now - 720 ;<o:p></o:p></pre>
<pre> While (not terminated) and (not stopped) do<o:p></o:p></pre>
<pre> begin<o:p></o:p></pre>
<pre> if now > t + (1/1440) then // Run once a minute<o:p></o:p></pre>
<pre> begin<o:p></o:p></pre>
<pre> // Do something<o:p></o:p></pre>
<pre> t := now ;<o:p></o:p></pre>
<pre> End ;<o:p></o:p></pre>
<pre> Sleep(1000) ; // Sleep to allow other services time...<o:p></o:p></pre>
<pre> end ;<o:p></o:p></pre>
<pre> except<o:p></o:p></pre>
<pre> end ;<o:p></o:p></pre>
<pre>end;<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>procedure TsvcSomeService.ServiceStart(Sender: TService;<o:p></o:p></pre>
<pre> var Started: Boolean);<o:p></o:p></pre>
<pre>begin<o:p></o:p></pre>
<pre> Started := True ;<o:p></o:p></pre>
<pre> Stopped := False ;<o:p></o:p></pre>
<pre>end;<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>procedure TsvcSomeService.ServiceStop(Sender: TService;<o:p></o:p></pre>
<pre> var Stopped: Boolean);<o:p></o:p></pre>
<pre>begin<o:p></o:p></pre>
<pre> Stopped := True ;<o:p></o:p></pre>
<pre>end;<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>procedure TsvcSomeService.ServiceCreate(Sender: TObject);<o:p></o:p></pre>
<pre>begin<o:p></o:p></pre>
<pre> // Create some stuff<o:p></o:p></pre>
<pre>end;<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>procedure TsvcSomeService.ServiceShutdown(Sender: TService);<o:p></o:p></pre>
<pre>begin<o:p></o:p></pre>
<pre> Stopped := True ;<o:p></o:p></pre>
<pre>end;<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>-----Original Message-----<o:p></o:p></pre>
<pre>From: <a moz-do-not-send="true"
href="mailto:delphi-bounces@delphi.org.nz">delphi-bounces@delphi.org.nz</a> [<a
moz-do-not-send="true" href="mailto:delphi-bounces@delphi.org.nz">mailto:delphi-bounces@delphi.org.nz</a>]<o:p></o:p></pre>
<pre>On Behalf Of Robert martin<o:p></o:p></pre>
<pre>Sent: Friday, 9 October 2009 10:34 a.m.<o:p></o:p></pre>
<pre>To: NZ Borland Developers Group - Delphi List<o:p></o:p></pre>
<pre>Subject: [DUG] basic Service question<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>Hi<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>I am trying to create a service 9never done this before) and following<o:p></o:p></pre>
<pre>some old instructions I found on the web. The suggest creating a<o:p></o:p></pre>
<pre>service then installing it with service.exe /install then adding code<o:p></o:p></pre>
<pre>and debuggin. I am failing at the most basic point. I am trying to<o:p></o:p></pre>
<pre>install on Vista from cmd line. It just comes up with a 'program is not<o:p></o:p></pre>
<pre>responding message.<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>Any help would be appreciated :)<o:p></o:p></pre>
<pre>Rob<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>_______________________________________________<o:p></o:p></pre>
<pre>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre>
<pre>Post: <a moz-do-not-send="true"
href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></pre>
<pre>Admin: <a moz-do-not-send="true"
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre>
<pre>Unsubscribe: send an email to <a moz-do-not-send="true"
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject:<o:p></o:p></pre>
<pre>unsubscribe<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>No virus found in this incoming message.<o:p></o:p></pre>
<pre>Checked by AVG - <a moz-do-not-send="true"
href="http://www.avg.com">www.avg.com</a> <o:p></o:p></pre>
<pre>Version: 8.5.421 / Virus Database: 270.14.7/2422 - Release Date:<o:p></o:p></pre>
<pre>10/08/09 06:39:00<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre>_______________________________________________<o:p></o:p></pre>
<pre>NZ Borland Developers Group - Delphi mailing list<o:p></o:p></pre>
<pre>Post: <a moz-do-not-send="true"
href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><o:p></o:p></pre>
<pre>Admin: <a moz-do-not-send="true"
href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a><o:p></o:p></pre>
<pre>Unsubscribe: send an email to <a moz-do-not-send="true"
href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe<o:p></o:p></pre>
<pre><o:p> </o:p></pre>
<pre> <o:p></o:p></pre>
<p><span
style="font-size: 10pt; font-family: "Arial","sans-serif"; color: windowtext;">No
virus found in this incoming message.<br>
Checked by AVG - <a class="moz-txt-link-abbreviated" href="http://www.avg.com">www.avg.com</a><br>
Version: 8.5.421 / Virus Database: 270.14.7/2422 - Release Date:
10/08/09
06:39:00</span><span style="color: windowtext;"><o:p></o:p></span></p>
</div>
<pre wrap="">
<hr size="4" width="90%">
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: <a class="moz-txt-link-abbreviated" href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a>
Admin: <a class="moz-txt-link-freetext" href="http://delphi.org.nz/mailman/listinfo/delphi">http://delphi.org.nz/mailman/listinfo/delphi</a>
Unsubscribe: send an email to <a class="moz-txt-link-abbreviated" href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe</pre>
</blockquote>
</body>
</html>