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

Reply via email to