Модератор: Модераторы
Код: Выделить всё
s:=socket(AF_INET, SOCK_STREAM, 0);
serv_addr.sin_family:= AF_INET;
serv_addr.sin_addr.s_addr:= INADDR_ANY;
serv_addr.sin_port:= htons(10001);
bind(s, serv_addr, sizeof(serv_addr));
listen(s, 3);
Yurakl писал(а):никто никогда не реализовывал??
Return Value
On success, zero is returned. On error, -1 is returned, and errno is set appropriately
Код: Выделить всё
s:=socket(AF_INET, SOCK_STREAM, 0);
port:=10001;
serv_addr.sin_family:= AF_INET;
serv_addr.sin_addr.s_addr:= INADDR_ANY;
serv_addr.sin_port:= htons(port);
if bind(s, serv_addr, sizeof(serv_addr))=false then writeln(errno);
if listen(s, 1)=false then writeln(errno);
razmer_addr:=sizeof(saddr);
p:=accept(s, saddr, razmer_addr);
скалогрыз писал(а):вообще не используй bind() функции, используй fpbind()
а чем fpbind лучше bind?
Yurakl писал(а):Ну если с Bind вроде разобрался, встает проблема с accept.
Yurakl писал(а):Как я понимаю как раз на этой функции происходит непосредственная связь с клиентом. но почему то при запуске клиента, на accept все останавливается.
см. выше код
Yurakl писал(а):все,я решил проблему. Сейчас осталось только сделать, чтобы сервер получал подтверждение переданных байтов и потом переходить к следующему этапу...
Просьба к тебе огромная - помоги фронту, природе и будущим поколениям - выложи упрощенные, но рабочие исходнички клиента и сервера, и желательно с комментариями. Этим ты придашь святости облику своему, а заодно и будущих кодеров на путь истинный наставишь. Но главное - сильно занятые шаманы на подобное подтягиваются гораздо охотнее, и часто при этом подсказывают, что можно красивее реализовать, а где заставить код шуршать быстрее. В общем, дело достаточно богоугодное Код: Выделить всё
s:=socket(AF_INET, SOCK_STREAM, 0);
port:=10001;
serv_addr.sin_family:= AF_INET;
serv_addr.sin_addr.s_addr:= INADDR_ANY;
serv_addr.sin_port:= htons(port);
if bind(s, serv_addr, sizeof(serv_addr))=false then writeln(errno);
if listen(s, 1)=false then writeln(errno);
ac:=true;
razmer_addr:=sizeof(saddr);
while ac do
begin
p:=accept(s, saddr, razmer_addr);
writeln(p);
if p<0 then writeln(errno);
while ac do
begin
send(p,buf[0],5,MSG_DONTWAIT);
sleep(2500);
end;
closesocket(p);
end;
ac:=false; Yurakl писал(а):подскажите, пожалуйста, как сервер может получить подтверждение о том,что отправленные байты дошли до получателя, т.е. связь по ethernet есть