Скачать: CL | DM;

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).
Просто читаешь спецификацию протокола и все ! Там все грамотно изложено.

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c