Email Server

← →
Dmitriy_R (2003-02-03 12:59) [0]

Народ подскажите кто знает что не так. Положил на форму компонент ServerSocket настроил его на слушание 25 порта.
Взял почтовую программу и пытаюсь отправить, прога коннектится но по событию:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Var Text: string;
begin
//
Text := Socket.ReceiveText;
Memo1.Lines.Add(Text);
end;

В мемо ничего не идет, пытался отправить клиенту приветствие HELLO и еще много чего что нащел на этом сайте, но ничего не выходит.

← →
gsu (2003-02-03 13:02) [1]

А где остальное ?

← →
Романов Р.В. (2003-02-03 13:07) [2]

http://sendmail.by.ru/documents/SMTP.htm

← →
Dmitriy_R (2003-02-03 13:18) [3]

ДАк со сылкой все понятно описание и здесь есть http://delphi.mastak.ru/articles/smtp/index.html
но вот проблемма примером былобы проще, а так тяжко.
Как я понял после того как клиент подключился к серверу, сервер должен отправить первым или что-то дождатся.

← →
Digitman (2003-02-03 14:28) [4]

> после того как клиент подключился к серверу

об этом факте говорит событие OnClientConnect()

> сервер должен отправить первым

Вот и отправляй то, что требуется по протоколу, в событии OnClientConnect()

> или что-то дождатся

А вот на этот случай как-раз и OnClientRead() существует

← →
Digitman (2003-02-03 14:31) [5]

> > после того как клиент подключился к серверу

точней даже не в OnClientConnect() , а при 1-м возникновении OnClientWrite().

последующие OnClientWrite() так же могут возникнуть, но итерпретируются они несколько по другому

← →
SeNtiMeL (2003-02-05 03:08) [6]

В общем читай спецификацию SMTP и POP3.
Там все описано, какие команды используется и как происходит процесс.
Я сам писал подобную вещь, только не серевер а клиент к USENET протоколу (NNTP).
Просто читаешь спецификацию протокола и все ! Там все грамотно изложено.

Email Server Найти похожие ветки