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

Вниз

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

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

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


 
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;


 
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;

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


 
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 связано, посмотри, не сложно.


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

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



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

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

Наверх




Память: 0.46 MB
Время: 0.032 c
14-1081953297
MalkoLinge
2004-04-14 18:34
2004.05.09
Как Вам Вакансия ?


8-1076566297
disciple
2004-02-12 09:11
2004.05.09
Компоненты TrackBar и MediaPlayer


11-1068772474
Ciber SLasH
2003-11-14 04:14
2004.05.09
Почему в KOL форма сворачивается начиная с левого угла


7-1079610137
Delph1
2004-03-18 14:42
2004.05.09
Как получить каталог рабочего стола в Delphi?


3-1081797714
Mishenka
2004-04-12 23:21
2004.05.09
Можно ли определить была ли запись в таблицу?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский