Éric Fleming Bonilha wrote:
> HI
>
> I don´t know if this bug was already fixed on newer releases of
> TWSocket, if yes, sorry for the mail
Advertising
Éric,
Thanks, I just checked in rev. #700.
--
Arno Garrels
>
> 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
