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

Winsock - не удается послать сообщение от сервера клиенту   Найти похожие ветки 

← →
bodun   (2009-09-24 01:30) [0]

Работаю с клиентом в процедуре:

 s := Sock;
 if s = invalid_socket then exit;
 vsize := sizeof(tsockaddr);
 getpeername(s, SockName, vsize);
 writeln("client accepted, remote address",inet_ntoa(SockName.sin_addr));
 vsize := sizeof(bufsize);
 getsockopt(s,sol_socket,so_rcvbuf,pchar(@bufsize),vsize);
 writeln("receive buffer size ",bufsize);
 setlength(abuf,bufsize);
 repeat
   vsize := recv(s,abuf[0],bufsize,0);
   if vsize<=0 then break;
   setlength(vbuf,vsize);
   lstrcpyn(@vbuf[1],@abuf[0],vsize);
   GetCommand(vbuf,s); <------ Тут вызывается функция
 until vbuf = "q";
 writeln("client disconnected, remote address ",inet_ntoa(SockName.sin_addr));
 setlength(abuf,0);
 closesocket(s);

Вызывается функция GetCommand(vbuf,s); где следующих код должен послать сообщение:
if send(s,buf[1],length(buf),0)=socket_error then
   WriteLn("Error") else WriteLn("Ok");
Пишет что ошибки не было, но к клиенту данные не приходят((

---

← →
Сергей М. ©   (2009-09-24 08:18) [1]

> Sock


Что находится в этой переменной ?

---

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

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



Память: 0.45 MB
Время: 0.006 c