Работа с Pop3Server в Indy10

← →
inew (2005-04-01 05:03) [0]

Использую компонент 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 нет такого свойства.

← →
АНТИСпаммер (2005-04-02 02:29) [1]

Такое свойство ЕСТЬ
Но спарва вопрос : Indy 10 на какой Delphi ?

← →
inew (2005-04-03 17:18) [2]

>АНТИСпаммер
Indy 10 на Delphi7

← →
АНТИСпаммер (2005-04-04 02:31) [3]

При аутентификации (checkuser) в свойство AThread.Connection.Socket.SocksInfo.Tag (или username) записываешь соответствующий идентификатор. А в остальных событиях (кроме onDisconnect) его аналогично читаешь. Т.е это свойство для каждого потока уникальное

Работа с Pop3Server в Indy10 Найти похожие ветки