Текущий архив: 2003.02.06;
Скачать: CL | DM;
Вниз
Simple POP/SMTP server Найти похожие ветки
← →
Atreides © (2002-12-15 14:36) [0]Кто-нибудь сталкивался с необходимостью написания тривиального почтового сервера? Готовых компонент не нашел. Попробовал сам на IdSimpleServer, но видимо руки совсем кривые:( Вот этот кусок -
procedure TfrmMain.btnAcceptClick(Sender: TObject);
var str:string;
str2:String;
begin
with SServ do begin
if Listen then begin
WriteLn("220 localhost Simple Mail Transfer Service Ready ");
str:=ReadLn();
str2:=Copy(str,1,4);
frmMain.Memo1.Lines.Add(str);
While str2<>"QUIT" do
begin
If str2="EHLO" then WriteLn("250 localhost") else
If str2="MAIL" then WriteLn("250 OK") else
If str2="RCPT" then WriteLn("250 OK") else
If str2="DATA" then
begin
WriteLn("354 Start mail input; end with <CRLF>.<CRLF> ");
Repeat
str:=ReadLn();
If str<>"." then frmMain.Memo1.Lines.Add(str);
until str=".";
WriteLn("250 OK");
end else WriteLn("502");
str:=ReadLn();
str2:=Copy(str,1,4);
frmMain.Memo1.Lines.Add(str);
end;
WriteLn("221 localhost Service closing transmission channel ");
Disconnect;
end;
end;
end;
вешается при обрыве коннекта со стороны клиента. И как такие ситуации обрабатывать, неясно.
← →
s002156Shurik © (2002-12-15 14:43) [1]А компонентами NMSNTP и NMPOP3 пользоваться непробовал?
← →
Atreides © (2002-12-15 14:45) [2]Мне сервер нужен. Клиентов-то понаписано, как @ нерезаных.:)
← →
Ghost. © (2002-12-16 08:59) [3]Зайди на сайт ICS ссылка на моей страничке есть там если внимательно почитаешь найдешь компоненты для серверов..только конечно писать придется всеравно...не все так просто если хорошо хочешь сделать, а вообще все реально..
Страницы: 1 вся ветка
Текущий архив: 2003.02.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
