🚀 go-pugleaf

Finally, here is the Server as a service.
This version does not work.
I suspect the inner loop in ServiceExecute.


//---------------------------------------------------------------------------
#include "DateSvc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

TFileDateService *FileDateService;
//---------------------------------------------------------------------------

__fastcall TFileDateService::TFileDateService(TComponent* Owner)
 : TService(Owner)
{
}

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

void __stdcall ServiceController(unsigned CtrlCode)
{
 FileDateService->Controller(CtrlCode);
}

//---------------------------------------------------------------------------
// Service Execute - mainline of service

void __fastcall TFileDateService::ServiceExecute(TService *Sender)
{
  // Handle exceptions
  try
  {
    // Enable the socket
    ServerSocket->Active = true;
    ShowMessage("Socket activated");

    // handle requests until service terminated
    while( !Terminated )
    {
      // Not sure if this is right - QQQ
      ServiceThread->ProcessRequests(true);
    }

    // disable socket and exit
    ServerSocket->Active = false;
    ShowMessage("Socket de-activated");
  }
  catch(...)
  {
    // Not implemented yet - QQQ
    ShowMessage("d'oh");
  }
}

//---------------------------------------------------------------------------
// ServerSocketClientRead - called when data available for reading from client

void __fastcall TFileDateService::ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  // File name and age variables
  AnsiString FileName, FileResult;
  TDateTime FileDateTime;
  int Age;

  ShowMessage("ClientRead");

  // handle exceptions
  try
  {
    // copy filename from client
    FileName = Socket->ReceiveText();

    // Lookup file date
    Age = FileAge( FileName );
    if( Age == -1 )
    {
      // File Not found
      FileResult = FileName + " : File Not Found";
    }
    else
    {
      // File found - return date/time
      FileDateTime = FileDateToDateTime( Age );
      FileResult = FileName + " date: " + (AnsiString) FileDateTime;
    }

    // Now return the result to the client
    ServerSocket->Socket->Connections[0]->SendText( FileResult );
  }
  catch(...)
  {
    // Not implemented yet - QQQ
    ShowMessage("D'oh !");
  }
}
//---------------------------------------------------------------------------

void __fastcall TFileDateService::ServiceStart(TService *Sender,
      bool &Started)
{
   Started = true;
   ServiceRunning = true;
   ShowMessage("Date Svc Started");
}
//---------------------------------------------------------------------------
void __fastcall TFileDateService::ServiceStop(TService *Sender, bool &Stopped)
{
   Stopped = true;
   ServiceRunning = false;
   ShowMessage("Date Svc Stopped");
}
//---------------------------------------------------------------------------

void __fastcall TFileDateService::ServicePause(TService *Sender, bool &Paused)
{
   Paused = true;
   ServiceRunning = false;
   ShowMessage("Date Svc Paused");
}
//---------------------------------------------------------------------------

void __fastcall TFileDateService::ServiceContinue(TService *Sender,
      bool &Continued)
{
   Continued = true;
   ServiceRunning = true;
   ShowMessage("Date Svc Continued");
}
//---------------------------------------------------------------------------