🚀 go-pugleaf

OK - 

In the header I have this:



//---------------------------------------------------------------------------
#ifndef svc1H
#define svc1H
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <StdCtrls.hpp>
#include <SvcMgr.hpp>
#include <vcl.h>
#include <stdio.h>
//---------------------------------------------------------------------------
class TService1 : public TService
{
__published:    // IDE-managed Components
   void __fastcall ServiceStart(TService *Sender, bool &Started);
   void __fastcall ServiceContinue(TService *Sender, bool &Continued);
   void __fastcall ServicePause(TService *Sender, bool &Paused);
   void __fastcall ServiceStop(TService *Sender, bool &Stopped);
private:        // User declarations
public:         // User declarations
	__fastcall TService1(TComponent* Owner);
	TServiceController __fastcall GetServiceController(void);

	friend void __stdcall ServiceController(unsigned CtrlCode);
};
//---------------------------------------------------------------------------
class TConvThread : public TThread

{
private:
protected:
      void __fastcall Execute();
public:
        __fastcall TConvThread(bool CreateSuspended);

        TStringList* inputfile;
        String input_file;
        String output_file;
};
//---------------------------------------------------------------------------
extern PACKAGE TService1 *Service1;
//---------------------------------------------------------------------------
#endif


and in the thread constructor I have:

//---------------------------------------------------------------------------
__fastcall TConvThread::TConvThread(bool CreateSuspended)

        : TThread(CreateSuspended)
{
   // set up the filenames - hardcoded

   input_file ="C:\auth_user_file.txt";
   output_file = "H:\\Borland\\CBuilder5\\Projects\\VPC_CONV\\onlineusers.txt";

}

and the execute function:

void __fastcall TConvThread::Execute()

{


  inputfile = new TStringList();

  while (!Terminated)
  {


   // here we do the work
   // read the inputfile to a stringlist
   // process each record creating a single string
   // result which is saved



   FILE* out;
   String Result, temp, parse;
   char* p;

   inputfile->Sorted = true;
   Result = "";

   inputfile->LoadFromFile(input_file); //  crashes here

/*******

parsing goes here

write file back etc


********/





   // and clean up the string list
   delete inputfile;



HTH - thanx


    Beep();
    Sleep(6000);   // cycle every ten minutes
  }

}














-- 
Vic Baron
I haven't lost my mind, it's backed up on disk somewhere!