Форум: "Сети";
Текущий архив: 2012.03.18;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2012.03.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c