🚀 go-pugleaf

Hi All

I need to write an application using Indy's TIdTCPClient and TIdTCPServer. All I need is for the server to accept a connection and receive a text string, and the client to make a connection and send a text string out. Im having great difficulties with indefinate time-outs, exceptions etc.
My code is as follows:

In my TIdTCPServer->OnExecute:
 char * Buffer = NULL;
 TMemoryStream * pStrm = NULL;

  try
  {
   AThread->Connection->ReadFromStack();
   pStrm = AThread->Connection->InputBuffer;
   if(pStrm->Size > 0)
   {
    Buffer = new char[pStrm->Size + 1];
    ZeroMemory(Buffer,pStrm->Size + 1);
    pStrm->Position = 0;
    pStrm->Read(Buffer, pStrm->Size);
    pStrm->Clear();
    RequestEngine->RunQuery("X1001",AnsiString(Buffer));
   }
  }
  catch(Exception &E)
  {
   ShowMessage(E.Message);
  }


And on a Timer event the TIdTCPClient read:
  try
  {
   IdTCPClient->ReadFromStack();
   TMemoryStream *pStrm = IdTCPClient->InputBuffer;
   if(pStrm->Size > 0 )
   {
    Buffer = new char[pStrm->Size + 1];
    ZeroMemory(Buffer,pStrm->Size + 1);
    pStrm->Position = 0;
    pStrm->Read(Buffer, pStrm->Size);
    pStrm->Clear();
    ShowMessage("Client: " + AnsiString(Buffer));
   }
  }
  catch(Exception &E)
  {
   ShowMessage(E.Message);
  }

I have seen other demos where ReadLn is used and I have tried that, with no success. Can anyone please tell me what the best way for reading data from client and server TCP connections is

Regards
Alfred Thomas