Использую компонент Pop3Server из Indy10. У этого компонента есть события POP3Server1CheckUser(AThread: TIdContext; LThread: TIdPOP3ServerContext);, там пользователь авторизируется и к примеру POP3Server1RETR(ASender: TIdCommand;
AMessageNum: Integer);, где собственно и происходит раздача почты. Вопрос, как в событии POP3Server1RETR мне понять кто именно запросил почту и соответственно что ему отдать?
В SmtpServer того же Indy10 есть событие
SMTPServer1MsgReceive(ASender: TIdSMTPServerContext; AMsg: TStream; var LAction: TIdDataReply) где Asender имеет свойство Username и соответсвенно легко можно положить сообщение в нужное место, а в Pop3Server у ASender нет такого свойства.

Здравствуйте, inew.

Вы писали 1 апреля 2005 г., 18:05:05:


> From: inew 
> Использую компонент Pop3Server из Indy10. У этого компонента есть события
> POP3Server1CheckUser(AThread: TIdContext; LThread: TIdPOP3ServerContext);,
> там пользователь авторизируется и к примеру POP3Server1RETR(ASender:
> TIdCommand;
> AMessageNum: Integer);, где собственно и происходит раздача почты. Вопрос,
> как в событии POP3Server1RETR мне понять кто именно запросил почту и
> соответственно что ему отдать?
> В SmtpServer того же Indy10 есть событие
> SMTPServer1MsgReceive(ASender: TIdSMTPServerContext; AMsg: TStream; var
> LAction: TIdDataReply) где Asender имеет свойство Username и соответсвенно
> легко можно положить сообщение в нужное место, а в Pop3Server у ASender нет
> такого свойства.

Username := TIdPOP3ServerThread(ASender.Thread).Username;

--
С уважением,
Гай mailto:guy@nalogtelecom.ru

Отладчик не понимает такого выражения, какой для этого unit надо прописать?