🚀 go-pugleaf

"Danila Vershinin" <danprep@yahoo.com> wrote in message
news:427a87c7@newsgroups.borland.com...

> void __fastcall TForm1::MailConnected(TObject *Sender)
> {
> MailCount = Mail->CheckMessages();
> }

The error you are seeing is caused by a bug in your own code, not Indy's.
You cannot call CheckMessage() from the OnConnected event handler.  This is
because TIdPOP3 overrides the TIdTCPClient::Connect() method to perform
additional operations needed to log into the POP3 server.  The first thing
TIdPOP3::Connect() does is to call TIdTCPClient::Connect() to establish the
actual socket connection.  After TIdTCPClient::Connect() returns,
TIdPOP3::Connect() then reads the server's Greeting and sends the
username/password.  Because the OnConnected event is triggered by
TIdTCPClient::Connect(), not TIdPOP3::Connect(), you are calling
CheckMessages() before TIdPOP3 has a chance to read the Greeting or login.
As such, when CheckMessages() attempts to get the server's reply to the STAT
command, it is reading the server's Greeting instead.  That is why you get
the parsing error.

To fix the problem, you must not call CheckMessages() until after
TIdPOP3::Connect() returns.  That means moving your call to CheckMessages()
into your button OnClick handler instead, ie:

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        Mail->Connect();
        Mail->CheckMessages(); // <-- wait until Connect() returns first
        //...
    }


Gambit