🚀 go-pugleaf

"Vladimir Stefanovic" <antivari@po.sbb.co.yu> wrote on Sat, 31 Dec 2005 18:20:58 +0100 :-
> 5) client receives answer

I have found a way round it. In my app, a POP3 mail lister for heavily-spammed accounts, 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. It works a treat 
for a single-threaded VCL app, with the occasional hiccup. Here is my revised code :-

// Globals int wh (length of the buffer so far), char *bf (buffer)
// bool needot (wait until a dot is recvd.), bool dun ("got everything from server" flag)
void __fastcall TForm1::ClientSocket1Read(TObject *Sender,TCustomWinSocket *Socket)
{
  int ii=1;
  while (ii>0)
  {
    ii=Socket->ReceiveBuf(&bf[wh],2048);
    wh+=ii; bf[wh]='\0'; if (ii>0) Sleep(10);
  }
  dun=(!needot || AnsiString(bf).Pos("\r\n.")>0);
}

Now I need to add in the spam filtering, and decode attachments embedded in the output of RETR. Isn't there a 
free VCL add-on to decode attachments somewhere? Also, is 2048 a good read value to use?

Mark Jacobs