Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Delphi и Indy   Найти похожие ветки 

 
Awod   (2004-03-18 21:20) [0]

Добрый вечер!
Помогите в написании почтового сервера с использованием TIdPOP3Server. Не получается у меня клиентам почтовым отправить ответ о количестве писем в ящике. Не подскажите как это можно сделать?


 
Rosik   (2004-03-20 00:23) [1]

Так клиент схавает, но лучше Rfc почитай и по науке сделай.
Принцип такой:

//RETR
procedure TF_Form.IdPOP3Server1TIdCommandHandler3Command(
 ASender: TIdCommand);
begin
If TIdPOP3ServerThread(ASender.Thread).State=trans then
    begin
     ASender.Thread.Connection.WriteLn("+OK "+ inttostr(AllBytes) +" octets");
     ASender.Thread.Connection.WriteLn(CountMessages);
     ASender.Thread.Connection.WriteLn(".");
    end;
end;


 
Awod   (2004-03-21 13:39) [2]

Но у TIdPOP3Server есть событие OnSTAT в котором по идее я должён как раз сообщить клиенту количество сообщений и их общий размер.
Я и делаю

procedure TfrmMain.IdPOP3Server1STAT(ASender: TIdCommand);
begin
   ASender.Reply.SetReply(0,"+OK 19 3634866");
end;

Но клиент после этого просто закрывает соединение.
Чего делать ?


 
Rosik   (2004-03-21 21:41) [3]

ти че?
я же тебе говорю ты используй ручную обработку, сейчас сырцов нет  под рукой.
сам обробатывай все команды которые тебе шлет клиент, в компоненте IdPOP3Server есть поле его помоему в false и все команды переописываешь. Там чето с CommandHandler связано, посмотри, не сложно.



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.032 c
1-1079960738
russko
2004-03-22 16:05
2004.04.11
Нажатие клавиш


1-1082615490
Narayan
2004-04-22 10:31
2004.04.11
показ формы


4-1076104310
Абдурахман
2004-02-07 00:51
2004.04.11
чтение куска файла


14-1079155092
Nurali
2004-03-13 08:18
2004.04.11
На TWebBrowser свой PopupMenyu


4-1075730681
Mamed
2004-02-02 17:04
2004.04.11
Putimage i getimage