🚀 go-pugleaf

Hi Mark,

> [...] the reply to all POP3 commands is either very short, or multi-line
> and terminated with a line starting with a full stop. In the long requests 
> like
> RETR and TOP x y, I stop waiting to read any more when I get this line
> in my buffer.

Yes you must know the rules (protocol) to finalize you block of received 
data.
if "AnsiString(bf).Pos("\r\n.")>0" is the rule, than OK.

> [...] Also, is 2048 a good read value to use?

Yes it is, but you *must not* count on that.

I already posted for you in attachments group the whole 
TClientSocket/TServerSocket
code, which has all elements of ctNonBlocking / stBlocking architecture.

This is PSEUDO, code, what you have to do:

void __fastcall TClientForm::AskClientSocketRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
   // read the incoming size of data that are passed to client...
   int IncomingSize = Socket->ReceiveLength();

   // if its less than zero, feel free to return and wait for another try...
   if ( IncomingSize < 1 )
         return;

   // calculate the LAST size of your data buffer where you store the 
portions...
   // ... sent to client to finalize one logical block of data...
   int OldSize = DataBuffer->Size;

   // set the new position where the new reading start...
   DataBuffer->Position = OldSize;

   // calculate the NEW size of DataBuffer
   int NewSize = OldSize + IncomingSize;

   // set the new size of the buffer, so that we can work with allocated 
buffer
   DataBuffer->Size = NewSize;

   // this will read the sent data into DataBuffer
   Socket->ReceiveBuf( &((LPBYTE)(DataBuffer->Memory))[OldSize], 
IncomingSize );

   // now, check if it's the end of header...
   if ( /* somethng with Pos("\r\n.") on dataBuffer* / )
   {
      // if yes, then:
      // 1) place the DataBuffer in your Grid
      // 2) reset the DataBuffer's Size & Position
      //     DataBuffer->Size = NewSize;
      //     DataBuffer->Position = 0;
   }

}

...and this is DataBuffer:

//---------------------------------------------------------------------------
__fastcall TClientForm::TClientForm(TComponent* Owner)
        : TForm(Owner)
{
   DataBuffer = new TMemoryStream();
   DataBuffer->Clear();
   DataBuffer->Position = 0;
}
__fastcall TClientForm::~TClientForm()
{
   delete DataBuffer;
}

Look at my code in attachemnts group.

Also you may look at the generic code for all sending amd receiving of
Remy Lebeau, which is placed many times before in this group:
http://tinyurl.com/dkbe9

Happy New Year




-- 
Best regards,
Vladimir Stefanovic