Господа, помогите с такой проблемой =) В общем проверяю почту по pop3 протоколу, информацию о письме получаю нормально, а вот само письмо не получается, зависает на методе GetMailMessage. Судя по файрволу, письмо получается нормально, а вот метод управление не возвращает =(
| Код |
Form1->NMPOP31->UserID="....";
Form1->NMPOP31->Password="....";
Form1->NMPOP31->Host="pop.mail.ru";
Form1->NMPOP31->Connect();
if(Form1->NMPOP31->Connected)
{
ShowMessage(IntToStr(Form1->NMPOP31->MailCount));
Form1->NMPOP31->GetSummary(1);
ShowMessage(Form1->NMPOP31->Summary->MessageId);
Form1->NMPOP31->GetMailMessage(1);
Form1->Memo1->Lines=Form1->NMPOP31->MailMessage->Body ;
Form1->NMPOP31->Disconnect();
}
else ShowMessage("bad");
ShowMessage("all");
|
|