Aşağıdaki kodu çalıştırdığımda "[dcc64 Warning] server.pas(79): W1012 Constant expression violates subrange bounds" şeklinde uyarı alıyorum.
Kod: Tümünü seç
var
NonBlock:cardinal;
...
NonBlock:=1;
if ioctlsocket(ChannelInfo.serverSock,FIONBIO,NonBlock) = SOCKET_ERROR then begin
ShowMessage('Socket nonblock error!');
WSACleanup;
Halt;
end;