PC Toledo

Código: Selecionar todos

10-31-2008 06:52 PM #8
 Re: Windows service.
On 31 Ott, 09:32, Salvino <salvino.po...@gmail.com> wrote:

Giuseppe Mastrangelo ha scritto:

> How create with xharbour an EXE as windows service.

> That can be install with /INSTALL parameter in windows services.

> Regards Giuseppe.

Try the code that I send in attachment.
In service.ch you must define the informations that will appear in
Windows Services applet.
The entry point of your application becomes the ExecuteService() that
you can put in a separate prg file.
Warning *not* work with the multi threading model.

Sorry, but I can not send the zipped archive

**********************service.ch**********************
#define SZSERVICENAME "FirstxHarbourService"
#define SZVERSION "1.0"
#define SZSERVICEDISPLAYNAME "My first xHarbour Service"
#define SZAPPNAME "service"
#define SZDEPENDENCIES ""

*******Service.prg**************

// A skeleton for writing a NT service for xHarbour compiler
// Author : Salvino Porto
// EMail  : salvino.po...@gmail.com
// This file is derived from service.c by Craig Link - Microsoft Developer Support

//  FUNCTION: Main
//
//  PURPOSE: entrypoint for service
//
//  PARAMETERS:
//    cParameter - command line argument
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:

Function Main(cParameter)

   if cParameter == NIL
     cParameter:=""
   end
   if left(cParameter,1) != "-"
     cParameter:=""
   else
     cParameter:=Upper(Substr(cParameter,2))
   endif
   Do Case
     Case cParameter == "INSTALL"
       CmdInstallService()
     Case cParameter== "REMOVE"
       CmdRemoveService()
     Case cParameter == "HELP"
       CmdHelp()
     Case cParameter == "VERSION"
       CmdVersion()
     OtherWise
       ServiceDispatch()
   End Case

Return NIL

//  FUNCTION: ExecuteService()
//
//  PURPOSE: The main function of service action
//
//  PARAMETERS:
//    none
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:

Function ExecuteService()
   do while IsServiceRunning()
     Tone( 800, 1 )
     SecondsSleep( 4 )
   enddo
Return NIL

#pragma BEGINDUMP

#include <windows.h>
#include <tchar.h>
#include <hbapi.h>
#include <hbvm.h>

#include "service.ch"

// internal variables
SERVICE_STATUS          ssStatus;       // current statusof the service
SERVICE_STATUS_HANDLE   sshStatusHandle;
DWORD                   dwErr = 0;
TCHAR                   szErr[256];

HANDLE  hServerStopEvent = NULL;
static PHB_DYNS s_pDynExecuteService;

// internal function prototypes
VOID WINAPI service_ctrl(DWORD dwCtrlCode);
VOID WINAPI service_main(void);
void ServiceStop(void);
void ServiceStart(void);
void ServiceExecutionThread(void);
BOOL ReportStatusToSCMgr(DWORD , DWORD , DWORD );
VOID AddToMessageLog(LPTSTR);
LPTSTR GetLastErrorText( LPTSTR , DWORD );

//  FUNCTION: IsServiceRunning
//
//  PURPOSE: Notify to xHarbour code if service is running
//
//  PARAMETERS:
//    none
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:
HB_FUNC ( ISSERVICERUNNING )
{
   hb_retl(ssStatus.dwCurrentState == SERVICE_RUNNING);

}

//  FUNCTION: ServiceDispatch
//
//  PURPOSE: entrypoint for C code
//
//  PARAMETERS:
//    none
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:
HB_FUNC_STATIC ( SERVICEDISPATCH )
{

     SERVICE_TABLE_ENTRY dispatchTable[] =
     {
         { TEXT(SZSERVICENAME), (LPSERVICE_MAIN_FUNCTION)service_main },
         { NULL, NULL }
     };
     if (!StartServiceCtrlDispatcher(dispatchTable))
         AddToMessageLog(TEXT("StartServiceCtrlDispatcher failed."));

}

//  FUNCTION: service_main
//
//  PURPOSE: To perform actual initialization of the service
//
//  PARAMETERS:
//    dwArgc   - number of command line arguments
//    lpszArgv - array of command line arguments
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:
//    This routine performs the service initialization and then calls
//    the user defined ServiceStart() routine to perform majority
//    of the work.

void WINAPI service_main(void)
{
     // register our service control handler:
     sshStatusHandle = RegisterServiceCtrlHandler( TEXT(SZSERVICENAME),
service_ctrl);

     if (!sshStatusHandle)
       return;

     // SERVICE_STATUS members that don't change in example
     ssStatus.dwServiceType = SERVICE_WIN32_OWN_PROCESS;
     ssStatus.dwServiceSpecificExitCode = 0;

     // report the status to the service control manager.
     if (ReportStatusToSCMgr(
         (DWORD)SERVICE_START_PENDING, // service state
         NO_ERROR,              // exit code
         (DWORD)3000))                 // wait hint

       // Start up the service
         ServiceStart();

     // try to report the stopped status to the service control manager.
     if (sshStatusHandle)
         ReportStatusToSCMgr((DWORD)SERVICE_STOPPED, dwErr, (DWORD)0);

     return;

}  // service_main

