HI
I don´t know if this bug was already fixed on newer releases of TWSocket, if
yes, sorry for the mail
On unit OverbyteIcsWSocket
procedure TCustomWSocket.SetSocketRcvBufSize(BufSize : Integer);
var
iStatus : Integer;
optlen : Integer;
begin
optlen := SizeOf(BufSize);
{$IFDEF CLR}
iStatus := WSocket_setsockopt(FHSocket, SOL_SOCKET, SO_RCVBUF,
BufSize, optlen);
{$ELSE}
iStatus := WSocket_setsockopt(FHSocket, SOL_SOCKET, SO_RCVBUF,
PAnsiChar(@BufSize), optlen);
{$ENDIF}
if iStatus = 0 then
FSocketSndBufSize := BufSize
else
SocketError('setsockopt(SO_RCVBUF)');
end
if iStatus = 0 then
FSocketSndBufSize...
You are storing the buf size on the wrong variable, it should be
FSocketRcvBufSize
Eric
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
