Помогите с серверной частью на WinSock

[Miha]

Помогите пожалуста! Сервер должен работать в неблокирующем режиме. При подключении клиента выдётся ошибка.
Вот исходник :

program Serv;
uses
Windows,Messages,WinSock;
var
pMsg:TMsg;
wData:WSAData;
sServer,sClient:TSocket;
localaddr,clientaddr:sockaddr_in;
iSize,ReadySock,iMode,ret:Integer;
ReadSet:TFDSet;
RecBuff:array[0..1024] of char;
s:String;

begin
if WSAStartup(MakeWord(1,1),wData) <>0 then
begin
MessageBox(0,'Ошибка при загрузке Winsock','Message',0);
exit;
end;
sServer:=socket(AF_INET,SOCK_STREAM ,IPPROTO_IP);
if sServer=INVALID_SOCKET then
begin
MessageBox(0,'Ошибка создания сокета','Message',0);
exit;
end;
ioctlsocket(sServer,FIONBIO,iMode);
localaddr.sin_addr.S_addr:=htonl(IN ADDR_ANY);
localaddr.sin_family:=AF_INET;
localaddr.sin_port:=htons(4902);
if bind(sServer,localaddr,sizeOf(local addr))=Socket_Error
then begin
MessageBox(0,'Ошибка связывания сокета','Message',0);
exit;
end;
listen(sServer,4);
while (true) do
begin
FD_ZERO(ReadSet);
FD_SET(sServer,ReadSet);
ReadySock:=select(0,@ReadSet,nil,ni l,nil);
if (ReadySock = SOCKET_ERROR) then
begin
MessageBox(0,'ReadySock_Error','Mes sage',0);
exit;
end;
if (FD_ISSET(sServer,ReadSet)) then
begin
iSize:=SizeOf(sClient);
sClient:=accept(sServer,@clientaddr ,@iSize);// Здесь происзодит ошибка
if sClient=INVALID_SOCKET then
begin
MessageBox(0,'Ошибка в сокете клиента','Message',0);
break;
end;
ret:=recv(sClient,RecBuff,1024,0);
if (ret=Socket_Error) then
begin
MessageBox(0,'Ошибка получения данных','Message',0);
break;
end;
s:=RecBuff;
MessageBox(0,RecBuff,'Принятые данные',0);
closeSocket(sClient);
end;
end;
while GetMessage(pMsg,0,0,0) do
begin
TranslateMessage(pMsg);
DispatchMessage(pMsg);
end;
end.

[Квэнди]

в Windows официально нет понятия не блокирующего режима. Есть эмуляция в Indy AntiFrosen он по-мойму называется из вкладки Misc

[Rouse_]

В Windows не то чтобы есть понятие неблокирующего режима, который идет аж от изначальных Bercley Sockets, но в дополнение к основному стеку протоколов существует асинхронное расширение сокетного транспорта построенное на оконных сообщениях.
А в приведенном коде ошибка в том, что указывается неверный размер принимающей структуры. Должно быть iSize:=SizeOf(sockaddr_in);

[D-mon]

Незнаю поможет те это или нет, но для каждого конекта ты должен открывать новую нить(Thread). И уже в нити идёт конект и обработка запроса, что бы небыло конфликтов. Я создавал собственный сервер но на компонентах ClientSocket и ServerSocket.
Если хош могу кинуть исходник, посмотришь.

[Miha]

Спасибо большое всем ,что уделили внимание.
Действительно был неверно указан размер iSize.