//  FUNCTION: service_ctrl
//
//  PURPOSE: This function is called by the SCM whenever
//           ControlService() is called on this service.
//
//  PARAMETERS:
//    dwCtrlCode - type of control requested
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:

VOID WINAPI service_ctrl(DWORD dwCtrlCode)
{
     // Handle the requested control code.
     switch(dwCtrlCode)
     {
         // Stop the service.
         case SERVICE_CONTROL_STOP:
             ssStatus.dwCurrentState = SERVICE_STOP_PENDING;
             ServiceStop();
             break;

         // Update the service status.
         case SERVICE_CONTROL_INTERROGATE:
             break;

         // invalid control code
         default:
             break;
     }
     ReportStatusToSCMgr(ssStatus.dwCurrentState, NO_ERROR, (DWORD)0);

}  // service_ctrl

//  FUNCTION: ServiceStart
//
//  PURPOSE: Actual code of the service that does the work.
//
//  PARAMETERS:
//    dwArgc   - number of command line arguments
//    lpszArgv - array of command line arguments
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:
//    The service stops when hServerStopEvent is signalled
void ServiceStart (void)
{
    DWORD idThread;

    // Service initialization

    // report the status to the service control manager.
    if (!ReportStatusToSCMgr(SERVICE_START_PENDING, NO_ERROR, 3000))
        return;

    // create the event object. The control handler function signals
    // this event when it receives the "stop" control code.
    if((hServerStopEvent = CreateEvent(NULL, TRUE, FALSE, NULL)) == NULL)
        return;

    // report the status to the service control manager.
    if (!ReportStatusToSCMgr(SERVICE_START_PENDING, NO_ERROR, 3000))
        goto cleanup;

    // report the status to the service control manager.
    if (!ReportStatusToSCMgr(SERVICE_START_PENDING, NO_ERROR, 3000))
        goto cleanup;

    // create the working thread
    if ( CreateThread(NULL, 0,
(LPTHREAD_START_ROUTINE)ServiceExecutionThread, 0, 0, &idThread)==NULL)
        goto cleanup;
    // report the status to the service control manager.
    if (!ReportStatusToSCMgr(SERVICE_RUNNING, NO_ERROR, 3000))
        goto cleanup;

    // End of initialization

    _tprintf(TEXT("Init %s ok.\n"), TEXT(SZSERVICEDISPLAYNAME));

    // Service is now running, perform work until shutdown
    WaitForSingleObject(hServerStopEvent,INFINITE);
    CloseHandle(hServerStopEvent);

  cleanup:

    if (hServerStopEvent)
        CloseHandle(hServerStopEvent);

}

//
//  FUNCTION: ServiceStop
//
//  PURPOSE: Stops the service
//
//  PARAMETERS:
//    none
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:
//    If a ServiceStop procedure is going to
//    take longer than 3 seconds to execute,
//    it should spawn a thread to execute the
//    stop code, and return.  Otherwise, the
//    ServiceControlManager will believe that
//    the service has stopped responding.
//
void ServiceStop()
{
    if ( hServerStopEvent )
        SetEvent(hServerStopEvent);

}

//  FUNCTION: ServiceExecutionThread
//
//  PURPOSE: Invoke the xHarbour ExecuteService procedure
//
//  PARAMETERS:
//    none
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:

void ServiceExecutionThread(void)
{
   s_pDynExecuteService = hb_dynsymGet( "ExecuteService" );

      if( s_pDynExecuteService != NULL )
      {
         hb_vmPushSymbol( s_pDynExecuteService->pSymbol );
         hb_vmPushNil();
         hb_vmDo( 0 );
      }
   return;

}

//  FUNCTION: ReportStatusToSCMgr()
//
//  PURPOSE: Sets the current status of the service and
//           reports it to the Service Control Manager
//
//  PARAMETERS:
//    dwCurrentState - the state of the service
//    dwWin32ExitCode - error code to report
//    dwWaitHint - worst case estimate to next checkpoint
//
//  RETURN VALUE:
//    TRUE  - success
//    FALSE - failure
//
//  COMMENTS:

