почтовый сервер

← →
Wistful © (2005-04-11 19:50) [0]

Начал писать почтовый сервер.
В общем почтовый клиент коннектится к серверу, я посылаю ему месагу НО он мне ничего не присылает.

вот исходный код:
WSAStartup($101,Init);
Sock:=Socket(PF_INET,SOCK_STREAM,IPPROTO_TCP );
Target.sin_family:=PF_INET;
Target.sin_port:=htons(1180);
Target.sin_addr.S_addr:=INADDR_ANY;
len:=SizeOf(Target);

bind(Sock,Target,SizeOf(Target));
listen(Sock,5);

Sock:=accept(Sock,@Target,@len);

writeln(inet_ntoa (Target.sin_addr));

s:="220 127.0.0.1 Simple Mail Transfer Service Ready"+#10#13;

send(Sock,S,Length(S),0);
len:=SizeOf(len);

recv(Sock,S,len,0); // клиент ничего не присылает

← →
wistful © (2005-04-11 20:10) [1]

насколько я понял проблема состоит в строке которую передаю клиенту. Может кто знает какими символами следует заканчивать команду ?

← →
Anatoly Podgoretsky © (2005-04-11 20:18) [2]

crlf

← →
wistful © (2005-04-11 20:45) [3]

Anatoly Podgoretsky © (11.04.05 20:18) [2]
CRLF это тоже самое что и #10#13 ???

← →
Anatoly Podgoretsky © (2005-04-11 20:56) [4]

Не тоже самое, у тебя хакерский разделитель строк, не поддерживаемый ни одной ОС - это наказание

← →
wistful © (2005-04-11 21:08) [5]

Anatoly Podgoretsky © (11.04.05 20:56) [4]
а как тогда правильно строку сформировать ?

> send(Sock,S,Length(S),0);

send(Sock,S[1],Length(S),0);

Тем не менее, терминатор строк обязан быть #13#10 и никак не наоборот.

почтовый сервер Найти похожие ветки