🚀 go-pugleaf

Hi Mr. Lebeau!
  Thank You for Your reply, and as this is my first post in this New 
Year, I wish U every luck in 2007!!!


> It will not crash.  It will likely raise a suitable exception, which
> is normal behavior by design.  But that is NOT a crash.

I even thought of that at first, but I am used to Exception message to 
pop up when some Exception is thrown, instead I only got the Windows XP 
window message of request to send debug data to Microsof :(



> Get rid of the exception handler altogether.  

Ok I've done that now!
And my code is the following after Ur advices:

__fastcall TNodzServerMainForm::TNodzServerMainForm(TComponent* Owner)
         : TForm(Owner)
{
  NodzIdTCPServer->ThreadClass=__classid(TNodzClientThread);
}

void __fastcall 
TNodzServerMainForm::NodzIdTCPServerExecute(TIdPeerThread *AThread)
{

   TNodzClientThread *pNodzThread = 
reinterpret_cast<TNodzClientThread*>(AThread);
pNodzThread->Connection->ReadLn("�");
int command=pNodzThread->Connection->ReadInteger(false);
int datasize=pNodzThread->Connection->ReadInteger(false);
AnsiString Data = pNodzThread->Connection->ReadString(datasize);
TUpdateData(AThread,command,Data).Synchronize();
}

class TUpdateData : public TIdSync
{
     protected:
         CmdType command;
         AnsiString &Data;
         void __fastcall DoSynchronize()
         {
          TNodzClientThread* 
pNodzThread=reinterpret_cast<TNodzClientThread *>(this);
          switch(command)
          {
           case cmdStringCommand:
            if(Data=="Disconnect")
             pNodzThread->Connection->Disconnect();
            break;
           case cmdApplicationLog:
            pNodzThread->ClientLogTxt += Data;
            pNodzThread->ClientLogNeedUpdate=true;
            break;
           case cmdSCILog:
            pNodzThread->SCILogTxt += Data;
            pNodzThread->SCILogNeedUpdate=true;
            break;
           case cmdSPILog:
            pNodzThread->SPILogTxt += Data;
            pNodzThread->SPILogNeedUpdate=true;
            break;
           case cmdCPULog:
            pNodzThread->CPULogTxt += Data;
            pNodzThread->CPULogNeedUpdate=true;
            break;
          }

         }
     public:
         __fastcall TUpdateData(TIdThread* AThread,int CT,AnsiString &data)
             : TIdSync(AThread),command(CT),Data(data){}
};

class TNodzClientThread: public TIdPeerThread
{
  public:
   TNodzClientForm *NodzClientForm;
   TTabSheet       *pTabSheet;
   TRichEdit       *SPILog;
   TRichEdit       *SCILog;
   TRichEdit       *ClientLog;
   TRichEdit       *CPULog;

   AnsiString       SysCommandTxt;
   AnsiString       SCILogTxt;
   bool             SCILogNeedUpdate;
   AnsiString       SPILogTxt;
   bool             SPILogNeedUpdate;
   AnsiString       CPULogTxt;
   bool             CPULogNeedUpdate;
   AnsiString       ClientLogTxt;
   bool             ClientLogNeedUpdate;

   int              CommandType;
   int              LastUpdateTime;
   bool             NeedUpdate;
    __fastcall TNodzClientThread(bool ACreateSuspended);


};
//---------------------------------------------------------------------------

Well at first I did not use TUpdateData, but I have been getting Access 
violation Exceptions, so I moved the switch block inside the 
Synchronized class, but nothing has changed (( .. before, without 
deriving from TIdPeerThread all worked well (before I used to allocate 
my class data in a thread safe class, inside the OnConnect event handler 
and assigning it to the data member of TIdPeerThread)!! What am I 
mistaken with in the new code? I even tried to pass TNodzClientThread 
pointer to TUpdateData in its constructor, instead of reinterpreting 
this pointer inside TUpdateData method, but nothing changed ((

Thank U!
Stefano