🚀 go-pugleaf

Hiya,

thanks,
will follow that advice...

I appreciate your time and expertise Remy :-)


Q.


"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message news:4578d02b$1@newsgroups.borland.com...
>
> "Quentin David Jones" <quentin.jones@romteck.com.spamprotect> wrote in
> message news:4578bc9c$1@newsgroups.borland.com...
>> Finally, here is the Server as a service.
>> This version does not work.
>> I suspect the inner loop in ServiceExecute.
>
> Get rid of that event handler altogether.  Use the OnStart and
> OnStop/Shutdown events to activate/deactivate the server.
>
> And get rid of ShowMessage() as well.  You cannot use it in a service at
> all.  If you must popup a message box, then you have to use MessageBox()
> directly instead, so that you can specify the MB_SERVICE_NOTIFICATION flag.
> Otherwise, report messages to the NT Event Log instead.
>
> Try this code:
>
>    void __fastcall TFileDateService::ServiceStart(TService *Sender, bool
> &Started)
>    {
>        ServerSocket->Active = true;
>        LogMessage("Socket activated", EVENTLOG_INFORMATION_TYPE, 0, 0);
>        Started = true;
>    }
>
>    void __fastcall TFileDateService::ServiceStop(TService *Sender, bool
> &Stopped)
>    {
>        ServiceShutdown(Sender);
>        Stopped = true;
>    }
>
>    void __fastcall TFileDateService::ServicePause(TService *Sender, bool
> &Paused)
>    {
>        if( ServerSocket->Socket->ActiveConnections == 0 )
>        {
>            ServerSocket->Active = false;
>            LogMessage("Socket de-activated for Svc pause",
> EVENTLOG_INFORMATION_TYPE, 0, 0);
>            Paused = true;
>        }
>        else
>        {
>            ErrCode = 1; // use whatever you want
>            LogMessage("Cannot pause Svc while clients are connected to the
> Socket", EVENTLOG_WARNING_TYPE, 0, 0);
>            Paused = false;
>        }
>    }
>
>    void __fastcall TFileDateService::ServiceContinue(TService *Sender, bool
> &Continued)
>    {
>        if( !ServerSocket->Active )
>        {
>            ServerSocket->Active = true;
>            LogMessage("Socket re-activated for continue",
> EVENTLOG_INFORMATION_TYPE, 0, 0);
>        }
>        Continued = true;
>    }
>
>    void __fastcall TFileDateService::ServiceShutdown(TService *Sender)
>    {
>        if( ServerSocket->Active )
>        {
>            try
>            {
>                ServerSocket->Active = false;
>                LogMessage("Socket de-activated", EVENTLOG_INFORMATION_TYPE,
> 0, 0);
>            }
>            catch(const Exception &e)
>            {
>                ErrCode = 1; // use whatever you want
>                LogMessage("Socket not de-activated: " + e.Message,
> EVENTLOG_ERROR_TYPE, 0, 0);
>            }
>        }
>    }
>
>    void __fastcall TFileDateService::ServerSocketClientRead(TObject
> *Sender, TCustomWinSocket *Socket)
>    {
>        AnsiString FileName, FileResult;
>        TSearchRec sr;
>
>        // copy filename from client
>        FileName = Socket->ReceiveText();
>
>        // Lookup file date
>        if( FindFirst(FileName, faAnyFile, sr) == 0 )
>        {
>            // File found - return date/time
>            FindClose(sr);
>
>            SYSTEMTIME st = {0};
>            ::FileTimeToSystemTime(&sr.FindData.ftLastWriteTime, &st);
>
>            FileResult = FileName + " date: " +
> SystemTimeToDateTime(st).DateTimeString();
>        }
>        else
>        {
>            // File Not found
>            FileResult = FileName + " : File Not Found";
>        }
>
>        // Now return the result to the client
>        Socket->SendText(FileResult);
>    }
>
> Now, with that said, keep in mind that SendText() and ReceiveText() are very
> unreliable.  They can send/receive partial data, which you have to take into
> account properly to ensure that your communication is not corrupted.  Go to
> http://www.deja.com and search through the newsgroup archives.  This has
> been discussed in great detail many times before.
>
>
> Gambit
>
>