BOOL ReportStatusToSCMgr(DWORD dwCurrentState,
                          DWORD dwWin32ExitCode,
                          DWORD dwWaitHint)
{
     static DWORD dwCheckPoint = 1;
     BOOL fResult;

     if (dwCurrentState == SERVICE_START_PENDING)
         ssStatus.dwControlsAccepted = 0;
     else
         ssStatus.dwControlsAccepted = SERVICE_ACCEPT_STOP;

     ssStatus.dwCurrentState = dwCurrentState;
     ssStatus.dwWin32ExitCode = dwWin32ExitCode;
     ssStatus.dwWaitHint = dwWaitHint;

     if ( ( dwCurrentState == SERVICE_RUNNING ) ||
          ( dwCurrentState == SERVICE_STOPPED ) )
         ssStatus.dwCheckPoint = 0;
     else
         ssStatus.dwCheckPoint = dwCheckPoint++;

     // Report the status of the service to the service control manager.
     //
     fResult = SetServiceStatus( sshStatusHandle, &ssStatus);
     if (!fResult)
       AddToMessageLog(TEXT("SetServiceStatus"));

     return fResult;

}  // ReportStatusToSCMg

//  FUNCTION: AddToMessageLog(LPTSTR lpszMsg)
//
//  PURPOSE: Allows any thread to log an error message
//
//  PARAMETERS:
//    lpszMsg - text for message
//
//  RETURN VALUE:
//    none
//
//  COMMENTS:

VOID AddToMessageLog(LPTSTR lpszMsg)
{
     TCHAR   szMsg[256];
     HANDLE  hEventSource;
     LPTSTR  lpszStrings[2];

     dwErr = GetLastError();

Código: Selecionar todos

// A skeleton for writing a NT service for xHarbour compiler
// Author : Salvino Porto
// EMail : salvino.po...@gmail.com
// This file is derived from service.c by Craig Link - Microsoft Developer Support

// FUNCTION: Main
//
// PURPOSE: entrypoint for service
//
// PARAMETERS:
//  cParameter - command line argument
//
// RETURN VALUE:
//  none
//
// COMMENTS:

Function Main(cParameter)

   if cParameter == NIL
    cParameter:=""
   end

   if left(cParameter,1) != "-"
    cParameter:=""
   else
    cParameter:=Upper(Substr(cParameter,2))
   endif
   
   Do Case
    Case cParameter == "INSTALL"
     CmdInstallService()
    Case cParameter== "REMOVE"
     CmdRemoveService()
    Case cParameter == "HELP"
     CmdHelp()
    Case cParameter == "VERSION"
     CmdVersion()
    OtherWise
     ServiceDispatch()
   End Case

   ExecuteService()
   
   // parar o serviço em algum ponto
   
   Return NIL

//--------------------------------------------------------------------------------------------------

// FUNCTION: ExecuteService()
//
// PURPOSE: The main function of service action
//
// PARAMETERS:
//  none
//
// RETURN VALUE:
//  none
//
// COMMENTS:

#include "fileio.ch"

Function ExecuteService()

 LOCAL nHandle, cString, nTimes := 0
 
 do while IsServiceRunning() .And. nTimes <= 5
    cString := Dtos(Date()) + '-' Time()
    //
    nHandle := FOPEN( StrTran( cString, ":","" ) + ".Txt", FO_READWRITE + FO_SHARED )
    
    IF FERROR() == 0
       FWrite( nHandle, "Data e hora atual do sistema: " + cString )
       FClose( nHandle )
       nTimes++
    ENDIF
  
    SecondsSleep( 60 )  // Aguarda um minuto e volta
 enddo
 
Return NIL

//--------------------------------------------------------------------------------------------------

Código: Selecionar todos

**********************service.ch**********************
#define SZSERVICENAME "FirstxHarbourService"
#define SZVERSION "1.0"
#define SZSERVICEDISPLAYNAME "My first xHarbour Service"
#define SZAPPNAME "service"
#define SZDEPENDENCIES ""

Código: Selecionar todos

*******Service.prg**************
Function Main(cParameter)

 if cParameter == NIL
  cParameter:=""
 end

 if left(cParameter,1) != "-"
  cParameter:=""
 else
  cParameter:=Upper(Substr(cParameter,2))
 endif
 
 Do Case
  Case cParameter == "INSTALL"
  CmdInstallService()
  Case cParameter== "REMOVE"
  CmdRemoveService()
  Case cParameter == "HELP"
  CmdHelp()
  Case cParameter == "VERSION"
  CmdVersion()
  OtherWise
  ServiceDispatch()
 End Case

 ExecuteService()
 
 // parar o serviço em algum ponto
 
 Return NIL

#include "fileio.ch"

Function ExecuteService()

 LOCAL nHandle, cString, nTimes := 0
 
 do while IsServiceRunning() .And. nTimes <= 5
  cString := Dtos(Date()) + '-' + Time()
  //
  nHandle := FOPEN( StrTran( cString, ":","" ) + ".Txt", FO_READWRITE + FO_SHARED )
  

tar2p() //Esta é a minha função


  IF FERROR() == 0
   FWrite( nHandle, "Data e hora atual do sistema: " + cString )
   FClose( nHandle )
   nTimes++
  ENDIF
 
  SecondsSleep( 60 ) // Aguarda um minuto e volta
 enddo
 
Return NIL
//--------------------------------------------------------------------------------------------------


#pragma BEGINDUMP

...


function tar2p		 

...